Beste,
Zodra ik in de "txtBarcode" de serial no invoer komen de gegevens jammer genoeg niet te voorschijn..dit is de code die er momenteel in staat:
Zodra ik deze serial code invoer in txtBarcode zie in bij BranchPlant de plant wel naar voren komen maar de userform sluit zich hierna gelijk.
iemand enig idee wat ik hier fout doe ?
Groetjes.
Zodra ik in de "txtBarcode" de serial no invoer komen de gegevens jammer genoeg niet te voorschijn..dit is de code die er momenteel in staat:
Code:
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
On Error Resume Next
With Sheets("hal28_members")
txtBarcode.RowSource = .Name & "!" & .Cells(2, 1).CurrentRegion.Address
End With
End Sub
Private Sub Cmd_Opzoeken_Click()
Dim code As Range
With Worksheets("hal28_members")
Set code = .Range("A:I").Find(txtBarcode.Value, LookIn:=xlValues, Lookat:=xlWhole)
For i = 1 To 11
Me("TextBox" & i) = .Cells(code.Row, i)
End
Next
End With
End Sub
Private Sub CommandButton4_Click()
Dim code As Range
With Worksheets("Hal28_members")
Set code = .Range("A:I").Find(txtBarcode.Value, LookIn:=xlValues, Lookat:=xlWhole)
For i = 1 To 11
.Cells(code.Row, i) = Me("TextBox" & i)
Next
End With
End Sub
Zodra ik deze serial code invoer in txtBarcode zie in bij BranchPlant de plant wel naar voren komen maar de userform sluit zich hierna gelijk.
iemand enig idee wat ik hier fout doe ?
Groetjes.
Laatst bewerkt: