VBA Convert Format "D/M" to text only

[30136353]

Hi Guys,

I have a bunch of dates which are actually address numbers, in order to vie them correctly I format them to "d/m", which shows the correct number. How I can then remove the date aspect out of the numer and keep the value of the cell "d/m", Example:

43620 is the value of the cell, date = 04/06/2019. This cells should actually be 4/6 ( An address number ), so I format it to "d/m" to show this, but some of my later validation is failing because the value is still 43620... I have it written in a code but not sure how to convert it to text only keeping the original format.

    For Each C1 In Range("B2:D200")
    If C1 > 2000 Then
    C1.NumberFormat = "d/m"
    End If
    Next C1

 

[Oaktree]

For Each C1 In Range("B2:D200")
If C1 > 2000 Then
C1.NumberFormat = "@"
C1.value = Format(C1,"d/m")
End If
Next C1

 

[Fluff]

How about

    If c1 > 2000 Then
    c1.NumberFormat = "@"
    c1.Value = Format(c1, "d/m")
    End If

 

[30136353]

How about

    If c1 > 2000 Then
    c1.NumberFormat = "@"
    c1.Value = Format(c1, "d/m")
    End If

That has worked a treat!!! thanks

 

[Fluff]

Glad we could help & thanks for the feedback.