Code:
Function nzadnji(vrijednost)
Dim i, zadnjired
zadnjired = Range("F" & Rows.Count).End(xlUp).Row
For i = zadnjired To 1 Step -1
If Cells(i, "F").Value = vrijednost Then
nzadnji = Cells(i, "F").Address(0, 0)
Exit For
End If
Next
End Function
Function nzadnji(vrijednost)
Dim i, zadnjired
zadnjired = Range("F" & Rows.Count).End(xlUp).Row
For i = zadnjired To 1 Step -1
If Cells(i, "F").Value = vrijednost Then
nzadnji = Cells(i, "F").Address(0, 0)
Exit For
End If
Next
End Function
Funkcija dobro radi, ali ako se u koloni F doda još jedna vrijednost neće da se preračuna nego se mora ponovo ići na ćeliju u kojoj je formula upisana i preračunati je ručno. Na netu sam našao da se nakon reda
Code:
Dim i, zadnjired
doda red Dim i, zadnjired
Code:
Application.Volatile
funkcija će se preracunavati, ali da ako se funkcija koristi mnogo puta može značajno da se uspori. U fajlu imam vec mnogo matričnih formula. Postoji li način da se napiše ova funkcija, a da ne izgubi na efikasnosti.
Application.Volatile