Fill down for all the cells
 

Hi

Is there any way to fill down all the cells through macro only for filled
cells?

Simple Example

I have ten number in column A and same in column B in Column C i need sum of
both the columns. column D multiplication.

For auto fill am using the below code apart from formula in cell C.
c=2
while range("A" & c).value < ""
range("C" & c).select
selection.filldown
c=c+1
wend

For D column I have to write the same code again. and if i have lots of
formulas in different columns the same thing continues.

Any solution.

Fill down for all the cells
 

singh,

if you have a number in every single cell in column B down to the last row
of your data, select C1:D1 (or C2:D2 if your data starts in row 2) and
double-click the fill handle.

HTH,

Conan




"singh" wrote in message
...
Hi

Is there any way to fill down all the cells through macro only for filled
cells?

Simple Example

I have ten number in column A and same in column B in Column C i need sum
of
both the columns. column D multiplication.

For auto fill am using the below code apart from formula in cell C.
c=2
while range("A" & c).value < ""
range("C" & c).select
selection.filldown
c=c+1
wend

For D column I have to write the same code again. and if i have lots of
formulas in different columns the same thing continues.

Any solution.

Fill down for all the cells
 

This thing is really working. Thanks

Can we do for next sheet also?

I need some calculation in sheet2 using data in sheet1. I do not think
autofill will work in this case.. Is there any way we can resolve it?

"INTP56" wrote:

'Try this

Public Sub TestFillDown()
Dim rngCurrent As Range
'I'm assuming the first value of interest is in .Cells(1,1)
With ThisWorkbook.Worksheets(1)
Set rngCurrent = .Range(.Cells(1, 1), .Cells(1, 1).End(xlDown))
rngCurrent.Offset(0, 2).FormulaR1C1 = "=RC[-2]+RC[-1]"
rngCurrent.Offset(0, 3).FormulaR1C1 = "=RC[-2]*RC[-1]"
End With
End Sub

Bob

"singh" wrote:

Hi

Is there any way to fill down all the cells through macro only for filled
cells?

Simple Example

I have ten number in column A and same in column B in Column C i need sum of
both the columns. column D multiplication.

For auto fill am using the below code apart from formula in cell C.
c=2
while range("A" & c).value < ""
range("C" & c).select
selection.filldown
c=c+1
wend

For D column I have to write the same code again. and if i have lots of
formulas in different columns the same thing continues.

Any solution.

Fill down for all the cells
 

Hi Kelly

Really very simple answer. But i can not use mouse while running the macro
to fill down by double click. In case I have to copy those data and paste it
somwhere then my entire macro is gone.

"Conan Kelly" wrote:

singh,

if you have a number in every single cell in column B down to the last row
of your data, select C1:D1 (or C2:D2 if your data starts in row 2) and
double-click the fill handle.

HTH,

Conan




"singh" wrote in message
...
Hi

Is there any way to fill down all the cells through macro only for filled
cells?

Simple Example

I have ten number in column A and same in column B in Column C i need sum
of
both the columns. column D multiplication.

For auto fill am using the below code apart from formula in cell C.
c=2
while range("A" & c).value < ""
range("C" & c).select
selection.filldown
c=c+1
wend

For D column I have to write the same code again. and if i have lots of
formulas in different columns the same thing continues.

Any solution.