Find met meerdere criteria

[Phyxsius]

Hoi,

Ik zou in VBA een zoekfunctie willen programmeren, welke de rijnummer moet teruggeven van een rij waarvan de waarden in eerste 3 kolommen alledrie voldoen aan een eigen criterium.

Zie bestand in bijlage voor uitleg en voorbeeld.

De Find functie voor 1 criterium gebruik ik al, maar heb geen flauw idee HOE en OF ik dit kan uitbreiden naar 3 criteria.

Alvast bedankt !

 

[WHER]

Misschien niet echt wat je in gedachten had, maar toch beter als niets.

 

[Phyxsius]

Misschien niet echt wat je in gedachten had, maar toch beter als niets.

hmm, volgens mij doet ie wat ik wil, maar zou je misschien de opbouw van die code kunnen uitleggen ?
Ik ben een VBA leek en dit zegt me helemaal niks

Ook zou ik het resultaat in VBA willen stockeren in een variabele. Zou je die code ook erbij kunnen zetten aub ?
bv. Set c = ....

alvast bedankt !

PS: als er nog andere mensen suggesties hebben om dit toch rechtstreeks in VBA te programmeren ipv met celreferenties te werken hoor ik ze graag

 

[WHER]

Bestand aangepast, het resultaat wordt nu aan variabele c toegewezen. Indien je de voorlaatste code-lijn actief maakt, wordt cel H2 ook terug leeggemaakt.
De code plaatst gewoon een Matrix-worksheetformule in cel H2, en laat die het resultaat berekenen.
Ik doe dit zo omdat ik zelf een halve VBA-leek ben, zoals je opmerkt zou het eleganter zijn dit rechtstreeks in VBA uit te werken.

 

[RvanGalenLast]

Een mogelijke oplossing in VBA. Ik ben ook niet bekend met de methode Find binnen (VBA) met meerdere criteria maar dit werkt prima.

Sub VeelVinden()
Dim c1 As String
Dim i, c2, c3 As Integer

    [h2].ClearContents
    For i = 2 To Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    c1 = Cells(i, 1)
    c2 = Cells(i, 2)
    c3 = Cells(i, 3)
        If c1 = [f2] And c2 = [f3] And c3 = [f4] Then
            [h2] = i
        Else: MsgBox "Deze combinatie bestaat niet" 'geldt voor de getallen combinatie 2,3
        End If
    Next
End Sub

Voor wat betreft het vastzetten van het resultaat als een variabele geldt dat binnen VBA de inhoud van een variabele gewist wordt zodra de procedure gereed is.

 

[RvanGalenLast]

Kleine correctie op de code. Die moet zijn:

Sub VeelVinden()
Dim c1 As String
Dim i, c2, c3 As Integer

    [h2].ClearContents
    For i = 2 To Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    c1 = Cells(i, 1)
    c2 = Cells(i, 2)
    c3 = Cells(i, 3)
        If c1 = [f2] And c2 = [f3] And c3 = [f4] Then
            [h2] = i
        End If
    Next
    If IsEmpty([h2]) Then
        MsgBox "Deze combinatie bestaat niet" 'geldt voor de getallen combinatie 2,3
    End If

Anders krijg je wel erg vaak de message box.

 

[Jack Nouws]

Of Met de gevonden rij in kleur

Dim c1 As String
Dim i, c2, c3 As Integer
    
 [A2:D10].Interior.ColorIndex = xlNone
 [h2].ClearContents
    For i = 2 To Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    c1 = Cells(i, 1)
    c2 = Cells(i, 2)
    c3 = Cells(i, 3)
        If c1 = [f2] And c2 = [f3] And c3 = [f4] Then
           [h2] = i
           Cells(i, 1).Resize(, 4).Interior.ColorIndex = 3
        End If
    Next
    If IsEmpty([h2]) Then
        MsgBox "Deze combinatie bestaat niet" 'geldt voor de getallen combinatie 2,3
    End If

Met vr gr
Jack