VBA Macro to auto populate value

[blossomthe2nd]

Hi Guys,

Im looking for a macro that will select all blank cells within a range B2:DL123 and populate it with "W",

I am using Excel 2003, can anyone help as I have tried a few different things to no avail !!!

Thanks
A

 

[VoG]

Try

Sub test()
Range("B2:DL123").SpecialCells(xlCellTypeBlanks).Value = "W"
End Sub

 

[Michael M]

Hi A
try

Sub adW()
For Each cell In Range("B2:DL123")
    If cell.Value = "" Then cell.Value = "W"
Next cell
End Sub

 

[blossomthe2nd]

VoG

You are the unsung hero of this project thanks again

Works perfectly

A

 

[blossomthe2nd]

Sub adW()
For Each cell In Range("B2:DL123")
If cell.Value = "" Then cell.Value = "W"
Next cell
End Sub

Hi Michael,

We have used your script as there was loads of conditions such as

If cell.Value = "Y" Then cell.Value = "Yes"

Do you know if this script can be amended for colour ? so if the background colur is Grey .value="no"

Thanks

 

[blossomthe2nd]

For Each cell In Range("B2:DL123")
If cell.Interior.ColorIndex = 15 Then cell.Value = "Weekend"
Next cell

Got it thanks