software

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 = quot;=Sheet1!R[-1]C[1]quot;
Range(quot;B(l1)quot;).Select
ActiveCell.FormulaR1C1 = quot;=Sheet1!RCquot;
Range(quot;C(l1)quot;).Select
ActiveCell.FormulaR1C1 = quot;=Sheet1!R[3]C[-1]quot;
Range(quot;D(l1)quot;).Select
ActiveCell.FormulaR1C1 = quot;=Sheet1!R[4]C[-2]quot;
Range(quot;E(l1)quot;).Select
ActiveCell.FormulaR1C1 = quot;=Sheet1!R[5]C[-3]quot;
Range(quot;F(l1)quot;).Select
ActiveCell.FormulaR1C1 = quot;=Sheet1!R[6]C[-4]quot;
Range(quot;G(l1)quot;).Select
ActiveCell.FormulaR1C1 = quot;=Sheet1!R[7]C[-5]quot;
Range(quot;H(l1)quot;).Select
ActiveCell.FormulaR1C1 = quot;=Sheet1!R[8]C[-6]quot;
Range(quot;I(l1)quot;).Select
ActiveCell.FormulaR1C1 = quot;=Sheet1!R[9]C[-7]quot;
Range(quot;J(l1)quot;).Select
ActiveCell.FormulaR1C1 = quot;=Sheet1!R[10]C[-8]quot;
Range(quot;A3quot;).SelectRangequot;A11quot;).FormulaR1C1 = quot;=Sheet1!R[-1]C[1]quot;
Range(quot;Bl1)quot;).FormulaR1C1 = quot;=Sheet1!RCquot;
Range(quot;Cl1quot;).FormulaR1C1 = quot;=Sheet1!R[3]C[-1]quot;
Range(quot;Dl1quot;).FormulaR1C1 = quot;=Sheet1!R[4]C[-2]quot;
Range(quot;E11quot;).FormulaR1C1 = quot;=Sheet1!R[5]C[-3]quot;
Range(quot;Fl1quot;).FormulaR1C1 = quot;=Sheet1!R[6]C[-4]quot;
Range(quot;Gl1quot;).FormulaR1C1 = quot;=Sheet1!R[7]C[-5]quot;
Range(quot;Hl1quot;).FormulaR1C1 = quot;=Sheet1!R[8]C[-6]quot;
Range(quot;Il1quot;).FormulaR1C1 = quot;=Sheet1!R[9]C[-7]quot;
Range(quot;Jl1quot;).FormulaR1C1 = quot;=Sheet1!R[10]C[-8]quot;

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

quot;Mallersquot; gt; wrote in message
...
gt; The value of L1 is the row number. I am copying info from vertical to a
new
gt; sheet that is horizontal like a database list. This macro is not working
an
gt; I need help. Thanks in advance.
gt;
gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[-1]C[1]quot;
gt; Range(quot;B(l1)quot;).Select
gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!RCquot;
gt; Range(quot;C(l1)quot;).Select
gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[3]C[-1]quot;
gt; Range(quot;D(l1)quot;).Select
gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[4]C[-2]quot;
gt; Range(quot;E(l1)quot;).Select
gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[5]C[-3]quot;
gt; Range(quot;F(l1)quot;).Select
gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[6]C[-4]quot;
gt; Range(quot;G(l1)quot;).Select
gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[7]C[-5]quot;
gt; Range(quot;H(l1)quot;).Select
gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[8]C[-6]quot;
gt; Range(quot;I(l1)quot;).Select
gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[9]C[-7]quot;
gt; Range(quot;J(l1)quot;).Select
gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[10]C[-8]quot;
gt; Range(quot;A3quot;).Select
gt;
Just a typo alert:

