Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Necesito colocar el calendario en 10 columnas intercaladas y la forma que conozco no me sirve ya que puedo solo en dos
favor vuestra ayuda Muchas Gracias
El código que coloco en la hoja en cuestión es el siguiente:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngFechas As Range
Set rngFechas = Range("a:a,b:b")
If Union(Target, rngFechas).Address = rngFechas.Address Then _
Call abrir_calendario
End Sub