Anónimo
Macro para copiar celdas especificas de una fila de h1 en celdas determinadas de h2 al dar doble click en columna A de h1
Mi duda es como hacer para copiar las celdas especificas de hoja 1 a hoja 2 en determinadas celdas al hacer doble click en la columna A de la hoja uno
Las celdas destino las tengo definidas con columna y numero de fila mi detalle es
Al querer que al dar el doble clik en la columna A de hoja1 tome el numero de fila
Para todas las columnas y realice la copia a hoja 2
Para lo del doble click estoy utilizando
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
y para limitarlo a que solo funcione en la columna A
If Target.Column <> 1 Then Exit Sub
al igual lo limito a que funcione solo a partir de la fila 9 con:
If Target.Row < 9 Then Exit Sub
intente con: Const CeldaOrigen = "C" & ActiveCell.Row
Const CeldaDestino = "F15"
Pero me marca error :(
Origen destino
Hoja1 hoja2
An f9
Bn F11
Cn F15
Gn K9
Hn P9
Kn O17
N es el numero de la fila en la que se le dio el doble click
Espero me puedan ayudar de antemano muchas gracias :3
1 Respuesta
H o l a:
Te anexo la macro actualizada
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Act.Por.Dante Amor
If Target.Column <> 1 Then Exit Sub
If Target.Row < 9 Then Exit Sub
n = Target.Row
Set h2 = Sheets("Hoja2")
h2.[F9] = Cells(n, "A")
h2.[F11] = Cells(n, "B")
h2.[F15] = Cells(n, "C")
h2.[K9] = Cells(n, "G")
h2.[P9] = Cells(n, "H")
h2.[O17] = Cells(n, "K")
End Sub
Disculpe me marca error en esta línea
Set h2= Sheets ("Hoja2")
Cambia Hoja2 por el nombre de tu hoja destino.
R ecuerda valorar la respuesta. G r a c i a s
Hoja2 es el nombre de mi hoja destino
lo que entiendo es que
h2.[F9] = Cells (n, "A") es que la hoja2 en la posicion f9 sera igual a lo que tenga la celda seleccionada en la columna A
Tienes que poner la macro en los eventos de tu hoja1.
Seleccionar la hoja1, dar doble clic a una celda de la columna A y los datos serán enviados a la hoja2.
¿Modificaste la macro?
¿Dime qué mensaje de error te aparece?
Puedes poner 2 imágenes, una con los datos de tu hoja1, y otra de la hoja2. Procura que en las imágenes se vean las letras de las columnas, los números de fila y los nombres de las hojas.
ya quedo muchas gracias no se bien por que no quería funcionar con el nombre de "Hoja2" así que cambie tanto el nombre de la hoja en excel como en la macro que me envió y ya funciona muchas gracias :3
FELIZ AÑO NUEVO PARA USTED Y SU FAMILIA MIS MEJORES DESEOS PARA ESTE AÑO NUEVO QUE SE APROXIMA esperando se divierta al máximo hoy y siempre :3