Nisam uspeo da to rešim koristeći standardni skup funkcija, pa sam napravio novu funkciju koja to radi. Funkcija preskače skrivene redove koji su rezultat postavljenog filtera:
Code:
Function NadjiPrvi(tblFilter As Range, colnum As Long) As String
' Vraca sadrzaj prve celije ispod zaglavlja tabele
' pri cemu preskace filtrirane redove
'
' tblFilter je opseg celija na koji se postavlja filter
' colnum je broj kolone iz koje se trazi prva celija
'
' P.Jovanovic za elitesecurity.org
'
Dim r As Long
r = 2
While tblFilter.Rows(r).Hidden
r = r + 1
Wend
NadjiPrvi = tblFilter.Cells(r, colnum).Text
End Function
Nakon što kreiraš funkciju, u tvom primeru u ćeliji D4 treba da upišeš
Code:
=NadjiPrvi(Export_za_excel,12)
Nije to loše Rembrante, samo što ne bi dodao još malo boje?