[es] - Ono sto pisem u sheet 1 da kopiram automatski u sheet2 i sheet3 u Excelu

hrizantema

Član broj: 40869
Poruke: 295
*.adsl.xs4all.nl.

Profil

Ono sto pisem u sheet 1 da kopiram automatski u sheet2 i sheet3 u Excelu

^{08.04.2010. u 09:04 - pre 170 meseci}

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

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Ono sto pisem u sheet 1 da kopiram automatski u sheet2 i sheet3 u Excelu

^{10.04.2010. u 10:00 - pre 170 meseci}

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.

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

hrizantema

Član broj: 40869
Poruke: 295
*.direct-adsl.nl.

Profil

Re: Ono sto pisem u sheet 1 da kopiram automatski u sheet2 i sheet3 u Excelu

^{10.04.2010. u 15:42 - pre 170 meseci}

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

Odgovor na temu

hrizantema

Član broj: 40869
Poruke: 295
*.direct-adsl.nl.

Profil

Re: Ono sto pisem u sheet 1 da kopiram automatski u sheet2 i sheet3 u Excelu

^{10.04.2010. u 15:46 - pre 170 meseci}

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?????

Odgovor na temu

hrizantema

Član broj: 40869
Poruke: 295
*.direct-adsl.nl.

Profil

Re: Ono sto pisem u sheet 1 da kopiram automatski u sheet2 i sheet3 u Excelu

^{11.04.2010. u 06:18 - pre 170 meseci}

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?

Odgovor na temu