Zoeken gegevens op deel van een naam

[Gerard2348]

Beste Allemaal,

In het verleden heb ik de vraag gesteld om te zoeken op een deel van een naam. Het gedeelte van de onderstaande code wil ik implementeren maar dat lukt mij niet.

With Sheets("Blad3")
        sn = Split(Join(Application.Transpose(.Range("D2:D" & .Cells(Rows.Count, 4).End(xlUp).Row)), ";"), ";")
    End With
    For i = LBound(sn) To UBound(sn)
     Set c = Blad2.Range("B2:F50").Find(sn(i), , , xlPart)
        If Not c Is Nothing Then

Waar het in moet is

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  
  Application.ScreenUpdating = False
       
    If Intersect(Target, Range("K15:K50,P15:P50,P3:P13,U15:U50")) Is Nothing Then Exit Sub
    TeZoekenWaarde = ActiveCell.Offset(, -3)
    
    Set c = Sheets("Skills Medewerkers").Range("B2:B150").Find(TeZoekenWaarde)
    If c Is Nothing Then _
    MsgBox TeZoekenWaarde & vbCrLf & "Naam komt niet overeen"
    If Not c Is Nothing Then _
    MsgBox TeZoekenWaarde & vbCrLf & c.Offset(, 42).Value
    
    Application.ScreenUpdating = True
  
End Sub

Wie kan mij verder helpen.

Bvd
Groet Geer

 

[edmoor]

Wie kan mij verder helpen.

Dat zijn er wel een paar hier, maar met een voorbeeld document gaat dat veel beter.

 

[SjonR]

op helpmij.nl die vraag stellen is ook wel weer leuk toch?

 

[Gerard2348]

Zoals ik al heb aangegeven lukt het mij niet om het werkend te krijgen. Hierbij een voorbeeld

 

[SjonR]

Goedemorgen Gerard,

Jouw VBA-code is niet raadpleegbaar omdat we het wachtwoord niet weten............

Edit:

Met zoeken op de eerste 10 tekens...

TeZoekenWaarde = Left(ActiveCell.Offset(, -3), 10)

Of op alle tekens behalve de laatste 3:

TeZoekenWaarde = Left(ActiveCell.Offset(, -3), Len(ActiveCell.Offset(, -3)) - 3)

Gr.

Sjon

 

[Gerard2348]

Goedemorgen,

Een voorbeeld met een beveiliging er op is wel heel stom . Ik heb de code aangepast en ga deze de komende tijd uitproberen.


Mijn hartelijke dank.

 

[Gerard2348]

Uiteindelijk tot de volgende oplossing gekomen;

Toegevoegd aan de code

TeZoekenWaarde = Split(TeZoekenWaarde, " ")(0)

Dan komt in het bericht alleen de voornaam te staan.

In het blad een extra kolom gebruikt om overtollige spaties te verwijderen.

De volledige code is als volgt

[CODE]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  Application.ScreenUpdating = False
    
    If Intersect(Target, Range("K15:K50,P15:P50,P3:P13,U15:U50")) Is Nothing Then Exit Sub
    TeZoekenWaarde = Left(ActiveCell.Offset(, -3), 10)
    
    Set c = Sheets("Skills Medewerkers").Range("B2:B150").Find(TeZoekenWaarde)
    If c Is Nothing Then _
    MsgBox TeZoekenWaarde & vbCrLf & "Naam komt niet overeen": Exit Sub
    If Not c Is Nothing Then
    TeZoekenWaarde = Split(TeZoekenWaarde, " ")(0)
    End If
    MsgBox TeZoekenWaarde & "," & vbCrLf & "Heeft de volgende eigenschappen" & " " & vbCrLf & vbCrLf & c.Offset(, 43).Value
  Application.ScreenUpdating = True
  
End Sub

 

[SjonR]

Waarom dit stukje?

If Not c Is Nothing Then
    TeZoekenWaarde = Split(TeZoekenWaarde, " ")(0)
End If

Als je het al wilt gebruiken zou je het ook zo kunnen schrijven:

Split(TeZoekenWaarde)(0)

standaardwaarde bij de splitfunctie is een spatie.

 

[Gerard2348]

Ha SjonR,

Allereerst nogmaals hartelijk dank voor je suggestie. Ik ben er blij mee. Ben altijd in voor verbeteringen. Mijn kennis van VBA is helaas na een lange periode nog steeds minimaal.

Het is nu het volgende geworden;

TeZoekenWaarde = Split(TeZoekenWaarde)(0)

mocht je nog verbeteringen hebben..... ik hou mij aanbevolen. :thumb:

 

[edmoor]

Voor een betere leesbaarheid schrijf je dat If stukje zo:

    If c Is Nothing Then
        MsgBox TeZoekenWaarde & vbCrLf & "Naam komt niet overeen"
        Exit Sub
    Else
        TeZoekenWaarde = Split(TeZoekenWaarde, " ")(0)
    End If

 

[Gerard2348]

Ook aangepast. :thumb: