J
Joe
Does anyone know how to use the xlRoutingComplete feature, so that when the
routing is complete it updates an excel file on the same network drive?
Listed below are two examples
1) The only xlRoutingComplete example I can find
2) What I kind of want to do
The only xlRoutingComplete example I can find:
This example resets the routing slip for Book1.xls if routing has been
completed.
With Workbooks("BOOK1.XLS").RoutingSlip
If .Status = xlRoutingComplete Then
.Reset
Else
MsgBox "Cannot reset routing; not yet complete."
End If
End With
What I kind of want to do
With ActiveWorkbook.RoutingSlip
If .Status = xlRoutingComplete Then
'Create LogWorkbook object and open Track_Bookings
Set LogWorkbook = Workbooks.Open("C:\Documents and
Settings\wisej\Desktop\Track_Bookings.xls")
'Finds the last cell with data in column B of the sheet
'Offset by 1 row so data will be entered on the first blank line
after
Set RngData = LogWorkbook.Sheets("Track_Bookings").Cells(Rows.Count,
2).End(xlUp).Offset(1, 0)
'Just in case column E is blank and the range was set somewhere
above F6
If RngData.Row <= 6 Then Set RngData =
LogWorkbook.Sheets("Track_Bookings").Range("F6")
RngData.Offset(0, 1).Value = FormatDateTime(Now, vbLongDate)
RngData.Offset(0, 2).Value = FormatDateTime(Now, vbLongTime)
'Save changes and close workbook
LogWorkbook.Close SaveChanges:=True
Else
.Recipients = "Wise Joe"
End If
End With
Any help would be greatly appreciated!
Joe
routing is complete it updates an excel file on the same network drive?
Listed below are two examples
1) The only xlRoutingComplete example I can find
2) What I kind of want to do
The only xlRoutingComplete example I can find:
This example resets the routing slip for Book1.xls if routing has been
completed.
With Workbooks("BOOK1.XLS").RoutingSlip
If .Status = xlRoutingComplete Then
.Reset
Else
MsgBox "Cannot reset routing; not yet complete."
End If
End With
What I kind of want to do
With ActiveWorkbook.RoutingSlip
If .Status = xlRoutingComplete Then
'Create LogWorkbook object and open Track_Bookings
Set LogWorkbook = Workbooks.Open("C:\Documents and
Settings\wisej\Desktop\Track_Bookings.xls")
'Finds the last cell with data in column B of the sheet
'Offset by 1 row so data will be entered on the first blank line
after
Set RngData = LogWorkbook.Sheets("Track_Bookings").Cells(Rows.Count,
2).End(xlUp).Offset(1, 0)
'Just in case column E is blank and the range was set somewhere
above F6
If RngData.Row <= 6 Then Set RngData =
LogWorkbook.Sheets("Track_Bookings").Range("F6")
RngData.Offset(0, 1).Value = FormatDateTime(Now, vbLongDate)
RngData.Offset(0, 2).Value = FormatDateTime(Now, vbLongTime)
'Save changes and close workbook
LogWorkbook.Close SaveChanges:=True
Else
.Recipients = "Wise Joe"
End If
End With
Any help would be greatly appreciated!
Joe