|
Lo que quieres es sencillo, el requisito indispensable en el codigo que te anexo es que los meses esten en orden de izquierda a derecha Enero...Diciembre...
Option Explicit
Private Sub Workbook_Open()
On Error Resume Next
Worksheets(Month(Now)).Select
Cells(Day(Now), 1).Activate
End Sub
Este codigo lo tienes que copiar "dentro" del libro donde quieras que funciones, pero como mencioanas que sabes mucho de macro, puedes solicitar el ejemplo a mi correo y si es lo que quieres te agradecere si finalizas esta pregunta, saludos desde México...
Mauricio Baeza
TODO LO QUE NO ES DADO ES PERDIDO
mbs A inbox P net
Quita los espacios y sustituye A = @ y P = .
|
