Find and offset in named Range
I have a userform that allows users to select from a combo box the
title of a project they want to open. There is also a combo box to
select the work order number. The range "DATA" is a set of information
organized with the project title and work order number 6 cells below
it.
If Me.cboProject_Title_Select.Value = "" Then
Set PROJECTTITLE =
(Range("DATA").Find(What:=Me.cboWork_Order_Number_ Select.Value).Offset(-6,
0).Value)
WORKORDER = Me.cboWork_Order_Number_Select.Value
Else
If Me.cboWork_Order_Number_Select.Value = "" Then
Set WORKORDER =
Range("DATA").Find(What:=Me.cboProject_Title_Selec t.Value).Offset(6, 0)
PROJECTTITLE = Me.cboProject_Title_Select.Value
End If
I keep getting an Error 1004 message on:
Set PROJECTTITLE = (Range("DATA").Find_
What:=Me.cboWork_Order_Number_Select.Value).Offset (-6, 0).Value)
What is wrong with my code? arg!
|