Copy values from rows into blank cells below

[Penn]

Hi,

I have one more part of a module that I havn't been able to work out...

I want to copy values from Columns 'B', 'D-E' into all cells below where there are no values.

Once a row has a value again then I want to re-run the copy and paste.

I have attached examples for clarification.

I really appreciate your help!

Thanks :-)

[Naveed Raza]

It sounds like u want above value where ever blank is there if it right then try below way

1) First Select your data from B2:E7
2) Press F5 --> Click on Special -->
3) Select Blanks --> Click OK
4) And Link above cell (Press Equal Sign(=) & select above cell)
5) Prss Control & Hold it & then Press Enter

[YasserKhalil]

Mr. Pen
If you are concerned to that by code:

Please Login or Register  to view this content.

[Penn]

I never noticed the F5 special function before... it's great!
But I was looking for something I could put in VBA script but this has helped me greatly for the macro recording!

[Penn]

Thanks! I was looking for a macro. I got an error with this script.... but when I combined the advice from you and Naveed... this is what I came up with... works a treat! I added a few extra columns too to my selection....


Sub FillBlankCells()
'
Range("A:N,P:V").Select
Range("P1").Activate
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
Range("A2").Select
End Sub

[Naveed Raza]

Hi

Glad to help , pleas click on *Add Reputation to say thanks..

[Penn]

Done, Thanks