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

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

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