We use excell to do all of our quotes and we have a formula we use every
time. I am looking for a way to create a button or macro or some one key
option to fill in the following formula to a selected row, any suggestions?

Column
A B C D E F

(EMPTY) (EMPTY) (FORMULA) (FORMULA) (FORM) (EMPTY)

Thanks!

Sub TheCatsMeow()
Dim varArray As Variant
varArray = _
Array(vbNullString, vbNullString, "=A1+B1", "=B2+C2", "=C3+D3", vbNullString)
ActiveCell.Resize(1, 6).Formula = varArray
End Sub

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"TJ" wrote in message
...
We use excell to do all of our quotes and we have a formula we use every
time. I am looking for a way to create a button or macro or some one key
option to fill in the following formula to a selected row, any suggestions?

Column
A B C D E F

(EMPTY) (EMPTY) (FORMULA) (FORMULA) (FORM) (EMPTY)

Thanks!

How do I create this code?

"Jim Cone" wrote:

Sub TheCatsMeow()
Dim varArray As Variant
varArray = _
Array(vbNullString, vbNullString, "=A1+B1", "=B2+C2", "=C3+D3", vbNullString)
ActiveCell.Resize(1, 6).Formula = varArray
End Sub

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"TJ" wrote in message
...
We use excell to do all of our quotes and we have a formula we use every
time. I am looking for a way to create a button or macro or some one key
option to fill in the following formula to a selected row, any suggestions?

Column
A B C D E F

(EMPTY) (EMPTY) (FORMULA) (FORMULA) (FORM) (EMPTY)

Thanks!

how do I create this string of code?

"Jim Cone" wrote:

Sub TheCatsMeow()
Dim varArray As Variant
varArray = _
Array(vbNullString, vbNullString, "=A1+B1", "=B2+C2", "=C3+D3", vbNullString)
ActiveCell.Resize(1, 6).Formula = varArray
End Sub

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"TJ" wrote in message
...
We use excell to do all of our quotes and we have a formula we use every
time. I am looking for a way to create a button or macro or some one key
option to fill in the following formula to a selected row, any suggestions?

Column
A B C D E F

(EMPTY) (EMPTY) (FORMULA) (FORMULA) (FORM) (EMPTY)

Thanks!

David McRitchie shows how here...
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"TJ"
wrote in message
how do I create this string of code?

"Jim Cone" wrote:
Sub TheCatsMeow()
Dim varArray As Variant
varArray = _
Array(vbNullString, vbNullString, "=A1+B1", "=B2+C2", "=C3+D3", vbNullString)
ActiveCell.Resize(1, 6).Formula = varArray
End Sub
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware




"TJ" wrote in message
...
We use excell to do all of our quotes and we have a formula we use every
time. I am looking for a way to create a button or macro or some one key
option to fill in the following formula to a selected row, any suggestions?
Column
A B C D E F
(EMPTY) (EMPTY) (FORMULA) (FORMULA) (FORM) (EMPTY)

Thanks!