Copy Cells
 

Hi,

I have 2 workbooks:
# 1 Workbook.("TBD.xls").worksheet("Sheet1")

#2 is a workbook that I open with this VBA macro:
fName = Application.GetOpenFilename
Workbooks.Open filename:=fName
I also have this VBA Macro for fname
blastrow = Cells(Rows.Count, "B").End(xlUp).Row
isum = Application.WorksheetFunction.Sum(Range("b1:b10000 "))
Cells(blastrow + 2, "B").Value = isum

My Question is: How do I copy the value of "Isum" in the
Workbook.("TBD.xls").worksheet("Sheet1") in cell "F34"
Thanks,

Workbooks("TBD.xls").Worksheets("Sheet1").Range("F 34") = isum
note the s at the end of 'worksheets' and 'workbooks'
Pascal

"Jeff" wrote in message
...
Hi,

I have 2 workbooks:
# 1 Workbook.("TBD.xls").worksheet("Sheet1")

#2 is a workbook that I open with this VBA macro:
fName = Application.GetOpenFilename
Workbooks.Open filename:=fName
I also have this VBA Macro for fname
blastrow = Cells(Rows.Count, "B").End(xlUp).Row
isum = Application.WorksheetFunction.Sum(Range("b1:b10000 "))
Cells(blastrow + 2, "B").Value = isum

My Question is: How do I copy the value of "Isum" in the
Workbook.("TBD.xls").worksheet("Sheet1") in cell "F34"
Thanks,

Hi,

Do not copy. Create variables for the target and source.

EG:
Cells(blastrow + 2, "B").Value = isum
set x=Cells(blastrow + 2, "B").Value

Workbook.("TBD.xls").activate
set y=range("F34")
y.value=x.value

This is secret stuff. Do not tell anyone.

see my stuff at:
http://www.geocities.com/excelmarksway

regards
Mark E. Philpot



-----Original Message-----
Hi,

I have 2 workbooks:
# 1 Workbook.("TBD.xls").worksheet("Sheet1")

#2 is a workbook that I open with this VBA macro:
fName = Application.GetOpenFilename
Workbooks.Open filename:=fName
I also have this VBA Macro for fname
blastrow = Cells(Rows.Count, "B").End(xlUp).Row
isum = Application.WorksheetFunction.Sum(Range
("b1:b10000"))
Cells(blastrow + 2, "B").Value = isum

My Question is: How do I copy the value of "Isum" in the
Workbook.("TBD.xls").worksheet("Sheet1") in cell "F34"
Thanks,


.