Predmet:Re: trazi zadnju kolonu
| A | B | C | D |
---|
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
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
pozivamo ju :
aktivniList = ActiveSheet.Name
zadnjaKolona = traziZadnjuKolonu(aktivniList)
zivot je moja domovina.
Ovaj post je ureden
1
puta. Posljednja izmjena 11.07.2017 09:14 od strane Avko.