Macro que se ejecuta todos los DOMINGOS, cambiarla a que se ejecute el día 1 de cada MES
Me has hecho esta macro que se ejecuta todos los Domingos:
'Por.Dante Amor
dia = Weekday(Date)
If Weekday(Date) = 1 Then
If Sheets("Estadistica Venta").[A3] <> Date Then
Call EXISTENCIA_Y_SUS_COSTOS
ActiveSheet.Unprotect Password:="1"
Sheets("Estadistica Venta").[A3].NumberFormat = "General"
Sheets("Estadistica Venta").[A3] = Date
End If
End If
Y necesitaría que en vez de los DOMINGOS, sea cada 1º de MES.
Un abrazo y saludo Dante
2 Respuestas
Respuesta de Dante Amor
2
H o l a: Te anexo la macro actualizada:
'Por. Dante Amor
'dia = Weekday(Date)
If Day(Date) = 19 Then
If Sheets("Estadistica Venta").[A3] <> Date Then
Call EXISTENCIA_Y_SUS_COSTOS
ActiveSheet.Unprotect Password:="1"
Sheets("Estadistica Venta").[A3].NumberFormat = "General"
Sheets("Estadistica Venta").[A3] = Date
End If
End If
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Gracias Dante otro fenomenal
Un saludo
Estaba probando y le dejé el 19, cambia 19 a 1 en esta línea:
If Day(Date) = 19 Then
