How to auto delete cells every day

[airingersoll]

So I'm trying to create a leave/vacation tracker for my employees/coworkers, and I want to automate the worksheet so it automatically deletes(and shifts) certain cells every day. This is so the tracker remains up to date without anyone having to physical delete the cells themselves.

There is a forum on this site that explains how to do it, but I could never get it to work. Only thing I could figure out is how to auto-delete content and not the entire cell itself.

This is what I used.

Private Sub workbook_Open()
If Sheets("Aux").Range("A1").Value < Date Then
Sheets("LEAVE TRACKER").Range("D3:D34").Delete
End If
Sheets("Aux").Range("A1").Value = Date
End Sub


Any help would be greatly appreciated.

 

[alansidman]

You have provided code that we don't know if it works or not. You have not indicated what you actually want to happen. We can guess, but it would be better, if you just told us specifically what you would like to happen. In this manner, we can either amend your code if necessary or provide you with new code. Help us to help you. We cannot read your mind or see your workbook to understand your needs.

 

[airingersoll]

All I’m trying to do is auto delete this range of cells (D3:D34) at the start of every day. That’s pretty much it.

 

[Tetra201]

Maybe

Private Sub Workbook_Open()
    If Sheets("Aux").Range("A1").Value < Date Then
        Sheets("LEAVE TRACKER").Range("D3:D34").[COLOR=#ff0000]EntireRow[/COLOR].Delete
    End If
    Sheets("Aux").Range("A1").Value = Date
End Sub

 

[airingersoll]

You have provided code that we don't know if it works or not. You have not indicated what you actually want to happen. We can guess, but it would be better, if you just told us specifically what you would like to happen. In this manner, we can either amend your code if necessary or provide you with new code. Help us to help you. We cannot read your mind or see your workbook to understand your needs.

This is what I'm talking about. All I want to do is remove those cells (inside the red lines) at the beginning of each day.




Thank you for the help!

 

[alansidman]

Private Sub Workbook_Open()
    If Sheets("Aux").Range("A1").Value < Date Then
        Sheets("LEAVE TRACKER").Range("D3").[COLOR=#ff0000]EntireColumn[/COLOR].Delete
    End If
    Sheets("Aux").Range("A1").Value = Date
End Sub

 

[airingersoll]

Perfect. Thanks Alan!!!