Hi all!

what I am trying to do is after the combobox is updated, do a searc
for the combobox.value and fill in the remaining textboxes from th
search. what i have is this.

Private Sub combobox1_AfterUpdate()

Dim rng As Range

Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wb = Workbooks.Open("Path")
Set rng = wb.Worksheets(1).Columns(1).find(combobox1.Value)

If rng = True Then
UserForm1.textbox1.value = ActiveCell.Offset(0, 1)
UserForm1.textbox2.value = ActiveCell.Offset(0, 2)
UserForm1.textbox3.value = ActiveCell.Offset(0, 3)
UserForm1.textbox3.value = ActiveCell.Offset(0, 4)
End If

wb.Close True
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub


I'm thinking the problem has to do with the activecell.offset
I am not getting any error message, but the boxes are not bein
filled.

can anyone help

--
Message posted from http://www.ExcelForum.com