Wildcards for dates

[Legacy 57334]

I have three columns with data as follows:

01/09/2007 | 5 | 06/09/2007
| 4 | 01/01/1900

If the value isnt set in column A then Column C shows this dummy date value.
I have some VBA which is serching for the data in ColumnC and exports it. The problem is that i want it to export "Unknown" if the default is displayed. How can i do that?

I tried an If/ElSE statment and used wildcards as "??/??/1900" but that didnt work.

Thanks
Joel

 

[Damon Ostrander]

Hi Joel,

To use wildcards you need the VBA Like operator. Example:

If Range("C4").Text Like "??/??/1900" Then
   'Export "Unknown"
Else
   'Export C4 value
End If

But if your intent is simply to determine if the year is 1900 you could use:

If Year(Range("C4").Value) = 1900  Then
   'Export "Unknown"
Else
   'Export C4 value
End If

Note the use of the Value and Text properties of the cell. This is because the underlying value of the cell (the Value property) is not the text string "01/01/1900" but rather the number of days elapsed since 1/0/1900, or a value of 1. The Text value (i.e., what is displayed in the cell) is the result of formatting the underlying value as mm/dd/yyyy.

I hope this helps.

Damon

 

[Legacy 57334]

it works AND Youve explained teh reason brilliantly, thank you!