Een deel van de tekst

[libregts65]

Ik zoek in mijn volgende code een oplossing voor het zoeken naar een deel opdracht.
Nu moet ik dus de totale tekst juist inkloppen om het bestand terug te vinden.

Private Sub cmdSearch_Click()
Dim x As Long
Dim y As Long
x = Sheets("Worksheet").Range("A" & Rows.Count).End(xlUp).Row
For y = 7 To x
If Sheets("Worksheet").Cells(y, 2).Value = txtSearch.Text Then
txtDeelopdracht = Sheets("Worksheet").Cells(y, 1).Value
txtProjectnaam = Sheets("Worksheet").Cells(y, 2).Value
cmbGebied = Sheets("Worksheet").Cells(y, 3).Value
txtOpmerkingen = Sheets("Worksheet").Cells(y, 4).Value
cmbAannemer = Sheets("Worksheet").Cells(y, 5).Value
txtVersionnr = Sheets("Worksheet").Cells(y, 6).Value
txtBederagDoExcl = Sheets("Worksheet").Cells(y, 7).Value
txtBedergDoIncl = Sheets("Worksheet").Cells(y, 8).Value
txtDatumDo = Sheets("Worksheet").Cells(y, 9).Value
txtDeelFacNr = Sheets("Worksheet").Cells(y, 10).Value
txtDeelFacDatum = Sheets("Worksheet").Cells(y, 11).Value
txtDeelExcl = Sheets("Worksheet").Cells(y, 12).Value
txtDeelIncl = Sheets("Worksheet").Cells(y, 13).Value
txtEindFacNr = Sheets("Worksheet").Cells(y, 14).Value
txtEindFacDatum = Sheets("Worksheet").Cells(y, 15).Value
txtEindExcl = Sheets("Worksheet").Cells(y, 16).Value
txtEindIncl = Sheets("Worksheet").Cells(y, 17).Value
txtOpenExcl = Sheets("Worksheet").Cells(y, 18).Value
txtOpenIncl = Sheets("Worksheet").Cells(y, 19).Value

End If
Next y

End Sub

BV Helftheuvelweg is het totale woord, maar ik wil bv als ik Helft in zou tikken dat hij hem vind of bij bv helft etc
Wie kan mij hierbij op weg helpen

 

[sylvester-ponte]

libregts, je zit hier al vanaf 2013, is het nog niet bekend dat je een bestandje mee kan stuuren?

 

[SjonR]

zo?

Private Sub cmdSearch_Click()
Dim x As Long
Dim y As Long
x = Sheets("Worksheet").Range("A" & Rows.Count).End(xlUp).Row
For y = 7 To x
If [COLOR="#FF0000"]InStr(Sheets("Worksheet").Cells(y, 2).Value, txtSearch.Text)[/COLOR] Then
txtDeelopdracht = Sheets("Worksheet").Cells(y, 1).Value
txtProjectnaam = Sheets("Worksheet").Cells(y, 2).Value
cmbGebied = Sheets("Worksheet").Cells(y, 3).Value
txtOpmerkingen = Sheets("Worksheet").Cells(y, 4).Value
cmbAannemer = Sheets("Worksheet").Cells(y, 5).Value
txtVersionnr = Sheets("Worksheet").Cells(y, 6).Value
txtBederagDoExcl = Sheets("Worksheet").Cells(y, 7).Value
txtBedergDoIncl = Sheets("Worksheet").Cells(y, 8).Value
txtDatumDo = Sheets("Worksheet").Cells(y, 9).Value
txtDeelFacNr = Sheets("Worksheet").Cells(y, 10).Value
txtDeelFacDatum = Sheets("Worksheet").Cells(y, 11).Value
txtDeelExcl = Sheets("Worksheet").Cells(y, 12).Value
txtDeelIncl = Sheets("Worksheet").Cells(y, 13).Value
txtEindFacNr = Sheets("Worksheet").Cells(y, 14).Value
txtEindFacDatum = Sheets("Worksheet").Cells(y, 15).Value
txtEindExcl = Sheets("Worksheet").Cells(y, 16).Value
txtEindIncl = Sheets("Worksheet").Cells(y, 17).Value
txtOpenExcl = Sheets("Worksheet").Cells(y, 18).Value
txtOpenIncl = Sheets("Worksheet").Cells(y, 19).Value

End If
Next y

End Sub

 

[libregts65]

Bestand

Staat erbij nu

 

[libregts65]

Thanks

Dat is wat ik zocht bedankt voor de snelle oplossing

 

[VenA]

Ik heb deze maar even opgedaan over smaken valt niet te twisten maar hier wil toch geen mens mee werken?

 

[emields]

Probeer deze maar eens.