Saltar al contenido

Consulta sobre Calendario Automatico

publicado

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

Featured Replies

publicado
  En 12/11/2021 at 16:37 , CSI1981 dijo:

en la columna C y fila 4

Una sola celda
If Target.Address(0, 0) = "C4" Then Calendario.Show

Para rango
If Not Application.Intersect(Target, Range("C4:C10")) Is Nothing Then Calendario.Show

Solo adapta a tu archivo 

 

Saludos 

publicado

Gerson una consulta

la linea

If Target.Address(0, 0) = "C4" Then Calendario.Show

en que parte de la macro iria?

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.