Updating macro functionality

[detweiler]

Okay, so really weird, because I thought I had received help with this macro here, but found that there weren't any replies to my initial request ( ? ).

So, I have this macro -

Dim c As Range, d As String​

​

For Each c In Range("J2", Range("J" & Rows.Count).End(xlUp))​

If c.Value Like "*[0-9]*" Then​

d = Range("J" & c.Row & ":P" & c.Row).End(xlToRight)​

c.Value = IIf(d <> "", d, c)​

End If​

​

Next
​

What I have been trying to find is some variant that I could frankenvba into the code so that when it comes across a cell in "J" that is empty, it fills it with a color.

Comments, suggestions and thoughts are welcomed.

Much thanks.

 

[Fluff]

How about

Sub detweiler()
   Range("J:J").SpecialCells(xlBlanks).Interior.Color = 45678
End Sub

Also where is the other thread, as I can't find it?

 

[detweiler]

Here's my original posting.

Is there a way to incorporate that into the existing macro so it's processing the column at once, or is it better to be separated out like that?

 

[Joe4]

Okay, so really weird, because I thought I had received help with this macro here, but found that there weren't any replies to my initial request ( ? ).

Perhaps you also posted it in another forum, and got help there.

Note if you do that (known as "Cross-Posting"), that we ask that you follow our guidelines on Cross-Posting, as mentioned in rule 13 here: https://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html

Thanks

 

[Fluff]

You can add it to your existing code, or keep it separate. Which ever you prefer.

Thanks for the link & I have now closed that thread.

 

[detweiler]

Did that once before, got called out on it and decided to keep it simple by staying in this forum.

 

[detweiler]

Am I correct in surmising that the macro will fill all of the blank/empty cells in column J?

If so, I apologize for not being more specific with my inquiry about incorporating code into the existing macro. The reason for wanting to add the additional code is so that it would only fill those blank/empty cells that fell within the range returned from counting cells with data in column J ( For Each c In Range("J2", Range("J" & Rows.Count)... ).

Appreciate the input and time.

 

[Fluff]

It will only fill blank cells within the usedrange.