Saltar al contenido

calendario

publicado

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

Featured Replies

Archivado

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