View Single Post
  #1   Report Post  
Old October 29th 04, 06:18 PM
Frank Kabel
 
Posts: n/a
Default

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