Forum Discussion
Solved
Need help with VBA code to clear content of a range of cells based on today's date.
Good morning, I am looking for help to formulate VBA Code. I need to clear the contents of Columns C:F if Column F is less than today's date. Can anyone help me with this? Please and than...
Without clicking the button?
Private Sub Worksheet_Activate() Dim i As Long For i = 2 To 1000 If Cells(i, 6) < Date Then Range(Cells(i, 3), Cells(i, 6)).Clear Else End If Next i End SubMaybe with the Worksheet_Activate event.
After opening the attached file the sheet "Tabelle1" is shown with all the data. If you select "Tabelle3" and then again activate "Tabelle1" the Worksheet_Activate event is executed.
Sub clear_C_to_F()
Dim i As Long
For i = 2 To 1000
If Cells(i, 6) < Date Then
Range(Cells(i, 3), Cells(i, 6)).Clear
Else
End If
Next i
End SubMaybe with these lines of code. In the attached file you can click the button in cell H2 to run the macro.
This is great! Is there anyway to automate the process when the spreadsheet is opened?
Without clicking the button?
Private Sub Worksheet_Activate() Dim i As Long For i = 2 To 1000 If Cells(i, 6) < Date Then Range(Cells(i, 3), Cells(i, 6)).Clear Else End If Next i End SubMaybe with the Worksheet_Activate event.
After opening the attached file the sheet "Tabelle1" is shown with all the data. If you select "Tabelle3" and then again activate "Tabelle1" the Worksheet_Activate event is executed.
- It didn't work for me, but my brain woke up a little bit. I was able to add to your code above and now it works. Thank you so much for helping me on this morning that my brain just couldn't think in code!!! I appreciate you!