Copy Cell.Value
 

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
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,

I'm kind of confused about what goes where, but maybe it's as simple as:

workbooks("tbd.xls").worksheets("sheet1").range("f 34").value = isum
or
workbooks("tbd.xls").worksheets("sheet1").cells(bl astrow+2,"F").value = isum




Jeff wrote:

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
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,

--

Dave Peterson