Add "" if cell blank

[Livin404]

Greetings I have the following VBA, I need another component to show if there is nothing or a blank cells there will be nothing added. The formula below is still adding 0000 to an empty cell.

Sub twenty_four_hour_Clock()
With Range("D1", Range("D" & Rows.Count).End(xlUp))
x = .Address

.Value = Evaluate("if(len(" & x & ")=3,""0""&" & x & "," & x & ")")
.Value = Evaluate("if(len(" & x & ")=2,""00""&" & x & "," & x & ")")
.Value = Evaluate("if(len(" & x & ")=1,""000""&" & x & "," & x & ")")
End With
End Sub

 

[Fluff]

How about

Sub twenty_four_hour_Clock()
With Range("D1", Range("D" & Rows.Count).End(xlUp))
   x = .Address
   .Value = Evaluate("if(" & x & "="""","""",text(" & x & ",""0000""))")
End With
End Sub

 

[Livin404]

How about

Sub twenty_four_hour_Clock()
With Range("D1", Range("D" & Rows.Count).End(xlUp))
   x = .Address
   .Value = Evaluate("if(" & x & "="""","""",text(" & x & ",""0000""))")
End With
End Sub

Thank you! I have been working on trying to sort the times out for the last couple of weeks, and thought maybe I'm making more of a meal of this then necessary. I've included an image of times and their text counterparts. What code could I use to isolate just the time? It would have to be the 24 hour clock with no colon and include zeros in front of the number such as 0005, 0325 etc. I tried something like (see below) just to experiment, and it left me with 0000 for each item. If I can get the times this way I think it will save a lot of extra macros including the one you just helped me with. Thank you, so much!

Sub TIME()

Range("D13") = Format(Date, "HHMM")


End Sub

 

[Fluff]

As this is a different question, then you will need to start a new thread.

 

[Livin404]

Got it! and that is what I just did.

 

[Fluff]

Thank you.