Prikazi cijelu temu 07.07.2017 10:03
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:funkcija za trazenje zadnje kolone
    A    B    C
1    Jabuka    10    
2    Tresnja    5    
3    Visnja    6    
4    Sljiva    12    2
5    Banana    10    3
6    Kruska    4    
7    Krastavac    5     

imamo funkciju za trazenje zadnje kolone
PreuzmiIzvorni kôd (Visual Basic):
  1. Function traziZadnjuKolonu(ImeSita As String)
  2.     Dim Zadnji As Long
  3.     Dim ws As Worksheet
  4.     Set ws = Sheets(ImeSita)
  5.     With ws
  6.         Zadnji = .Cells(1, .Columns.Count).End(xlToLeft).Column
  7.     End With
  8.     traziZadnjuKolonu = Zadnji
  9. End Function

pozivamo ju :
aktivniList = ActiveSheet.Name
zadnjaKolona = traziZadnjuKolonu(aktivniList)

problem je sto nemamo u prvom redu ispisanu C kolonu,trecu kolonu,
pa nam nece dati rezultat 3, zadnjaKolona<>3,
vec ce nam dati rezultat 2, zadnjaKolona=2

Kako napisati funkciju koja ce nam dati rezultat stvarne zadnje kolone?
zivot je moja domovina.