VBA - Run macro if last day of the week

[OldAndWeak182]

Hello,
My example: in A I have the 5 days of the working week and a list of stuff next to.
Every 5 days I create a summary of the week in 2 rows (with formula).
After this I created a button that runs a macro that copies the table format and formula extending next 5 days and creates the weekly report rows.
I would like it to run the macro by itself when it reaches the 5th day of the week. I hope I was clear, I have a bit of difficulty in translating...

Max

 

[OldAndWeak182]

Here is my file https://easyupload.io/qa8wh2

 

[OldAndWeak182]

anyone?

 

[Michael M]

Can't open the file but you could usze something like

If Format(Now(), "DDD") = "FRI" Then "if today is Friday
'run code

 

[OldAndWeak182]

Can't open the file but you could usze something like

If Format(Now(), "DDD") = "FRI" Then "if today is Friday
'run code

Here is the right link Gofile - Free file sharing and storage platform
try looking at my file structure because i can't apply your example

 

[Michael M]

So, you want to run this macro Sub Aggingi_Week() every Friday ??
In your This Workbook module put...
S

ub Workbook_open()
If Format(Now(), "DDD") = "FRI" Then
  Call Aggingi_Week
End If
End Sub

 

[OldAndWeak182]

So, you want to run this macro Sub Aggingi_Week() every Friday ??
In your This Workbook module put...
S

ub Workbook_open()
If Format(Now(), "DDD") = "FRI" Then
  Call Aggingi_Week
End If
End Sub

almost, I would only run the macro when any Friday cell on the current week is filled in!

 

[Michael M]

Assuming the current week is at the bottom of the table

Sub Workbook_open()
Dim lr As Long
lr = Sheets("andamento").Cells(Rows.Count, "B").End(xlUp).Row
If WorksheetFunction.CountA(Range(Cells(lr - 2, 2), Cells(lr - 2, 16))) = 0 Then
If Format(Now(), "DDD") = "FRI" Then
  Call Aggingi_Week
End If
End If
End Sub

 

[OldAndWeak182]

Assuming the current week is at the bottom of the table

Sub Workbook_open()
Dim lr As Long
lr = Sheets("andamento").Cells(Rows.Count, "B").End(xlUp).Row
If WorksheetFunction.CountA(Range(Cells(lr - 2, 2), Cells(lr - 2, 16))) = 0 Then
If Format(Now(), "DDD") = "FRI" Then
  Call Aggingi_Week
End If
End If
End Sub

great, but I realized that the date is not actually a date and I can't change the format of that column.
In your opinion is there another way to achieve the same result knowing that we cannot use the date as a variable?

 

[Michael M]

My code doesn't need the column to be a date ! and doesn't use it as a variable !
The code I provided counts the cells from col "B" to Col "Q" If the are ALL blank it then moves onto
If today is Friday... run the code
nothing to do with what is in Col "A"