Predmet:Re: kako koristiti vise kriterija u vba excel
hvala na trudu
evo u meduvremnu pronasao nesto na internetu malo sam preuredio i neke stvari izbacio :
koristimo ovako :
PreuzmiIzvorni kôd (Text):sub proba()
if Two_Con_Vlookup(Range(Cells(odReda, odKolone), Cells(doReda, doKolone)), traziA, traziB) = False Then
'ako nije nasao
msgbox "greska"
end if
end sub
Function Two_Con_Vlookup(Table_Range As Range, Col1_Fnd, Col2_Fnd) As Boolean
Dim rCheck As Range
Dim bFound As Boolean
Dim lLoop As Long
On Error Resume Next
Set rCheck = Table_Range.Columns(1).Cells(1, 1)
With WorksheetFunction
For lLoop = 1 To .CountIf(Table_Range.Columns(1), Col1_Fnd)
Set rCheck = Table_Range.Columns(1).Find(Col1_Fnd, rCheck, xlValues, xlWhole, xlNext, xlRows, False)
If UCase(rCheck(1, 2)) = UCase(Col2_Fnd) Then
bFound = True
Exit For
End If
Next lLoop
End With
If bFound = True Then
Two_Con_Vlookup = True
Else
Two_Con_Vlookup = False
End If
End Function
zivot je moja domovina.
Ovaj post je ureden
1
puta. Posljednja izmjena 05.08.2018 07:21 od strane Avko.