Hi thanks for your responses so far. Trying to upload my worksheet but comp appears to be on last legs and is not responding.
My prob with text boxes is that if I want to change the data once it appears in the userform then the users could put anything down rather than being locked into a selection of variety (which contains over 100 pre defined options). currently using this code to do the batch lookup function and complete the one additional text box I have but again not working for listboxes:
Private Sub BatchNoTxt_change()
Dim BatchFound As Range
With Range("Batch")
Set BatchFound = .Find(BatchNoTxt.Value)
Set Categoryfound = .Find(BatchNoTxt.Offset(0, 1))
If BatchFound Is Nothing Then
MsgBox "Batch No. does not exist"
BatchNoTxt.Value = ""
Else
With Range(BatchFound.Address)
QtySupTB2 = .Offset(0, 10)
CategoryLst = Categoryfound
'VarietyLst2 = .Offset(0, 3)
'SupplierLst2 = .Offset(0, 5)
End With
End If
End With
End Sub
Bookmarks