Insert Row Problem

[george]

Hi,

I am automating Excel using VB6 and I am having a problem inserting a row
(copying row) that contains a simple formula (Sum of two columns). The
inserts is working fine except it is not bringing over the formula. Any
ideas (see code below)?

wbExcel.Sheets(3).Rows(51).Insert

or

Set wr = wbExcel.Sheets(3).Range(A51).EntireRow()
Call wr.Insert(, False)

Thanks

 

[Jim Cone]

Thanks,
Your code inserts a new blank row above row 51.
What was row 51 becomes row 52. Row 52 will contain the formulas.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


Hi,
I am automating Excel using VB6 and I am having a problem inserting a row
(copying row) that contains a simple formula (Sum of two columns). The
inserts is working fine except it is not bringing over the formula. Any
ideas (see code below)?

wbExcel.Sheets(3).Rows(51).Insert

or

Set wr = wbExcel.Sheets(3).Range(A51).EntireRow()
Call wr.Insert(, False)

Thanks

 

[george]

How do I copy row 51 and insert that row above it.

Thanks

 

[Jim Cone]

Thanks,
wbExcel.Sheets(3).Rows("15").Copy
wbExcel.Sheets(3).Rows("15").Insert Shift:=xlDown
ApplicationObjectVariable.CutCopyMode = False ' adjust
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



How do I copy row 51 and insert that row above it.
Thanks

 

[Jim Cone]

In addition...
The xlDown constant should also be qualified with the
ApplicationObjectVariable.
Jim Cone



"Jim Cone" <[email protected]>
wrote in message...
Thanks,
wbExcel.Sheets(3).Rows("15").Copy
wbExcel.Sheets(3).Rows("15").Insert Shift:=xlDown
ApplicationObjectVariable.CutCopyMode = False ' adjust
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



How do I copy row 51 and insert that row above it.
Thanks