[ hrizantema @ 08.04.2010. 09:04 ] @
Ovako, mozda postoji vec objasnjeno i ako postoji neko ce mi vec dati link , posto ja nisam mogao da nadjem ili ne znam sta trazim .. Pa , bolje da upitam..
Prva stranica (sheet1 ili blad1) -upisujem u nju listu ili bilo sta. Imam jos dva sheeta(sheet2 i sheet3) i hocu npr. da u tom prvom sheet1 ubacim dvije opcije: 1 i 2.
Kad kliknem na 1 i pocnem da upisujem u sheet 1 listu ili bilo sta , da mi sve to prekopira u sheet2 i
kad kliknem na 2 i pocnem da upisujem u sheet 1 listu ili bilo sta, da mi sve to prekopira u sheet3..
Da bi bilo sto jasnije, zamislite da imate dvije osobe koje prodaju u gornjem dijelu Srbije i ona je sheet2 (dakle, kad kliknem na 1 , sve sto je vezano za gornji dio Srbije ide toj osobi pod sheet2)
i kad upisujem sve vezano za donji dio Srbije i kliknem na 2 (ili prvo kliknem na 2 pa upisujem ) da ide u sheet 3 tj. osobi koja prodaje u donjem dijelu Srbije..

Ako neko moze da posalje primjer uradjen u excelu, bio bih mu vrlo zahvalan ili da posalje kodove kako to sve da se upise u Macrou isto bih mu bio zahvalan..
Holandska verzija Excela-blad 1,2,3

Pozdrav,
Hrizantema
[ 3okc @ 10.04.2010. 10:00 ] @
Možda baš nije objašnjen konkretan (tvoj) problem ali je o "prenosu unete vrednosti" u drugi/e Sheet/ove sigurno već bilo reči.

problem s pozivanjem podatka iz drugih sheet-ova
Prebacivanje i sortiranje određenih podataka u drugi Sheet
Macro za poziv vrednosti ćelija iz više Sheets
Prenos podataka iz ćelije
Potreban makro za selekciju i kopiranje ćelija

..itd. To su samo neke od tema u kojima se rešava kopiranje unetih vrednosti, pa pogledaj.
[ hrizantema @ 10.04.2010. 15:42 ] @
Do enek tacke sam stigao , ali mi jos treba pomoc oko sheeta1 (kad sam napisao nesto sto hocu i to kopirao pritiskom na dugmad wes(sheet2) ili ciko(sheet3),
sad hocu da kad odem na donji red u sheetu 1 da se ona naredba od pocetka prebacuje na taj red i da pritiskom na dugmad wes ili ciko kopiram tacno red koji hocu ,a ne uvijek onaj prvi...
Evo i kod ,a onaj ko zna sta bi trebalo nek dopise...


Sub wes()
'
' wes Makronaredba
'
' Tipkovni precac: Ctrl+a
'

Range("A10:I10").Select
Selection.Copy
Sheets("List2").Select
Range("A6:H6").Select
' pomeramo se u celiju ispod
ActiveCell.Offset(1, 0).Activate

While ActiveCell <> "" ' ako trenutna celija nije prazna..
ActiveCell.Offset(1, 0).Activate ' ..pomeri se u celiju ispod
Wend

' dosli smo do prazne celije, pastujemo ovde
ActiveCell.Range("A1").Select
ActiveSheet.Paste
End Sub
Sub ciko()
Range("A10:I10").Select
Selection.Copy
Sheets("List3").Select
Range("A17:I17").Select
' pomeramo se u celiju ispod
ActiveCell.Offset(1, 0).Activate

While ActiveCell <> "" ' ako trenutna celija nije prazna..
ActiveCell.Offset(1, 0).Activate ' ..pomeri se u celiju ispod
Wend

' dosli smo do prazne celije, pastujemo ovde
ActiveCell.Range("A1").Select
ActiveSheet.Paste
End Sub
[ hrizantema @ 10.04.2010. 15:46 ] @
Evo upravo mi pogled na
ovaj dio ActiveCell.Range("A1").Select dade ideju da to upisem umjesto Range("A10:I10")
i mislim da radi ono sto ja hocu?????

[ hrizantema @ 11.04.2010. 06:18 ] @
Kod izgleda ovako(ovo kopiram i zbog radi sebe jer mi se par puta desilo da sam sve pogubio na kompu i onda , srecom , posto neke stvari ostavljam ovdje , ovaj forum mi dodje ko dobar cuvar informacija jer je stvarno dobar i postojan):
Sub wes()
'
' wes Makronaredba
'
' Tipkovni precac: Ctrl+a
'

ActiveCell.Range("A1:I1").Select
Selection.Copy
Sheets("List2").Select
Range("A6:H6").Select
' pomeramo se u celiju ispod
ActiveCell.Offset(1, 0).Activate

While ActiveCell <> "" ' ako trenutna celija nije prazna..
ActiveCell.Offset(1, 0).Activate ' ..pomeri se u celiju ispod
Wend

' dosli smo do prazne celije, pastujemo ovde
ActiveCell.Range("A1").Select
ActiveSheet.Paste
End Sub
Sub ciko()
ActiveCell.Range("A1:I1").Select
Selection.Copy
Sheets("List3").Select
Range("A17:I17").Select
' pomeramo se u celiju ispod
ActiveCell.Offset(1, 0).Activate

While ActiveCell <> "" ' ako trenutna celija nije prazna..
ActiveCell.Offset(1, 0).Activate ' ..pomeri se u celiju ispod
Wend

' dosli smo do prazne celije, pastujemo ovde
ActiveCell.Range("A1").Select
ActiveSheet.Paste
End Sub

Mene sad interesuje, kako u ovom kodu da nastimam da, bez obzira u kojoj celiji istog reda da se nalazim, da, kad kliknem na dugme Wes(koje kopira u sheet2)on kopira od prve celije tog reda?