Copy Cells

[Guest]

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,

 

[P Daulton]

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

 

[Mark E. Philpot]

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