Remember Me?

#1
October 29th 04, 06:18 PM
 Frank Kabel Posts: n/a

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
.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

#2
October 29th 04, 06:25 PM
 Frank Kabel Posts: n/a

Hi
and just as a note:

--
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
.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

#3
October 29th 04, 06:28 PM
 greg Posts: n/a

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

"Frank Kabel" wrote in message
...
Hi
and just as a note:

--
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
.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

#4
October 30th 04, 06:07 AM
 greg Posts: n/a
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

 Posting Rules Smilies are On [IMG] code is On HTML code is OffTrackbacks are On Pingbacks are On Refbacks are On

 Similar Threads Thread Thread Starter Forum Replies Last Post John Lovin Excel Discussion (Misc queries) 3 January 18th 05 11:50 PM John Excel Discussion (Misc queries) 0 January 12th 05 05:29 PM jrusso Excel Discussion (Misc queries) 0 January 12th 05 05:23 PM HHTV Rich Excel Discussion (Misc queries) 3 January 7th 05 01:15 PM Luke MacNeil Excel Discussion (Misc queries) 3 November 30th 04 04:21 PM

All times are GMT +1. The time now is 05:16 PM.