G
Guest
I can't get this to work. I receive the error message "Object variable or
with variable not set". Could someone please help. Here is the code:
Private Sub CommandButton1_Click()
Dim OrderToFind
Dim MyValue
OrderToFind = ActiveSheet.Range("E17").Value
MyValue = ActiveSheet.Range("F15").Value
' Check if workbook is already opened.
'On Error Resume Next
Set x = Workbooks("OrderTracking.xls")
If Err = 0 Then
Windows("OrderTracking.xls").Activate
Sheets("To Finish").Activate
Else
Workbooks.Open Filename:="\\Fs1\Material\Scheduling\OrderTracking.xls"
Sheets("To Finish").Activate
End If
Sheets("To Finish").Range("C1").Select
'On Error GoTo Errorhandler
'Find the order numbers comment line
Cells.Find(OrderToFind & " Count").Select
'Offset to the correct column and insert data
ActiveCell.Offset(0, 32).Value = MyValue
Exit Sub
'Errorhandler:
MsgBox "Order number " & OrderToFind & " was not found."
End Sub
Much Thanks,
with variable not set". Could someone please help. Here is the code:
Private Sub CommandButton1_Click()
Dim OrderToFind
Dim MyValue
OrderToFind = ActiveSheet.Range("E17").Value
MyValue = ActiveSheet.Range("F15").Value
' Check if workbook is already opened.
'On Error Resume Next
Set x = Workbooks("OrderTracking.xls")
If Err = 0 Then
Windows("OrderTracking.xls").Activate
Sheets("To Finish").Activate
Else
Workbooks.Open Filename:="\\Fs1\Material\Scheduling\OrderTracking.xls"
Sheets("To Finish").Activate
End If
Sheets("To Finish").Range("C1").Select
'On Error GoTo Errorhandler
'Find the order numbers comment line
Cells.Find(OrderToFind & " Count").Select
'Offset to the correct column and insert data
ActiveCell.Offset(0, 32).Value = MyValue
Exit Sub
'Errorhandler:
MsgBox "Order number " & OrderToFind & " was not found."
End Sub
Much Thanks,