Prikazi cijelu temu 09.07.2017 11:37
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


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):
  1. Function traziZadnjuKolonu(ImeSita As String)
  2.     Dim Zadnji As Long
  3.     Dim ws As Worksheet
  4.     Dim zadnjaCelija As Range
  5.    
  6.     Set ws = Sheets(ImeSita)
  7.    
  8.     Set zadnjaCelija = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, _
  9.                                     LookAt:=xlPart, SearchOrder:=xlByColumns, _
  10.                                     SearchDirection:=xlPrevious, MatchCase:=False)
  11.    
  12.     Zadnji = zadnjaCelija.Column
  13.     traziZadnjuKolonu = Zadnji
  14. End Function
zivot je moja domovina.