Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date to nothing
Seeing another post, I noticed that you can format dates from cells:
i.e. strDate = Format(Cells(selection, "A"), "dd/mm/yyyy") That sounds idea for what I need. However, I guess I need to set the variable strDate to a Date. i.e. Dim strDate as Date That is great. But what I need to do is also have a condition that sets the strDate variable to nothing if a condition is true i.e. If strCondition = "1" then strDate = Format(Cells(selection, "A"), "dd/mm/yyyy") Else strDate = "" End if When I tried this, it said Type Mismatch. Obviously I need to wipe the old date out from the variable stDate everytime I loop through. Is there a way to set a date to nothing? Any help is appreciated. --- Message posted from http://www.ExcelForum.com/ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date to nothing
Andy,
The problem is that you are using Selection , which is a range, as a row number, which is a number. Change strDate = Format(Cells(selection, "A"), "dd/mm/yyyy") to strDate = Format(Cells(Selection.Row, "A"), "dd/mm/yyyy") -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "andyathome " wrote in message ... Seeing another post, I noticed that you can format dates from cells: i.e. strDate = Format(Cells(selection, "A"), "dd/mm/yyyy") That sounds idea for what I need. However, I guess I need to set the variable strDate to a Date. i.e. Dim strDate as Date That is great. But what I need to do is also have a condition that sets the strDate variable to nothing if a condition is true i.e. If strCondition = "1" then strDate = Format(Cells(selection, "A"), "dd/mm/yyyy") Else strDate = "" End if When I tried this, it said Type Mismatch. Obviously I need to wipe the old date out from the variable stDate everytime I loop through. Is there a way to set a date to nothing? Any help is appreciated. --- Message posted from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date to nothing
Try:
strDate = Empty -- Julian Milano "andyathome " wrote in message ... Seeing another post, I noticed that you can format dates from cells: i.e. strDate = Format(Cells(selection, "A"), "dd/mm/yyyy") That sounds idea for what I need. However, I guess I need to set the variable strDate to a Date. i.e. Dim strDate as Date That is great. But what I need to do is also have a condition that sets the strDate variable to nothing if a condition is true i.e. If strCondition = "1" then strDate = Format(Cells(selection, "A"), "dd/mm/yyyy") Else strDate = "" End if When I tried this, it said Type Mismatch. Obviously I need to wipe the old date out from the variable stDate everytime I loop through. Is there a way to set a date to nothing? Any help is appreciated. --- Message posted from http://www.ExcelForum.com/ |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date to nothing
You need to decide what you want strDate to be. A text string or a Date. A
Date dataType is a number that can be displayed in a Date format. "Dim strDate as Date" and "strDate = Format(yada yada)" won't work together. nor will "Dim strDate as Date" and "strDate = ''". Both are trying to assign a text string (the Format function returns a text string) to a variable that you have specifically declared to be a number. A classic case of TypeMismatch. Change "Dim strDate as Date" to "Dim strDate as String" and the code you posted will stop generating a TypeMismatch. -- George Nicholson Remove 'Junk' from return address. "andyathome " wrote in message ... Seeing another post, I noticed that you can format dates from cells: i.e. strDate = Format(Cells(selection, "A"), "dd/mm/yyyy") That sounds idea for what I need. However, I guess I need to set the variable strDate to a Date. i.e. Dim strDate as Date That is great. But what I need to do is also have a condition that sets the strDate variable to nothing if a condition is true i.e. If strCondition = "1" then strDate = Format(Cells(selection, "A"), "dd/mm/yyyy") Else strDate = "" End if When I tried this, it said Type Mismatch. Obviously I need to wipe the old date out from the variable stDate everytime I loop through. Is there a way to set a date to nothing? Any help is appreciated. --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Concatenate including a date so that the date appears as a date | Excel Worksheet Functions | |||
date in Cell to change colors if the date is beyond today's date | Excel Discussion (Misc queries) | |||
Making a date go red, if date passes todays date. | Excel Worksheet Functions | |||
Report Date - Date Recv = Days Late, but how to rid completed date | Excel Worksheet Functions | |||
Date updates from worksheet to chart & changes date to a date series! Help!! | Charts and Charting in Excel |