[es] - Kopiranje u novi red, brisanje

MightyMighty
Serbia

Član broj: 169626
Poruke: 12
*.adsl.beotel.net.

Profil

^{29.06.2008. u 12:44 - pre 204 meseci}

Drugari,

treba mi mala pomoc. Imam excel file sa dva sheet-a. Potrebno je kopirati nekoliko polja (nisu poslagana u jednu kolonu ili red, recimo da formular podseca na uplatnicu) u jedan red na drugom sheet-u. To je sve ok i nije problem, ali problem je kako da napravim da svaki put kopira u prazan red, novi red?

Hvala!

Odgovor na temu

Brz_na_tastaturi
Svilajnac

Član broj: 63852
Poruke: 318
93.86.26.*

+1 Profil

Re: Kopiranje u novi red, brisanje

^{29.06.2008. u 21:31 - pre 204 meseci}

Da li koristiš makro za kopiranje?
Možeš li da postaviš primer kako to izgleda?

Možda je tačno da je sve već rečeno, samo nisu svi sve čuli i razumeli ...

Odgovor na temu

MightyMighty
Serbia

Član broj: 169626
Poruke: 12
*.adsl.beotel.net.

Profil

Re: Kopiranje u novi red, brisanje

^{29.06.2008. u 21:44 - pre 204 meseci}

Apsolutno,

makro koristim za kopiranje, za brisanje prekopiranih podataka.

Jedina stvar koja mi nedostaje je kako da ga nateram da svaki put kopira u novi red.

Znaci, sve sam pokrio, samo mi taj deo nedostaje, kako da nadje prvi prazan red i tu kopira podatke.

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2286
212.200.27.*

Sajt: www.gowi.rs

+112 Profil

Re: Kopiranje u novi red, brisanje

^{30.06.2008. u 09:00 - pre 204 meseci}

Ako sam razumeo neki primer kako da to uradiš možeš naći ovde: http://www.elitesecurity.org/t...z-unapred-pripremljenog-spiska

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Kopiranje u novi red, brisanje

^{07.07.2008. u 11:16 - pre 204 meseci}

Citat:

MightyMighty

nisu poslagana u jednu kolonu ili red, recimo da formular podseca na uplatnicu) u jedan red na drugom sheet-u.

evo jedan primjer ( razrađen Pecin source-code ) sa gumbom UNOS

Code:
Sub Prenesi()
' Kopiranje sadrzaja celija sa uplatnice obojanih zuto
' u prvi  prazan red
' na drugom listu - kronologija

Dim rw As Long
Dim cl As Integer
Dim Dest As Range

'Postavlja prvu kolonu za upis
cl = 1 ' A kolona
'Nalazi prvi prazni red u koloni A
rw = ActiveWorkbook.Sheets("kronologija").Cells(65535, cl).End(xlUp).Row + 1
'  Ovde se moze promeniti gde se kopira
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl)  ' Gde je Dest1
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("A2")  ' Upis prve vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 1) ' Gde je Dest2
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("A5") ' Upis druge vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 2) ' Gde je Dest3
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("A10") ' Upis trece vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 3) ' Gde je Dest4
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("C1") ' Upis cetvrte vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 4) ' Gde je Dest5
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("B6") ' Upis pete vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 5) ' Gde je Dest6
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("C6") ' Upis seste vrednosti
Set Dest = ActiveWorkbook.Sheets("kronologija").Cells(rw, cl + 6) ' Gde je Dest7
Dest.Value = ActiveWorkbook.Sheets("Uplatnica").Range("B7") ' Upis sedme vrednosti
End Sub

Prikačeni fajlovi

KopiranjeUnoviRed.xls - 47.5k

Odgovor na temu

NAKI202

Član broj: 152469
Poruke: 46
*.opera-mini.net.

+1 Profil

Re: Kopiranje u novi red, brisanje

^{07.11.2016. u 16:08 - pre 102 meseci}

koristim vec duze vreme ovaj makro a hteo bih da ga prepravim da mi kopira u prvi slobodan red selekciju na primer A2:F6 a sledeci put A2:F13 po mom izboru ...

da li je ovo moguce ????

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2286
89.216.49.*

Sajt: www.gowi.rs

+112 Profil

Re: Kopiranje u novi red, brisanje

^{08.11.2016. u 08:27 - pre 102 meseci}

Šta treba da kopira u prvi prazan red:
- Sve ćelije iz selektovanog opsega?
- Samo pojedine ćelije iz selektovanog opsega - po kom kriterijumu?
- Nešto treće?

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

NAKI202

Član broj: 152469
Poruke: 46
77.243.24.*

+1 Profil

Re: Kopiranje u novi red, brisanje

^{08.11.2016. u 15:02 - pre 102 meseci}

Sve ćelije iz opsega ...

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1330

Jabber: 3okc@elitesecurity.org

+121 Profil

Re: Kopiranje u novi red, brisanje

^{08.11.2016. u 15:31 - pre 102 meseci}

Pogledaj primer iz Makro... Ekstrahovanje bez Copy/Paste

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

NAKI202

Član broj: 152469
Poruke: 46
*.opera-mini.net.

+1 Profil

Re: Kopiranje u novi red, brisanje

^{10.11.2016. u 20:34 - pre 102 meseci}

ne mogu da se snadjem u ovom primeru da uradim makro kakav meni treba pa zato saljem moj primer gde se vidi sta hocu.
potrebno mi je da se sa sheetova (1,2 i 3 ) redom iskopiraju svi podaci u sheet UKUPNO u prvi prazan red A...

Prikačeni fajlovi

prepisivanje selekcije.xlsx - 12.59k

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Kopiranje u novi red, brisanje

^{12.11.2016. u 14:33 - pre 102 meseci}

U slučaju kopiranja u Excelu, na ovom tutorialu imaš nekoliko načina koristeći VBA (kopiranje podataka iz više radnih listova u jedan)
Vidi pomaže li ovaj vba macro u prilogu.
Nakon pokretanja VBA pojavljuje se novi sheet UKUPNO na kojem će se nalaziti svi podaci iz ostalih sheets (jedan ispod drugog, u grupi)

Prikačeni fajlovi

naki-ivek3208307ES.xlsm - 23.38k

Odgovor na temu