ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   How do I edit this macro? (https://www.excelbanter.com/excel-discussion-misc-queries/84815-how-do-i-edit-macro.html)

Mallers
How do I edit this macro?
 
The value of L1 is the row number. I am copying info from vertical to a new
sheet that is horizontal like a database list. This macro is not working an
I need help. Thanks in advance.

ActiveCell.FormulaR1C1 = "=Sheet1!R[-1]C[1]"
Range("B(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC"
Range("C(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[3]C[-1]"
Range("D(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[4]C[-2]"
Range("E(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[5]C[-3]"
Range("F(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[6]C[-4]"
Range("G(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[7]C[-5]"
Range("H(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[8]C[-6]"
Range("I(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[9]C[-7]"
Range("J(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[10]C[-8]"
Range("A3").Select

Bob Phillips
How do I edit this macro?
 
Range"A11").FormulaR1C1 = "=Sheet1!R[-1]C[1]"
Range("Bl1)").FormulaR1C1 = "=Sheet1!RC"
Range("Cl1").FormulaR1C1 = "=Sheet1!R[3]C[-1]"
Range("Dl1").FormulaR1C1 = "=Sheet1!R[4]C[-2]"
Range("E11").FormulaR1C1 = "=Sheet1!R[5]C[-3]"
Range("Fl1").FormulaR1C1 = "=Sheet1!R[6]C[-4]"
Range("Gl1").FormulaR1C1 = "=Sheet1!R[7]C[-5]"
Range("Hl1").FormulaR1C1 = "=Sheet1!R[8]C[-6]"
Range("Il1").FormulaR1C1 = "=Sheet1!R[9]C[-7]"
Range("Jl1").FormulaR1C1 = "=Sheet1!R[10]C[-8]"

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Mallers" wrote in message
...
The value of L1 is the row number. I am copying info from vertical to a
new
sheet that is horizontal like a database list. This macro is not working
an
I need help. Thanks in advance.

ActiveCell.FormulaR1C1 = "=Sheet1!R[-1]C[1]"
Range("B(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC"
Range("C(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[3]C[-1]"
Range("D(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[4]C[-2]"
Range("E(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[5]C[-3]"
Range("F(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[6]C[-4]"
Range("G(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[7]C[-5]"
Range("H(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[8]C[-6]"
Range("I(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[9]C[-7]"
Range("J(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[10]C[-8]"
Range("A3").Select

Dave Peterson
How do I edit this macro?
 
Just a typo alert:

Range("A11").FormulaR1C1 = "=sheet1!R[-1]C[1]"
Range("B11").FormulaR1C1 = "=sheet1!RC"
Range("C11").FormulaR1C1 = "=sheet1!R[3]C[-1]"
Range("D11").FormulaR1C1 = "=sheet1!R[4]C[-2]"
Range("E11").FormulaR1C1 = "=sheet1!R[5]C[-3]"
Range("F11").FormulaR1C1 = "=sheet1!R[6]C[-4]"
Range("G11").FormulaR1C1 = "=sheet1!R[7]C[-5]"
Range("H11").FormulaR1C1 = "=sheet1!R[8]C[-6]"
Range("I11").FormulaR1C1 = "=sheet1!R[9]C[-7]"
Range("J11").FormulaR1C1 = "=sheet1!R[10]C[-8]"

And to the OP:

You have a mixture of 11 and l1 (one-one's and ell-one's) in those addresses.
You'll want to be more careful with which you want: BL1 or B11???



Bob Phillips wrote:

Range"A11").FormulaR1C1 = "=Sheet1!R[-1]C[1]"
Range("Bl1)").FormulaR1C1 = "=Sheet1!RC"
Range("Cl1").FormulaR1C1 = "=Sheet1!R[3]C[-1]"
Range("Dl1").FormulaR1C1 = "=Sheet1!R[4]C[-2]"
Range("E11").FormulaR1C1 = "=Sheet1!R[5]C[-3]"
Range("Fl1").FormulaR1C1 = "=Sheet1!R[6]C[-4]"
Range("Gl1").FormulaR1C1 = "=Sheet1!R[7]C[-5]"
Range("Hl1").FormulaR1C1 = "=Sheet1!R[8]C[-6]"
Range("Il1").FormulaR1C1 = "=Sheet1!R[9]C[-7]"
Range("Jl1").FormulaR1C1 = "=Sheet1!R[10]C[-8]"

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Mallers" wrote in message
...
The value of L1 is the row number. I am copying info from vertical to a
new
sheet that is horizontal like a database list. This macro is not working
an
I need help. Thanks in advance.

ActiveCell.FormulaR1C1 = "=Sheet1!R[-1]C[1]"
Range("B(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC"
Range("C(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[3]C[-1]"
Range("D(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[4]C[-2]"
Range("E(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[5]C[-3]"
Range("F(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[6]C[-4]"
Range("G(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[7]C[-5]"
Range("H(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[8]C[-6]"
Range("I(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[9]C[-7]"
Range("J(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[10]C[-8]"
Range("A3").Select


--

Dave Peterson

Bob Phillips
How do I edit this macro?
 
Thanks Dave, I didn't spot that l1 11 differentation, and must admit to not
undesrtanding the OPs point about L1, so in the lightt of your observation I
think he must mean

Range("A" & L1).FormulaR1C1 = "=sheet1!R[-1]C[1]"
Range("B" & L1).FormulaR1C1 = "=sheet1!RC"
Range("C" & L1).FormulaR1C1 = "=sheet1!R[3]C[-1]"
Range("D" & L1).FormulaR1C1 = "=sheet1!R[4]C[-2]"
Range("E" & L1).FormulaR1C1 = "=sheet1!R[5]C[-3]"
Range("F" & L1).FormulaR1C1 = "=sheet1!R[6]C[-4]"
Range("G" & L1).FormulaR1C1 = "=sheet1!R[7]C[-5]"
Range("H" & L1).FormulaR1C1 = "=sheet1!R[8]C[-6]"
Range("I" & L1).FormulaR1C1 = "=sheet1!R[9]C[-7]"
Range("J" & L1).FormulaR1C1 = "=sheet1!R[10]C[-8]"

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Dave Peterson" wrote in message
...
Just a typo alert:

Range("A11").FormulaR1C1 = "=sheet1!R[-1]C[1]"
Range("B11").FormulaR1C1 = "=sheet1!RC"
Range("C11").FormulaR1C1 = "=sheet1!R[3]C[-1]"
Range("D11").FormulaR1C1 = "=sheet1!R[4]C[-2]"
Range("E11").FormulaR1C1 = "=sheet1!R[5]C[-3]"
Range("F11").FormulaR1C1 = "=sheet1!R[6]C[-4]"
Range("G11").FormulaR1C1 = "=sheet1!R[7]C[-5]"
Range("H11").FormulaR1C1 = "=sheet1!R[8]C[-6]"
Range("I11").FormulaR1C1 = "=sheet1!R[9]C[-7]"
Range("J11").FormulaR1C1 = "=sheet1!R[10]C[-8]"

And to the OP:

You have a mixture of 11 and l1 (one-one's and ell-one's) in those
addresses.
You'll want to be more careful with which you want: BL1 or B11???



Bob Phillips wrote:

Range"A11").FormulaR1C1 = "=Sheet1!R[-1]C[1]"
Range("Bl1)").FormulaR1C1 = "=Sheet1!RC"
Range("Cl1").FormulaR1C1 = "=Sheet1!R[3]C[-1]"
Range("Dl1").FormulaR1C1 = "=Sheet1!R[4]C[-2]"
Range("E11").FormulaR1C1 = "=Sheet1!R[5]C[-3]"
Range("Fl1").FormulaR1C1 = "=Sheet1!R[6]C[-4]"
Range("Gl1").FormulaR1C1 = "=Sheet1!R[7]C[-5]"
Range("Hl1").FormulaR1C1 = "=Sheet1!R[8]C[-6]"
Range("Il1").FormulaR1C1 = "=Sheet1!R[9]C[-7]"
Range("Jl1").FormulaR1C1 = "=Sheet1!R[10]C[-8]"

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Mallers" wrote in message
...
The value of L1 is the row number. I am copying info from vertical to
a
new
sheet that is horizontal like a database list. This macro is not
working
an
I need help. Thanks in advance.

ActiveCell.FormulaR1C1 = "=Sheet1!R[-1]C[1]"
Range("B(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC"
Range("C(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[3]C[-1]"
Range("D(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[4]C[-2]"
Range("E(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[5]C[-3]"
Range("F(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[6]C[-4]"
Range("G(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[7]C[-5]"
Range("H(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[8]C[-6]"
Range("I(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[9]C[-7]"
Range("J(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[10]C[-8]"
Range("A3").Select


--

Dave Peterson

Dave Peterson
How do I edit this macro?
 
Ahhhh.

I didn't read the original post. (I usually can get enough info from the
reply--not always, obviously!)

I think you got it!

Bob Phillips wrote:

Thanks Dave, I didn't spot that l1 11 differentation, and must admit to not
undesrtanding the OPs point about L1, so in the lightt of your observation I
think he must mean

Range("A" & L1).FormulaR1C1 = "=sheet1!R[-1]C[1]"
Range("B" & L1).FormulaR1C1 = "=sheet1!RC"
Range("C" & L1).FormulaR1C1 = "=sheet1!R[3]C[-1]"
Range("D" & L1).FormulaR1C1 = "=sheet1!R[4]C[-2]"
Range("E" & L1).FormulaR1C1 = "=sheet1!R[5]C[-3]"
Range("F" & L1).FormulaR1C1 = "=sheet1!R[6]C[-4]"
Range("G" & L1).FormulaR1C1 = "=sheet1!R[7]C[-5]"
Range("H" & L1).FormulaR1C1 = "=sheet1!R[8]C[-6]"
Range("I" & L1).FormulaR1C1 = "=sheet1!R[9]C[-7]"
Range("J" & L1).FormulaR1C1 = "=sheet1!R[10]C[-8]"

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Dave Peterson" wrote in message
...
Just a typo alert:

Range("A11").FormulaR1C1 = "=sheet1!R[-1]C[1]"
Range("B11").FormulaR1C1 = "=sheet1!RC"
Range("C11").FormulaR1C1 = "=sheet1!R[3]C[-1]"
Range("D11").FormulaR1C1 = "=sheet1!R[4]C[-2]"
Range("E11").FormulaR1C1 = "=sheet1!R[5]C[-3]"
Range("F11").FormulaR1C1 = "=sheet1!R[6]C[-4]"
Range("G11").FormulaR1C1 = "=sheet1!R[7]C[-5]"
Range("H11").FormulaR1C1 = "=sheet1!R[8]C[-6]"
Range("I11").FormulaR1C1 = "=sheet1!R[9]C[-7]"
Range("J11").FormulaR1C1 = "=sheet1!R[10]C[-8]"

And to the OP:

You have a mixture of 11 and l1 (one-one's and ell-one's) in those
addresses.
You'll want to be more careful with which you want: BL1 or B11???



Bob Phillips wrote:

Range"A11").FormulaR1C1 = "=Sheet1!R[-1]C[1]"
Range("Bl1)").FormulaR1C1 = "=Sheet1!RC"
Range("Cl1").FormulaR1C1 = "=Sheet1!R[3]C[-1]"
Range("Dl1").FormulaR1C1 = "=Sheet1!R[4]C[-2]"
Range("E11").FormulaR1C1 = "=Sheet1!R[5]C[-3]"
Range("Fl1").FormulaR1C1 = "=Sheet1!R[6]C[-4]"
Range("Gl1").FormulaR1C1 = "=Sheet1!R[7]C[-5]"
Range("Hl1").FormulaR1C1 = "=Sheet1!R[8]C[-6]"
Range("Il1").FormulaR1C1 = "=Sheet1!R[9]C[-7]"
Range("Jl1").FormulaR1C1 = "=Sheet1!R[10]C[-8]"

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Mallers" wrote in message
...
The value of L1 is the row number. I am copying info from vertical to
a
new
sheet that is horizontal like a database list. This macro is not
working
an
I need help. Thanks in advance.

ActiveCell.FormulaR1C1 = "=Sheet1!R[-1]C[1]"
Range("B(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC"
Range("C(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[3]C[-1]"
Range("D(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[4]C[-2]"
Range("E(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[5]C[-3]"
Range("F(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[6]C[-4]"
Range("G(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[7]C[-5]"
Range("H(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[8]C[-6]"
Range("I(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[9]C[-7]"
Range("J(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[10]C[-8]"
Range("A3").Select


--

Dave Peterson

--

Dave Peterson

Bob Phillips
How do I edit this macro?
 

"Dave Peterson" wrote in message
...
Ahhhh.

I didn't read the original post. (I usually can get enough info from the
reply--not always, obviously!)

I think you got it!

We got it!


All times are GMT +1. The time now is 03:46 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com