Range(quot;A11quot;).FormulaR1C1 = quot;=sheet1!R[-1]C[1]quot;
Range(quot;B11quot;).FormulaR1C1 = quot;=sheet1!RCquot;
Range(quot;C11quot;).FormulaR1C1 = quot;=sheet1!R[3]C[-1]quot;
Range(quot;D11quot;).FormulaR1C1 = quot;=sheet1!R[4]C[-2]quot;
Range(quot;E11quot;).FormulaR1C1 = quot;=sheet1!R[5]C[-3]quot;
Range(quot;F11quot;).FormulaR1C1 = quot;=sheet1!R[6]C[-4]quot;
Range(quot;G11quot;).FormulaR1C1 = quot;=sheet1!R[7]C[-5]quot;
Range(quot;H11quot;).FormulaR1C1 = quot;=sheet1!R[8]C[-6]quot;
Range(quot;I11quot;).FormulaR1C1 = quot;=sheet1!R[9]C[-7]quot;
Range(quot;J11quot;).FormulaR1C1 = quot;=sheet1!R[10]C[-8]quot;

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:
gt;
gt; Rangequot;A11quot;).FormulaR1C1 = quot;=Sheet1!R[-1]C[1]quot;
gt; Range(quot;Bl1)quot;).FormulaR1C1 = quot;=Sheet1!RCquot;
gt; Range(quot;Cl1quot;).FormulaR1C1 = quot;=Sheet1!R[3]C[-1]quot;
gt; Range(quot;Dl1quot;).FormulaR1C1 = quot;=Sheet1!R[4]C[-2]quot;
gt; Range(quot;E11quot;).FormulaR1C1 = quot;=Sheet1!R[5]C[-3]quot;
gt; Range(quot;Fl1quot;).FormulaR1C1 = quot;=Sheet1!R[6]C[-4]quot;
gt; Range(quot;Gl1quot;).FormulaR1C1 = quot;=Sheet1!R[7]C[-5]quot;
gt; Range(quot;Hl1quot;).FormulaR1C1 = quot;=Sheet1!R[8]C[-6]quot;
gt; Range(quot;Il1quot;).FormulaR1C1 = quot;=Sheet1!R[9]C[-7]quot;
gt; Range(quot;Jl1quot;).FormulaR1C1 = quot;=Sheet1!R[10]C[-8]quot;
gt;
gt; --
gt; HTH
gt;
gt; Bob Phillips
gt;
gt; (remove nothere from email address if mailing direct)
gt;
gt; quot;Mallersquot; gt; wrote in message
gt; ...
gt; gt; The value of L1 is the row number. I am copying info from vertical to a
gt; new
gt; gt; sheet that is horizontal like a database list. This macro is not working
gt; an
gt; gt; I need help. Thanks in advance.
gt; gt;
gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[-1]C[1]quot;
gt; gt; Range(quot;B(l1)quot;).Select
gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!RCquot;
gt; gt; Range(quot;C(l1)quot;).Select
gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[3]C[-1]quot;
gt; gt; Range(quot;D(l1)quot;).Select
gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[4]C[-2]quot;
gt; gt; Range(quot;E(l1)quot;).Select
gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[5]C[-3]quot;
gt; gt; Range(quot;F(l1)quot;).Select
gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[6]C[-4]quot;
gt; gt; Range(quot;G(l1)quot;).Select
gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[7]C[-5]quot;
gt; gt; Range(quot;H(l1)quot;).Select
gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[8]C[-6]quot;
gt; gt; Range(quot;I(l1)quot;).Select
gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[9]C[-7]quot;
gt; gt; Range(quot;J(l1)quot;).Select
gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[10]C[-8]quot;
gt; gt; Range(quot;A3quot;).Select
gt; gt;

--

