Macro

[JuanVeva]

Buenos días y Felices Fiestas, quisiera pedir ayuda sobre el siguiente evento, he hecho un calendario y estoy intentando que al darle clic en cualquier día del calendario se ponga la fecha en una...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JasallBcn]

Buenas , a tu código le falta cerrar el paréntesis.

If Not Intersect(Range("B7:H12"),Target.Cells(1) )  Is Nothing Then

debería funcionar...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Otra forma:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Range("B7:H12"), ActiveCell) Is Nothing Then
      Range("C1").Value = ActiveCell
   End If...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JuanVeva]

Buenas tardes, muchisimas gracias por su ayuda, va perfectamente.
Feliz año 2023
Saludos
Juan Manuel