Vlookup in userform geeft problemen

[SjonR]

Ik gebruik de volgende code om drie textboxen in een userform te vullen. Dit werkt perfect als er een registratienummer wordt ingevoerd met format

XX12345678

Er staan echter ook registratienummers met louter getallen in.

1234567890.

Bij deze gevallen geeft het een foutmelding en sluit excel zich af.

Ik heb al geprobeerd Clng in de code te gebruiken. Dan draait het probleem zich om en krijg ik een foutmelding bij de registratienummers met twee letters er in.

Hoe kan ik dit oplossen?

Update: met registratienummer 1000000000 doet ie het wel. zijn de andere nummers te groot of zoiets.

 Private Sub Reg1_AfterUpdate()
 
 If WorksheetFunction.CountIf(Blad2.Range("A:A"), Me.reg1.Value) = 0 Then
 MsgBox "Dit GVA-nummer staat niet in de lijst"
 Me.reg1.Value = ""
 Exit Sub
 End If

 With Me
    .reg2 = Application.WorksheetFunction.VLookup((Me.reg1), Blad2.Range("zoek"), 2, 0)
    .reg3 = Application.WorksheetFunction.VLookup((Me.reg1), Blad2.Range("zoek"), 3, 0)
    .reg4 = Application.WorksheetFunction.VLookup((Me.reg1), Blad2.Range("zoek"), 4, 0)
 End With

 

[HSV]

Isnumeric is de truc.

De code iets sneller gemaakt met door een array en Match.

Private Sub Reg1_AfterUpdate()
 reg1.Value = UCase(reg1.Value)
 If WorksheetFunction.CountIf(Blad2.Range("A:A"), reg1.Value) = 0 Then
     MsgBox "Dit GVA-nummer staat niet in de lijst"
     reg1.Value = ""
    Exit Sub
Else
 With Blad2.Cells(1).CurrentRegion
  sn = .Value
  sq = .Columns(1).Value
[COLOR=#0000ff]    If IsNumeric(reg1) Then[/COLOR]
[COLOR=#0000ff]       rw = Application.Match(Val(reg1), sq, 0)[/COLOR]
[COLOR=#0000ff]     Else[/COLOR]
[COLOR=#0000ff]       rw = Application.Match(reg1, sq, 0)[/COLOR]
[COLOR=#0000ff]     End If[/COLOR]
       reg2 = sn(rw, 2)
       reg3 = sn(rw, 3)
       reg4 = sn(rw, 4)
    End With
 End If
 End Sub

 

[SjonR]

Bedankt, ik ga het morgenochtend proberen.

 

[snb]

Dat kan veel robuuster met een combobox en een frame.

 

[SjonR]

@ Harry,

werkt perfect.

@SNB

Werkt niet zoals ik het wil, want nu zou ik de hele lijst moeten doorscrollen.

Allebei bedankt voor de oplossing.

Gr.

Sjon

 

[snb]

Bestudeer de suggestie eerst grondiger voor je een oordeel geeft. En kijk vooral eens naar de eigenschap style van de combobox.

 

[SjonR]

Snb

ik wil sowieso niet dat er een combobox wordt gebruikt, om te voorkomen dat er een verkeerd nummer wordt gebruikt. nummers lijken verschrikkelijk veel op elkaar.

 

[snb]

dan snap je niets van het voorbeeld dat ik je stuurde.

 

[SjonR]

Dat zal dan zo zijn.