Prikazi cijelu temu 11.07.2017-08:13
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Lokacija: zagreb


Subject: Re: trazi zadnju kolonu
    A    B    CD
1    Jabuka    10     
2    Tresnja    5     
3    Visnja    6     
4    Sljiva    12    2 
5    Banana    10    3 
6    Kruska    4    8
7    Krastavac    5     

funkcija trazi zadnju kolonu
DownloadIzvorni kod (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

pozivamo ju :
aktivniList = ActiveSheet.Name
zadnjaKolona = traziZadnjuKolonu(aktivniList)
Život je moja domovina.
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 11.07.2017-08:14 od strane Avko.