Encontre en el foro esta macro para un calendario automático
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range): On Error GoTo Sal
Unload Calendario
If UCase(Sh.Cells(5, Target.Row)) Like "*FECHA*" And _
Target.Row > 1 And _
Target.Cells.Count = 1 And _
IsEmpty(Target.Offset(-1, 0)) = False Then
Calendario.Top = ActiveCell.Top + 160
Calendario.Left = ActiveCell.Left + 18
Calendario.Show
End If
Sal:
End Sub
Necesito modificarla para que solo se aplica ciertas celdas y filas
Por ej
en la columna C y fila 4
Y en mi planilla las celdas con la palabra fecha estan en la columna A
Desde ya muchas gracias a quien pueda orientarme
Saludos
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas tardes
Encontre en el foro esta macro para un calendario automático
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range): On Error GoTo Sal
Unload Calendario
If UCase(Sh.Cells(5, Target.Row)) Like "*FECHA*" And _
Target.Row > 1 And _
Target.Cells.Count = 1 And _
IsEmpty(Target.Offset(-1, 0)) = False Then
Calendario.Top = ActiveCell.Top + 160
Calendario.Left = ActiveCell.Left + 18
Calendario.Show
End If
Sal:
End Sub
Necesito modificarla para que solo se aplica ciertas celdas y filas
Por ej
en la columna C y fila 4
Y en mi planilla las celdas con la palabra fecha estan en la columna A
Desde ya muchas gracias a quien pueda orientarme
Saludos