Predmet:kretanje po stupcima uz pomoc for next petlje
imamo ovu funkciju (autor zxz)
PreuzmiIzvorni kôd (Text):Function ZadnjiRed(ImeSita As String)
Dim Zadnji As Long
Dim ws As Worksheet
Set ws = Sheets(ImeSita)
With ws
Zadnji = .Cells(.Rows.Count, "A".End(xlUp).Row =>OVO SLOVO A BI SE TREBALO MIJENJATI OVISNO O KOLONI U KOJOJ SE NALAZIM
End With
ZadnjiRed = Zadnji
End Function
pozivajuci tu funkciju dobijamo zadnji red sa podacima u odredenom stupcu, npr.
endRed=ZadnjiRed("List1")
endRed ce biti neki broj, ovisno o tome u kojem se redu nalazi zadnji podatak.
e sada, ja sam upotrebio i drugu funkciju:
PreuzmiIzvorni kôd (Text):Function ZadnjaKolona(ImeSita As String)
Dim Zadnji As Long
Dim ws As Worksheet
Set ws = Sheets(ImeSita)
With ws
Zadnji = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
ZadnjaKolona = Zadnji
End Function
koja mi daje zadnju kolonu sa podacima, npr.
endKolona=ZadnjaKolona("List1")
sada bi ja upotrebio to u petlji
PreuzmiIzvorni kôd (Text):for startKolona=1 to endKolona
endRed=ZadnjiRed("List1") =>ovoj funkciji bi trebao poslati broj kolone, ilI nesto sa select column ili sta ti ja znam
......
nesto radim sa tim podatkom
......
next startKolona
jeste me razumili sta sam htio?
zivot je moja domovina.
Ovaj post je ureden
3
puta. Posljednja izmjena 22.12.2016 23:35 od strane Avko.