pasting formulas into a selection

F

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
 
F

Frank Kabel

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

--
Regards
Frank Kabel
Frankfurt, Germany


Frank said:
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
Click to expand...
Click to expand...
 
G

greg

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


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

--
Regards
Frank Kabel
Frankfurt, Germany


Frank said:
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
Click to expand...
Click to expand...
Click to expand...
 
G

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
 
Top