Macro for blanks
Solved/Closed
Connie
-
Apr 17, 2015 at 09:36 AM
vcoolio
vcoolio
- Posts
- 1356
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- August 11, 2022
1 reply
vcoolio
Apr 19, 2015 at 07:21 AM
- Posts
- 1356
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- August 11, 2022
Apr 19, 2015 at 07:21 AM
Hello Connie,
Replace this part of your code:-
with this:-
to see if it helps.
The code assumes that you have a heading in W1.
Cheerio,
vcoolio.
Replace this part of your code:-
Columns("W:W").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.FormulaR1C1 = "'6/30/2014"
with this:-
On Error Resume Next For Each c In ActiveSheet.Range("W2:W" & Rows.Count).SpecialCells(xlCellTypeBlanks) If c.Value = "" Then c.Value = "'6/30/2014" End If Next
to see if it helps.
The code assumes that you have a heading in W1.
Cheerio,
vcoolio.
Apr 21, 2015 at 08:05 AM
Apr 21, 2015 at 06:37 PM
Cheerio,
vcoolio.