Please have a look( I need short cut for this)

[siva kumar boggula]

Hi all,

I want to fill the colour cells in above values.please send immediatly.

 

[Mike H..]

Hi all,

I want to fill the colour cells in above values.please send immediatly.

Have a look at your workbook.

 

[siva kumar boggula]

Thanks alot

 

[siva kumar boggula]

Please do for this

 

[Mike H..]

Please do for this

Hi,

Use this variation of the code, as before select the area to fill. The code will fill numbers or text.

Sub FillBlanks2()
Dim Area As Range
For Each Area In Selection. _
  SpecialCells(xlCellTypeBlanks).Areas
Area.Value = Area(1).Offset(Area.Cells.Count).Value
  Next


End Sub