Opgelost Textboxen Vergelijken met een rij ?

[Excelvbas01]

Ik kom toch terug op mijn verzoek/vraag. Ik heb eerder gezegd dat ik t had opgelost.
Ik gebruik deze code maar het werkt niet meer. Ik weet niet waarom deze code niet meer werkt.
Hopelijk weet iemand een oplossing.

Dim rngCell As Range
    Dim bMatch As Boolean
    Dim vVal
    Dim cVal
    
    vVal = txtNumber
    cVal = txtID
    bMatch = WorksheetFunction.CountIf(Range("A2:A50"), vVal) <> 0 & WorksheetFunction.CountIf(Range("B2:B50"), cVal) <> 0
        
 If bMatch Then MsgBox ("Is niet aanwezig.")

 

[Warme bakkertje]

Ik sta nog steeds achter de code die ik in post #15 geplaatst heb.
Plaats anders een voorbeeldbestand dat een exacte weerspiegeling is van de huidige data zodat wij kunnen zien waar het misgaat.

 

[Excelvbas01]

op eerste blad staan Unique namen en op sheet1 staan alle namen ook dubbel.
Via textboxen wil kijken of naam en nummer voorkomt.

zie bestandje.

 

[Warme bakkertje]

Private Sub txtID_Change()
    Dim bMatch As Boolean
    Dim vVal
    Dim cVal
    
    vVal = txtNumber
    cVal = txtID
    bMatch = Application.CountIf(Blad2.Range("A2:A50"), vVal) <> 0 & Application.CountIf(Blad2.Range("B2:B50"), Val(cVal)) <> 0
    lblResultaat = bMatch
        
    If bMatch Then MsgBox ("Is niet aanwezig.")
End Sub

 

[Excelvbas01]

Een of ander manier wil het maar niet lukken. Uitslag is altijd waar.

 

[Warme bakkertje]

Zoals ik vroeger al gezegd heb, jouw code houd geen steek.

Private Sub txtID_Change()
    With Sheets("Sheet1")
        evalStr = Evaluate("Match(" & Chr(34) & txtNumber.Value & Chr(34) & "&CHAR(5)&" & Chr(34) & txtID.Value & Chr(34) & "," & _
                        .Range("A2:A50").Address(, , , True) & "&CHAR(5)&" & .Range("B2:B50").Address(, , , True) & ",0)")
        If IsError(evalStr) Then
            lblResultaat.Caption = "False"
            MsgBox "Is niet aanwezig", vbInformation + vbOKOnly
        Else
            lblResultaat.Caption = "True"
        End If
    End With
End Sub

 

[Excelvbas01]

Top. Bedankt Warme bakkertje.
Deze code werk prima.
Ik wilde eenvoudige code en dacht oplossing te hebben gevonden. Helaas werkte die code niet.

Over de code hier boven:
Ik zou graag willen weten wat deze stukje code is/doet. "Chr(34)"

Nog een ding als het mag.
Hoe kan ik True/False veranderen in totaal aantal treffers
Bv. Telefoon met nummer 1 komt 3x voor. In plaats van True wordt het dus 3.

 

[edmoor]

De Chr(34) is een dubbele quote.

 

[Warme bakkertje]

Gooi deze er eens tegen.

Private Sub txtID_Change()

    Dim bMatch As Long

    bMatch = Evaluate("countifs(sheet1!a2:a50,""" & txtNumber & """,sheet1!b2:b50," & txtID & ")")

    lblResultaat.Caption = bMatch
        
End Sub

 

[Excelvbas01]

De Chr(34) is een dubbele quote.

Bedankt

 

[Excelvbas01]

Gooi deze er eens tegen.

Private Sub txtID_Change()

    Dim bMatch As Long

    bMatch = Evaluate("countifs(sheet1!a2:a50,""" & txtNumber & """,sheet1!b2:b50," & txtID & ")")

    lblResultaat.Caption = bMatch
       
End Sub

Werkt goed, Dank daarvoor. Maar als het nummer toeging heeft bv. Telefoon 1 b, dan krijg ik foutmelding. "Typen komen niet overeen". Ik heb zitten googelen maar kom er niet uit. Is dit op te lossen.

 

[Warme bakkertje]

Ik heb een extra set Textboxen bijgezet zodat je beide codes (False/True en Aanta)l kunt testen.

PS Heb de Aantal code aangepast want er was inderdaad een aanpassing nodig omdat 1 b een string is en niet enkel een getal.

 

[Excelvbas01]

Ik heb beiden getest. Het ziet er goed uit.
Top. Nogmaals dank.

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost.

 

[Excelvbas01]

Na een een aantal keren te hebben getest kom ik er achter dat een ding niet helemaal goed gaat.
Op het moment dat txtId leegt is, krijg ik 0 in de lblResultaat. Het zou moeten zijn 1. Zou zou t moeten gaan. Als een item geen nummer heeft en het staat op de lijst dan zou je dit ook moeten zien.

Ik heb een bestand bijgedaan voor voorbeeld.

 

[Warme bakkertje]

Zo dan?

 

[Warme bakkertje]

Vervang de code in het bestand van vorige post naar deze.
Er word rekening gehouden met de tabeleigenschappen zodat je je geen zorgen meer moet maken over de bereiken in de code. Nu worden ze automatisch aangepast aan groeiende bereiken.

Private Sub lMatch()
    Dim bMatch As Long
    With Blad2.ListObjects(1).DataBodyRange
        If txtID <> vbNullString Then
            bMatch = Evaluate("countifs(" & .Columns(1).Address(, , , True) & ",""" & _
                        txtNumber & """," & .Columns(2).Address(, , , True) & "," & txtID & ")")
        Else
            bMatch = Evaluate("countif(" & .Columns(1).Address(, , , True) & ",""" & txtNumber & """)")
        End If
    End With
    lblResultaat.Caption = bMatch
End Sub

 

[Excelvbas01]

Bedankt voor het meedenken. Ik heb dat opgelost denk ik door alleen kolom aan te geven, sheet1!A:A.
Die probeer ik fijn te stemmen. Echter ik loop tegen een ding aan.
Op het moment dat alleen txtId is ingevuld en txtNummer niet, dan krijg ik alle resultaten te zien wat niet de bedoeling is. Dit gebeurt niet bij alle items. Bij sommigen items werk de formule goed en bij andere weer niet. Ik ben nu aan het uitzoeken waar dit aanligt.

Het gaat om deze code:

bMatch = Evaluate("COUNTIF(sheet1!a2:a50,""" & txtNumber & """)")

Ik heb de code die jij hebt gepost geprobeerd en ik krijg hetzelfde probleem.

 

[Warme bakkertje]

Dit is nu al de 3de maal dat je je vraag wijzigt.
Eerst was het een combinatie van beide, dan was het txtNumber alleen en nu kom je weer af met txtId alleen
Post een voorbeeldbestand met werkelijke nummers en Id's en met alle voorkomende situaties zodat ik alles ineens kan testen.

 

[Excelvbas01]

Ik snap je reactie. Elke keer kom ik met iets anders....

Ik wil je bedanken voor je hulp en ik laat het hierbij.