Zadnja polna celica

[Toda1]

Pozdravljeni,

na tem forumu sem našla kodo za funkcijo Zadnjacelica, ki vrne vrednost zadnje polne celice. Formula mi sicer deluje pravilno, vendar pa bi rada dopolnilo, če je seveda možno. Namreč sama bi rabila funkcijo, ki bi vrnila zadnjo polno celico, ki vsebuje vrednost (se pravi, da bi celic, ki vsebujejo funkcijo - sklic na drugo celico) ne upoštevala kot polne celice.

Ali je možno to formulo tako dopolniti.

Hvala za odgovor


'
maj 2009
'
Function ZadnjaCelica(Obseg As Range)
Dim vrstica As Long, kolona As Long

For vrstica = Obseg.Rows.Count - 1 To o Step -1
For kolona = Obseg.Columns.Count - 1 To 0 Step -1
If (Not IsEmpty(Obseg.Range("a1").Offset(vrstica, kolona))) Then
ZadnjaCelica = Obseg.Range("a1").Offset(vrstica, kolona).Value
Exit Function
End If
Next
Next
ZadnjaCelica = ""
End Function

[admin]

Takšen popravek bo tisto, kar iščete:

Koda: Izberi vse

'
' www.matjazev.net
'     junij 2010
'
Function ZadnjaCelica(Obseg As Range)
  Dim vrstica As Long, kolona As Long
  
  For vrstica = Obseg.Rows.Count - 1 To o Step -1
    For kolona = Obseg.Columns.Count - 1 To 0 Step -1
      If (Not IsEmpty(Obseg.Range("a1").Offset(vrstica, kolona))) And _
         (Not Obseg.Range("a1").Offset(vrstica, kolona).HasFormula) Then
        ZadnjaCelica = Obseg.Range("a1").Offset(vrstica, kolona).Value
        Exit Function
      End If
    Next
  Next
  
  ZadnjaCelica = ""
End Function

[Toda1]

Najlepša hvala za hiter odgovor, točno to sem rabila.

Hvala!