Como adaptar instrucción

"Miguel" escribió
Saludos,
Tengo una macro en una hoja excel para que me muestre un calendario en
cualquier celda de la columna A, pero necesito que también se muestre
en la columna G, pero no se como hay que adaptar esa instrucción. La
macro que tengo es la siguiente:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngFechas As Range
Set rngFechas = Range("A:A") 'Muestra el calendario en
cualquier celda de la columna A
If Union(Target, rngFechas).Address = rngFechas.Address Then
Call abrir_calendario
End Sub

Muchas Gracias.
Un saludo,
Miguel A.


Hola Miguel,

Modifica el código de la siguiente forma:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Debug.Print (Target.Column = 1 Or Target.Column = 7), Target.Count < 2

If (Target.Column = 1 Or Target.Column = 7) And Target.Count < 2 Then
Call abrir_calendario
End If
end sub

En la rutina que indicas se permite la ejecución en el caso de seleccionar
varias celdas de la columna A
En el caso de ser el comportamiento deseado elimina
target.count<2
de la condición if

Un saludo,
Juan