Predmet:Re: kako koristiti vise kriterija u vba excel
namucio se.
neke celije nisu string
neke celije koje usporedujem su long ili single
ona prije funkcija pretrazuje cijelu tablu rangiranu sa rng dok ova usporeduje samo 1 kolonu i 2 kolonu
shvatio poantu , a to je suziti pretragu na dvije kolone koje trebam.
vrijeme pretrage smanjo sa 64,63 sec na 18,77 sec
na pocetku sam htio staviti u VBA index(match ) funkciju ali se na kraju svelo na obicnu for-next petlju
Function trazi(Col1_Fnd As Long, Col2_Fnd As Long, zadnjiRed As Long, kolona As Single) As Boolean
trazi = False'stavlja na default
Dim I As Integer
For I = 1 To zadnjiRed
If Col1_Fnd = Cells(I, kolona).Value And Col2_Fnd = Cells(I, kolona + 1).Value Then
trazi = True 'ako je nasao stavlja na true
Exit Function 'izlazi iz funkcije
End If
Next I
'ako nije nasao ostaje na default tj false
Exit Function
End Function
hvala
zivot je moja domovina.