Esta macro que solo actúe al abrir la primera vez en el día
Rectificar esta macro para que solo actúe al abrir la primera vez en el día:
Dim mensaje As String, DiaSemana As Byte
DiaSemana = Weekday(Now, vbMonday)
If DiaSemana = "2" Or DiaSemana = "3" Or DiaSemana = "4" Or DiaSemana = "5" Or DiaSemana = "6" Then
Call Macro1
ElseIfDiaSemana = "1" Or DiaSemana = "7" Then
Call
Else
End If
End Sub
1 Respuesta
Respuesta de Dante Amor
2
Te anexo la macro actualizada
Ante se ejecuta la macro, debes crear una hoja con el nombre "temporal"; si quieres, puedes ocultar la hoja.
'Act. Por. Dante Amor
Dim mensaje As String, DiaSemana As Byte
Dim h
Set h = Sheets("temporal")
If h.[A1] = Date Then
If h.[B1] = 1 Then
Exit Sub
Else
h.[B1] = 1
End If
Else
h.[A1] = Date
h.[B1] = 1
End If
DiaSemana = Weekday(Now, vbMonday)
Select Case DiaSemana
Case 2, 3, 4, 5, 6: Call macro1
Case 1, 7: Call otramacro
End Select
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
