pasting formulas into a selection
 

Hi
try something like (not tested)

sub foo()
dim x as long
x=100
with activesheet.range(cells(1,3),cells(x,3)
.formulaR1C1 = "=IF(R[0]C1="""","""",R[0]C1&""/ ""&R[0]C2)"
.offset(0,1).formulaR1C1 = "=IF(R[0]C1="""","""",""Enter Email
Address"")"
.offset(0,2).formulaR1C1 = "=IF(R[0]C1="""","""",""Enter Role"")"
end with
end sub



--
Regards
Frank Kabel
Frankfurt, Germany


greg wrote:
Hello,
I need to insert into cells some data.
i have <x amount of rows, and 5 columns
Column1: blank
Column2: blank
Column3: is a formula =IF(A<row="","",A<row&"/ "&B<row)
Column4: is a formula =IF($A<row = "","","Enter Email Address")
Column5: is a formula =IF($A<row = "","","Enter Role")

i can see selecting the rows

ActiveSheet.Range(Cells(1, 1), Cells(1, 5)).Select

then use selection, which is the Range object to do someting?

can anyone help?
thanks

pasting formulas into a selection
 

Hi
and just as a note:
PLEASe correct your system time!

--
Regards
Frank Kabel
Frankfurt, Germany


Frank Kabel wrote:
Hi
try something like (not tested)

sub foo()
dim x as long
x=100
with activesheet.range(cells(1,3),cells(x,3)
.formulaR1C1 = "=IF(R[0]C1="""","""",R[0]C1&""/ ""&R[0]C2)"
.offset(0,1).formulaR1C1 = "=IF(R[0]C1="""","""",""Enter Email
Address"")"
.offset(0,2).formulaR1C1 = "=IF(R[0]C1="""","""",""Enter Role"")"
end with
end sub




greg wrote:
Hello,
I need to insert into cells some data.
i have <x amount of rows, and 5 columns
Column1: blank
Column2: blank
Column3: is a formula =IF(A<row="","",A<row&"/ "&B<row)
Column4: is a formula =IF($A<row = "","","Enter Email Address")
Column5: is a formula =IF($A<row = "","","Enter Role")

i can see selecting the rows

ActiveSheet.Range(Cells(1, 1), Cells(1, 5)).Select

then use selection, which is the Range object to do someting?

can anyone help?
thanks

pasting formulas into a selection
 

thanks for the help.
sorry about the time. new laptop.


"Frank Kabel" wrote in message
...
Hi
and just as a note:
PLEASe correct your system time!

--
Regards
Frank Kabel
Frankfurt, Germany


Frank Kabel wrote:
Hi
try something like (not tested)

sub foo()
dim x as long
x=100
with activesheet.range(cells(1,3),cells(x,3)
.formulaR1C1 = "=IF(R[0]C1="""","""",R[0]C1&""/ ""&R[0]C2)"
.offset(0,1).formulaR1C1 = "=IF(R[0]C1="""","""",""Enter Email
Address"")"
.offset(0,2).formulaR1C1 = "=IF(R[0]C1="""","""",""Enter Role"")"
end with
end sub




greg wrote:
Hello,
I need to insert into cells some data.
i have <x amount of rows, and 5 columns
Column1: blank
Column2: blank
Column3: is a formula =IF(A<row="","",A<row&"/ "&B<row)
Column4: is a formula =IF($A<row = "","","Enter Email Address")
Column5: is a formula =IF($A<row = "","","Enter Role")

i can see selecting the rows

ActiveSheet.Range(Cells(1, 1), Cells(1, 5)).Select

then use selection, which is the Range object to do someting?

can anyone help?
thanks

pasting formulas into a selection
 

Hello,
I need to insert into cells some data.
i have <x amount of rows, and 5 columns
Column1: blank
Column2: blank
Column3: is a formula =IF(A<row="","",A<row&"/ "&B<row)
Column4: is a formula =IF($A<row = "","","Enter Email Address")
Column5: is a formula =IF($A<row = "","","Enter Role")

i can see selecting the rows

ActiveSheet.Range(Cells(1, 1), Cells(1, 5)).Select

then use selection, which is the Range object to do someting?

can anyone help?
thanks