Home |
Search |
Today's Posts |
#1
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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 |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Formulas not working | Excel Discussion (Misc queries) | |||
How to make Excel run limited number of formulas on a given worksh | Excel Discussion (Misc queries) | |||
Way to make Excel only run certain formulas on a worksheet? | Excel Discussion (Misc queries) | |||
Pasting formulas problem | Excel Discussion (Misc queries) | |||
Formulas stop calculating at random times when editing a few spreadsheets. | Excel Discussion (Misc queries) |