Moving to newly Saved Workbook
 

I have a prob where I can't add data from a worksheet I'm working with and a
new workbook I just created.

original file in E:\
then
ActiveWorkbook.SaveAs Filename:="E:\Archived Logs\" & lz & " Data " & mydate
& ".xls"
Windows("original_file.xls").Activate
Sheets("Data").Select
Range("A3").Activate
hdr_bus = ActiveCell.Value
ActiveCell.Cells(1, 2).Activate
hdr_time = ActiveCell.Value
Windows(lz & "Data " & mydate).Activate
'At this point I expect code to put focus on the new workbook and
start adding data, BUT IT DOESN'T
Sheets("Sheet1").Activate
Range("A1").Activate
ActiveCell.FormulaR1C1 = hdr_bus
ActiveCell.Cells(1, 2).Activate
ActiveCell.FormulaR1C1 = hdr_time

The hdr_bus and hdr_time are written to the original_file.xls, Data
worksheet, range("A3")

I don't want to copy the entire worksheet because there are other areas that
cannot be copied to the new workbook.

Can you help please??

Don

Moving to newly Saved Workbook
 

Try this approach......

Dim wbArchive As Workbook
Dim wbOriginal As Workbook

Set wbArchive = ActiveWorkbook
wbArchive.SaveAs Filename:="E:\Archived Logs\" & lz & " Data " & mydate &
".xls"

Windows("original_file.xls").Activate
Set wbOriginal = ActiveWorkbook

With wbOriginal.Sheets("Data")
wbArchive.Sheets("Sheet1").Range("A1") = .Range("A3").Value
wbArchive.Sheets("Sheet1").Range("A2") = .Range("A4").Value
End With

--

Regards,
Nigel




"DonW" wrote in message
...
I have a prob where I can't add data from a worksheet I'm working with and
a new workbook I just created.

original file in E:\
then
ActiveWorkbook.SaveAs Filename:="E:\Archived Logs\" & lz & " Data " &
mydate & ".xls"
Windows("original_file.xls").Activate
Sheets("Data").Select
Range("A3").Activate
hdr_bus = ActiveCell.Value
ActiveCell.Cells(1, 2).Activate
hdr_time = ActiveCell.Value
Windows(lz & "Data " & mydate).Activate
'At this point I expect code to put focus on the new workbook and
start adding data, BUT IT DOESN'T
Sheets("Sheet1").Activate
Range("A1").Activate
ActiveCell.FormulaR1C1 = hdr_bus
ActiveCell.Cells(1, 2).Activate
ActiveCell.FormulaR1C1 = hdr_time

The hdr_bus and hdr_time are written to the original_file.xls, Data
worksheet, range("A3")

I don't want to copy the entire worksheet because there are other areas
that cannot be copied to the new workbook.

Can you help please??

Don

Moving to newly Saved Workbook
 

Thank you Nigel, I'll give it a try.....

Don

"Nigel" wrote in message
...
Try this approach......

Dim wbArchive As Workbook
Dim wbOriginal As Workbook

Set wbArchive = ActiveWorkbook
wbArchive.SaveAs Filename:="E:\Archived Logs\" & lz & " Data " & mydate &
".xls"

Windows("original_file.xls").Activate
Set wbOriginal = ActiveWorkbook

With wbOriginal.Sheets("Data")
wbArchive.Sheets("Sheet1").Range("A1") = .Range("A3").Value
wbArchive.Sheets("Sheet1").Range("A2") = .Range("A4").Value
End With

--

Regards,
Nigel




"DonW" wrote in message
...
I have a prob where I can't add data from a worksheet I'm working with and
a new workbook I just created.

original file in E:\
then
ActiveWorkbook.SaveAs Filename:="E:\Archived Logs\" & lz & " Data " &
mydate & ".xls"
Windows("original_file.xls").Activate
Sheets("Data").Select
Range("A3").Activate
hdr_bus = ActiveCell.Value
ActiveCell.Cells(1, 2).Activate
hdr_time = ActiveCell.Value
Windows(lz & "Data " & mydate).Activate
'At this point I expect code to put focus on the new workbook and
start adding data, BUT IT DOESN'T
Sheets("Sheet1").Activate
Range("A1").Activate
ActiveCell.FormulaR1C1 = hdr_bus
ActiveCell.Cells(1, 2).Activate
ActiveCell.FormulaR1C1 = hdr_time

The hdr_bus and hdr_time are written to the original_file.xls, Data
worksheet, range("A3")

I don't want to copy the entire worksheet because there are other areas
that cannot be copied to the new workbook.

Can you help please??

Don

Moving to newly Saved Workbook
 

Now, Nigel, let's assume the data grows, how could I use your suggestion to
loop through, not only the header data - on row A3 in original file, but
also all of my data?

Don

"DonW" wrote in message
...
Thank you Nigel, I'll give it a try.....

Don

"Nigel" wrote in message
...
Try this approach......

Dim wbArchive As Workbook
Dim wbOriginal As Workbook

Set wbArchive = ActiveWorkbook
wbArchive.SaveAs Filename:="E:\Archived Logs\" & lz & " Data " & mydate &
".xls"

Windows("original_file.xls").Activate
Set wbOriginal = ActiveWorkbook

With wbOriginal.Sheets("Data")
wbArchive.Sheets("Sheet1").Range("A1") = .Range("A3").Value
wbArchive.Sheets("Sheet1").Range("A2") = .Range("A4").Value
End With

--

Regards,
Nigel




"DonW" wrote in message
...
I have a prob where I can't add data from a worksheet I'm working with
and a new workbook I just created.

original file in E:\
then
ActiveWorkbook.SaveAs Filename:="E:\Archived Logs\" & lz & " Data " &
mydate & ".xls"
Windows("original_file.xls").Activate
Sheets("Data").Select
Range("A3").Activate
hdr_bus = ActiveCell.Value
ActiveCell.Cells(1, 2).Activate
hdr_time = ActiveCell.Value
Windows(lz & "Data " & mydate).Activate
'At this point I expect code to put focus on the new workbook
and start adding data, BUT IT DOESN'T
Sheets("Sheet1").Activate
Range("A1").Activate
ActiveCell.FormulaR1C1 = hdr_bus
ActiveCell.Cells(1, 2).Activate
ActiveCell.FormulaR1C1 = hdr_time

The hdr_bus and hdr_time are written to the original_file.xls, Data
worksheet, range("A3")

I don't want to copy the entire worksheet because there are other areas
that cannot be copied to the new workbook.

Can you help please??

Don