Dave Peterson

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(quot;Aquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[-1]C[1]quot;
Range(quot;Bquot; amp; L1).FormulaR1C1 = quot;=sheet1!RCquot;
Range(quot;Cquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[3]C[-1]quot;
Range(quot;Dquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[4]C[-2]quot;
Range(quot;Equot; amp; L1).FormulaR1C1 = quot;=sheet1!R[5]C[-3]quot;
Range(quot;Fquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[6]C[-4]quot;
Range(quot;Gquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[7]C[-5]quot;
Range(quot;Hquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[8]C[-6]quot;
Range(quot;Iquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[9]C[-7]quot;
Range(quot;Jquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[10]C[-8]quot;

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

quot;Dave Petersonquot; gt; wrote in message
...
gt; Just a typo alert:
gt;
gt; Range(quot;A11quot;).FormulaR1C1 = quot;=sheet1!R[-1]C[1]quot;
gt; Range(quot;B11quot;).FormulaR1C1 = quot;=sheet1!RCquot;
gt; Range(quot;C11quot;).FormulaR1C1 = quot;=sheet1!R[3]C[-1]quot;
gt; Range(quot;D11quot;).FormulaR1C1 = quot;=sheet1!R[4]C[-2]quot;
gt; Range(quot;E11quot;).FormulaR1C1 = quot;=sheet1!R[5]C[-3]quot;
gt; Range(quot;F11quot;).FormulaR1C1 = quot;=sheet1!R[6]C[-4]quot;
gt; Range(quot;G11quot;).FormulaR1C1 = quot;=sheet1!R[7]C[-5]quot;
gt; Range(quot;H11quot;).FormulaR1C1 = quot;=sheet1!R[8]C[-6]quot;
gt; Range(quot;I11quot;).FormulaR1C1 = quot;=sheet1!R[9]C[-7]quot;
gt; Range(quot;J11quot;).FormulaR1C1 = quot;=sheet1!R[10]C[-8]quot;
gt;
gt; And to the OP:
gt;
gt; You have a mixture of 11 and l1 (one-one's and ell-one's) in those
addresses.
gt; You'll want to be more careful with which you want: BL1 or B11???
gt;
gt;
gt;
gt; Bob Phillips wrote:
gt; gt;
gt; gt; Rangequot;A11quot;).FormulaR1C1 = quot;=Sheet1!R[-1]C[1]quot;
gt; gt; Range(quot;Bl1)quot;).FormulaR1C1 = quot;=Sheet1!RCquot;
gt; gt; Range(quot;Cl1quot;).FormulaR1C1 = quot;=Sheet1!R[3]C[-1]quot;
gt; gt; Range(quot;Dl1quot;).FormulaR1C1 = quot;=Sheet1!R[4]C[-2]quot;
gt; gt; Range(quot;E11quot;).FormulaR1C1 = quot;=Sheet1!R[5]C[-3]quot;
gt; gt; Range(quot;Fl1quot;).FormulaR1C1 = quot;=Sheet1!R[6]C[-4]quot;
gt; gt; Range(quot;Gl1quot;).FormulaR1C1 = quot;=Sheet1!R[7]C[-5]quot;
gt; gt; Range(quot;Hl1quot;).FormulaR1C1 = quot;=Sheet1!R[8]C[-6]quot;
gt; gt; Range(quot;Il1quot;).FormulaR1C1 = quot;=Sheet1!R[9]C[-7]quot;
gt; gt; Range(quot;Jl1quot;).FormulaR1C1 = quot;=Sheet1!R[10]C[-8]quot;
gt; gt;
gt; gt; --
gt; gt; HTH
gt; gt;
gt; gt; Bob Phillips
gt; gt;
gt; gt; (remove nothere from email address if mailing direct)
gt; gt;
gt; gt; quot;Mallersquot; gt; wrote in message
gt; gt; ...
gt; gt; gt; The value of L1 is the row number. I am copying info from vertical to
a
gt; gt; new
gt; gt; gt; sheet that is horizontal like a database list. This macro is not
working
gt; gt; an
gt; gt; gt; I need help. Thanks in advance.
gt; gt; gt;
gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[-1]C[1]quot;
gt; gt; gt; Range(quot;B(l1)quot;).Select
gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!RCquot;
gt; gt; gt; Range(quot;C(l1)quot;).Select
gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[3]C[-1]quot;
gt; gt; gt; Range(quot;D(l1)quot;).Select
gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[4]C[-2]quot;
gt; gt; gt; Range(quot;E(l1)quot;).Select
gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[5]C[-3]quot;
gt; gt; gt; Range(quot;F(l1)quot;).Select
gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[6]C[-4]quot;
gt; gt; gt; Range(quot;G(l1)quot;).Select
gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[7]C[-5]quot;
gt; gt; gt; Range(quot;H(l1)quot;).Select
gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[8]C[-6]quot;
gt; gt; gt; Range(quot;I(l1)quot;).Select
gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[9]C[-7]quot;
gt; gt; gt; Range(quot;J(l1)quot;).Select
gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[10]C[-8]quot;
gt; gt; gt; Range(quot;A3quot;).Select
gt; gt; gt;
gt;
gt; --
gt;
gt; Dave Peterson
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:
gt;
gt; Thanks Dave, I didn't spot that l1 11 differentation, and must admit to not
gt; undesrtanding the OPs point about L1, so in the lightt of your observation I
gt; think he must mean
gt;
gt; Range(quot;Aquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[-1]C[1]quot;
gt; Range(quot;Bquot; amp; L1).FormulaR1C1 = quot;=sheet1!RCquot;
gt; Range(quot;Cquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[3]C[-1]quot;
gt; Range(quot;Dquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[4]C[-2]quot;
gt; Range(quot;Equot; amp; L1).FormulaR1C1 = quot;=sheet1!R[5]C[-3]quot;
gt; Range(quot;Fquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[6]C[-4]quot;
gt; Range(quot;Gquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[7]C[-5]quot;
gt; Range(quot;Hquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[8]C[-6]quot;
gt; Range(quot;Iquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[9]C[-7]quot;
gt; Range(quot;Jquot; amp; L1).FormulaR1C1 = quot;=sheet1!R[10]C[-8]quot;
gt;
gt; --
gt; HTH
gt;
gt; Bob Phillips
gt;
gt; (remove nothere from email address if mailing direct)
gt;
gt; quot;Dave Petersonquot; gt; wrote in message
gt; ...
gt; gt; Just a typo alert:
gt; gt;
gt; gt; Range(quot;A11quot;).FormulaR1C1 = quot;=sheet1!R[-1]C[1]quot;
gt; gt; Range(quot;B11quot;).FormulaR1C1 = quot;=sheet1!RCquot;
gt; gt; Range(quot;C11quot;).FormulaR1C1 = quot;=sheet1!R[3]C[-1]quot;
gt; gt; Range(quot;D11quot;).FormulaR1C1 = quot;=sheet1!R[4]C[-2]quot;
gt; gt; Range(quot;E11quot;).FormulaR1C1 = quot;=sheet1!R[5]C[-3]quot;
gt; gt; Range(quot;F11quot;).FormulaR1C1 = quot;=sheet1!R[6]C[-4]quot;
gt; gt; Range(quot;G11quot;).FormulaR1C1 = quot;=sheet1!R[7]C[-5]quot;
gt; gt; Range(quot;H11quot;).FormulaR1C1 = quot;=sheet1!R[8]C[-6]quot;
gt; gt; Range(quot;I11quot;).FormulaR1C1 = quot;=sheet1!R[9]C[-7]quot;
gt; gt; Range(quot;J11quot;).FormulaR1C1 = quot;=sheet1!R[10]C[-8]quot;
gt; gt;
gt; gt; And to the OP:
gt; gt;
gt; gt; You have a mixture of 11 and l1 (one-one's and ell-one's) in those
gt; addresses.
gt; gt; You'll want to be more careful with which you want: BL1 or B11???
gt; gt;
gt; gt;
gt; gt;
gt; gt; Bob Phillips wrote:
gt; gt; gt;
gt; gt; gt; Rangequot;A11quot;).FormulaR1C1 = quot;=Sheet1!R[-1]C[1]quot;
gt; gt; gt; Range(quot;Bl1)quot;).FormulaR1C1 = quot;=Sheet1!RCquot;
gt; gt; gt; Range(quot;Cl1quot;).FormulaR1C1 = quot;=Sheet1!R[3]C[-1]quot;
gt; gt; gt; Range(quot;Dl1quot;).FormulaR1C1 = quot;=Sheet1!R[4]C[-2]quot;
gt; gt; gt; Range(quot;E11quot;).FormulaR1C1 = quot;=Sheet1!R[5]C[-3]quot;
gt; gt; gt; Range(quot;Fl1quot;).FormulaR1C1 = quot;=Sheet1!R[6]C[-4]quot;
gt; gt; gt; Range(quot;Gl1quot;).FormulaR1C1 = quot;=Sheet1!R[7]C[-5]quot;
gt; gt; gt; Range(quot;Hl1quot;).FormulaR1C1 = quot;=Sheet1!R[8]C[-6]quot;
gt; gt; gt; Range(quot;Il1quot;).FormulaR1C1 = quot;=Sheet1!R[9]C[-7]quot;
gt; gt; gt; Range(quot;Jl1quot;).FormulaR1C1 = quot;=Sheet1!R[10]C[-8]quot;
gt; gt; gt;
gt; gt; gt; --
gt; gt; gt; HTH
gt; gt; gt;
gt; gt; gt; Bob Phillips
gt; gt; gt;
gt; gt; gt; (remove nothere from email address if mailing direct)
gt; gt; gt;
gt; gt; gt; quot;Mallersquot; gt; wrote in message
gt; gt; gt; ...
gt; gt; gt; gt; The value of L1 is the row number. I am copying info from vertical to
gt; a
gt; gt; gt; new
gt; gt; gt; gt; sheet that is horizontal like a database list. This macro is not
gt; working
gt; gt; gt; an
gt; gt; gt; gt; I need help. Thanks in advance.
gt; gt; gt; gt;
gt; gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[-1]C[1]quot;
gt; gt; gt; gt; Range(quot;B(l1)quot;).Select
gt; gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!RCquot;
gt; gt; gt; gt; Range(quot;C(l1)quot;).Select
gt; gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[3]C[-1]quot;
gt; gt; gt; gt; Range(quot;D(l1)quot;).Select
gt; gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[4]C[-2]quot;
gt; gt; gt; gt; Range(quot;E(l1)quot;).Select
gt; gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[5]C[-3]quot;
gt; gt; gt; gt; Range(quot;F(l1)quot;).Select
gt; gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[6]C[-4]quot;
gt; gt; gt; gt; Range(quot;G(l1)quot;).Select
gt; gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[7]C[-5]quot;
gt; gt; gt; gt; Range(quot;H(l1)quot;).Select
gt; gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[8]C[-6]quot;
gt; gt; gt; gt; Range(quot;I(l1)quot;).Select
gt; gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[9]C[-7]quot;
gt; gt; gt; gt; Range(quot;J(l1)quot;).Select
gt; gt; gt; gt; ActiveCell.FormulaR1C1 = quot;=Sheet1!R[10]C[-8]quot;
gt; gt; gt; gt; Range(quot;A3quot;).Select
gt; gt; gt; gt;
gt; gt;
gt; gt; --
gt; gt;
gt; gt; Dave Peterson

--

Dave Peterson


quot;Dave Petersonquot; gt; wrote in message
...
gt; Ahhhh.
gt;
gt; I didn't read the original post. (I usually can get enough info from the
gt; reply--not always, obviously!)
gt;
gt; I think you got it!

We got it!