zoek functie

[Relleboer]

Hoe kan ik onderstaande code aanpassen zodat hij niet alleen op de volledige waarde zoekt (6 a 8 getallen met daarachter twee letters). Maar alleen op de cijfers

Private Sub CommandButton1_Click()
Dim Zoekwaarde As String
Dim letter
letter = TextBox1.Value
Zoekwaarde = UCase(letter)
Rij = 1
Do Until Cells(Rij, 3).Value = ""
If Cells(Rij, 3).Value = Zoekwaarde Then
TextBox2.Value = "E" & Cells(Rij, 3).Offset(0, -1).Value
TextBox3.Value = Cells(Rij, 3).Value

End If

TextBox1.Value = ""
Rij = Rij + 1
Loop


End Sub

 

[Wigi]

Zoiets?

Private Sub CommandButton1_Click()
Dim Zoekwaarde As String
Dim letter
letter = TextBox1.Value
Zoekwaarde = UCase(letter)
Rij = 1
Do Until Cells(Rij, 3).Value = ""
[B]If Left(Cells(Rij, 3).Value, 6) = letter Then[/B]
TextBox2.Value = "E" & Cells(Rij, 3).Offset(0, -1).Value
TextBox3.Value = Cells(Rij, 3).Value

End If

TextBox1.Value = ""
Rij = Rij + 1
Loop

End Sub

 

[Relleboer]

Zoiets?

Private Sub CommandButton1_Click()
Dim Zoekwaarde As String
Dim letter
letter = TextBox1.Value
Zoekwaarde = UCase(letter)
Rij = 1
Do Until Cells(Rij, 3).Value = ""
[B]If Left(Cells(Rij, 3).Value, 6) = letter Then[/B]
TextBox2.Value = "E" & Cells(Rij, 3).Offset(0, -1).Value
TextBox3.Value = Cells(Rij, 3).Value

End If

TextBox1.Value = ""
Rij = Rij + 1
Loop

End Sub

Het probleem is dat de gezochte code kan zijn bijv 93909 F 11804 FF, 457889 A, 131.8756 G. en noem maar op. hij werkt nu zoals ik hem zelf heb prima mits je de hele code invoert incl de letters. Maar natuurlijk gaat er vaak met een stuk communicatie de goede letters verloren. dus moeilijk terug te vinden dan als we zoeken in de database.

 

[Wigi]

Zo dan?

Private Sub CommandButton1_Click()
Dim Zoekwaarde As String
Dim letter
letter = TextBox1.Value
Zoekwaarde = UCase(letter)
Rij = 1
Do Until Cells(Rij, 3).Value = ""
[B]If Instr(Cells(Rij, 3).Value, letter) = 1 Then[/B]
TextBox2.Value = "E" & Cells(Rij, 3).Offset(0, -1).Value
TextBox3.Value = Cells(Rij, 3).Value

End If

TextBox1.Value = ""
Rij = Rij + 1
Loop

End Sub

 

[Relleboer]

Bijna want het is de bedoeling als de letters wel worden ingegeven dat hij het nog steeds vind en dat doet hij nu niet.

 

[Wigi]

Wat wordt er dan in die textbox ingegeven?

Als je al eens begint met de variabele letter te declareren, dat zou al wat duidelijker zijn dan.

 

[Relleboer]

in de textbox word een code ingevoerd als 93109 F en geeft het programa de code terug van de QC standard.