G
Guest
This procedure is not working. After the procedure has run, I can go to
edit>find and it finds my value whats wrong here, please help. It displays
the message for error 91.
Private Sub CommandButton1_Click()
Dim x As Workbook
OrderToFind = ActiveSheet.Range("E17").Value
TrackingWorkbook = "\\Fs1\Material\Scheduling\OrderTracking.xls"
myvalue = ActiveSheet.Range("F15").Value
' Check if workbook is already opened.
On Error Resume Next
Set x = Workbooks("OrderTracking1")
If Err = 0 Then
Windows("OrderTracking1").Activate
Else
Workbooks.Open Filename:=TrackingWorkbook
End If
Sheets("To Finish").Select
'Find the order numbers comment line
Cells.Find(What:=OrderToFind & " Count", LookIn:=xlValues,
LookAt:=xlPart).Activate
If Err = "91" Then
MsgBox "Could not find Order#: " & OrderToFind
Exit Sub
End If
'Offset to the correct column and insert data
ActiveCell.Offset(, 32).Value = myvalue
End Sub
edit>find and it finds my value whats wrong here, please help. It displays
the message for error 91.
Private Sub CommandButton1_Click()
Dim x As Workbook
OrderToFind = ActiveSheet.Range("E17").Value
TrackingWorkbook = "\\Fs1\Material\Scheduling\OrderTracking.xls"
myvalue = ActiveSheet.Range("F15").Value
' Check if workbook is already opened.
On Error Resume Next
Set x = Workbooks("OrderTracking1")
If Err = 0 Then
Windows("OrderTracking1").Activate
Else
Workbooks.Open Filename:=TrackingWorkbook
End If
Sheets("To Finish").Select
'Find the order numbers comment line
Cells.Find(What:=OrderToFind & " Count", LookIn:=xlValues,
LookAt:=xlPart).Activate
If Err = "91" Then
MsgBox "Could not find Order#: " & OrderToFind
Exit Sub
End If
'Offset to the correct column and insert data
ActiveCell.Offset(, 32).Value = myvalue
End Sub