Predmet:Re: funkcija za trazenje zadnje kolone
imam oko 1500 redova.
a nesto sam prepravio tvoju funkciju pa ako mozes komentiraj dali bi ona nasla to sto meni treba:
PreuzmiIzvorni kôd (Visual Basic):Function traziZadnjuKolonu(ImeSita As String)
Dim Zadnji As Long
Dim ws As Worksheet
Dim zadnjaCelija As Range
Set ws = Sheets(ImeSita)
Set zadnjaCelija = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, MatchCase:=False)
Zadnji = zadnjaCelija.Column
traziZadnjuKolonu = Zadnji
End Function
zivot je moja domovina.