[es] - Kopiranje u novi red, brisanje

MightyMighty
Serbia

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

Profil

^{29.06.2008. u 12:44}

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!

^{29.06.2008. u 12:44}

Brz_na_tastaturi
Nenad Netković
Svilajnac

Moderator
Član broj: 63852
Poruke: 300
93.86.26.*

Profil

Re: Kopiranje u novi red, brisanje

^{29.06.2008. u 21:31}

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

^{29.06.2008. u 21:31}

MightyMighty
Serbia

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

Profil

Re: Kopiranje u novi red, brisanje

^{29.06.2008. u 21:44}

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.

^{29.06.2008. u 21:44}

Jpeca
Predrag Jovanović
Bozic i sinovi škola računara
Pančevo

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

Jabber: jpeca@elitesecurity.org

Profil

Re: Kopiranje u novi red, brisanje

^{30.06.2008. u 09:00}

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

Dva u dva ide jednom ako možeš da ga ućuškaš

^{30.06.2008. u 09:00}

Ivek33
Ivan Cindrić

Moderator
Član broj: 66174
Poruke: 1465
*.adsl.net.t-com.hr.

Sajt: www.ic.ims.hr

Profil

Re: Kopiranje u novi red, brisanje

^{07.07.2008. u 11:16}

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

Slikoviti online primjeri za Office 2003: Excel, Word, PowerPoint, Front Page, Publisher.....

Prikačeni fajlovi

KopiranjeUnoviRed.xls - 47.5k

^{07.07.2008. u 11:16}