Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
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


  #2   Report Post  
Frank Kabel
 
Posts: n/a
Default

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


  #3   Report Post  
greg
 
Posts: n/a
Default

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




  #4   Report Post  
greg
 
Posts: n/a
Default 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




Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Formulas not working John Lovin Excel Discussion (Misc queries) 3 January 18th 05 11:50 PM
How to make Excel run limited number of formulas on a given worksh John Excel Discussion (Misc queries) 0 January 12th 05 05:29 PM
Way to make Excel only run certain formulas on a worksheet? jrusso Excel Discussion (Misc queries) 0 January 12th 05 05:23 PM
Pasting formulas problem HHTV Rich Excel Discussion (Misc queries) 3 January 7th 05 01:15 PM
Formulas stop calculating at random times when editing a few spreadsheets. Luke MacNeil Excel Discussion (Misc queries) 3 November 30th 04 04:21 PM


All times are GMT +1. The time now is 03:50 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"