pasting formulas into a selection

[Frank Kabel]

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

 

[Frank Kabel]

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

--
Regards
Frank Kabel
Frankfurt, Germany

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

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

 

[greg]

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

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

--
Regards
Frank Kabel
Frankfurt, Germany

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

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

 

[greg]

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