Delete cell values with Date function in vba

[frankytheman]

Hi all,

i have the following code in a module:

Please Login or Register  to view this content.

If cell A1 has today's date it will delete the cell value in B1.
It works fine however, I want to have it for 5 more rows.
I tried Range("A1:A5") which suppose to delete the values in B1:B5 but it doesn't.
Basically, what I would like is if eg. A3 has today's date then it will delete the cell value in B3.
If A4 has today's date then it will delete the cell value in B4
I have attached a sample file.
The real workbook i have has more than 10000 rows, for this example i just kept it with 5 rows.

[mehmetcik]

Please Login or Register  to view this content.

[frankytheman]

Hi mehmetcik,
that's so cool.
Thank you so much.
How can i also delete B column? Currently it only deletes A column.

[Marc L]

According to your attachment a VBA beginner starter demonstration :

Sub DeleteDates() 
    [B1:B5] = [IF(A1:A5=TODAY(),"",B1:B5)] 
End Sub  

Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

[mehmetcik]

Please Login or Register  to view this content.

[Rick Rothstein]

Please Login or Register  to view this content.

You can also do the above part of your code with just a single call to the SpecialCells function...

Please Login or Register  to view this content.

[mehmetcik]

Thanks Rick

I have previously tried all manner of solutions without success.

[frankytheman]

Hi Rick, thank you. This has solved my issue. Thank you so much. Reps on the way.