Como hacer una Macro que se ejecute al presionar dar click en una celda.

Hola muchas gracias por contestar, lo que necesito es hacer una Macro que copie la formula de una celda a otra celda de otra hoja al dar click sobre esta otra.

Lo de copiar la formula lo hice simplemente grabado una Macro, y funciona muy bien incluso definí un atajo de teclado, pero lo que necesito es que se ejecute la macro al dar click en una celda especifica.

vi que se puede hacer esto:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$15" Then Call Copiar
End Sub

pero no se como acomodarlo. Podrías orientarme.

1 Respuesta

Respuesta
1

Te pongo un ejemplo:

-Tenemos una fórmula en la celda H3 y queremos que cuando toquemos la celda E15 se copie la fórmula anterior a la celda H4. Este sería el código que tienes que poner dentro del objeto hoja que estás tratando, no va en un módulo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$15" Then
Range("h3").Copy Destination:=Range("h4")
End If
End Sub

no olvides finalizar la consulta

Hola gracias por responder, ya lo probé y funciona bien, solo una duda, si es una copia de celdas entre distintas hojas, que tendría que cambiar?

En ese caso te mando un ejemplo:

Con esta macro, en el momento que toquemos la celda E15 de nuestra hoja activa se copiará el contenido de la celda H3 a la hoja3 en la celda H4

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$15" Then
Range("h3").Copy Destination:=sheets("hoja3").Range("h4")
End If
End Sub

no olvides finalizar

Gracias por su ayuda, ya sin meterme en problemas lo uni que hice fue en vez de poner el código que hace la copia, invoque una Macro sobre la cual realice lo que quería hacer. Bueno gracias nuevamente es bueno contar con ayuda de la comunidad.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas