Anónimo
Macro que copie celdas e la izquierda
Hola, buenas, ante todo muchas gracias por vuestra atención.
Es impresionante la cantidad de información que nos facilitáis.
Mi problema es que me gustaría crear un macro mediante el cual si yo estoy posicianado en la celda t22, por ejemplo, el me copie el contenido de la t20 a la t22 y de la t21 a la t23, y me deje posicionado finalmente en la t24. Esta misma rutina para la celda en la que yo esté y me coja las de al lado y tal..
He intentado hacerlo pero me hace la misma operación con las celdas fijas es decir siempre se va a las marcadas, no toma las de al lado.
Gracias, me gustaría que me solucionarais como hacer el mismo macro pero que tome la referencia de la celda en la que estoy.
Es impresionante la cantidad de información que nos facilitáis.
Mi problema es que me gustaría crear un macro mediante el cual si yo estoy posicianado en la celda t22, por ejemplo, el me copie el contenido de la t20 a la t22 y de la t21 a la t23, y me deje posicionado finalmente en la t24. Esta misma rutina para la celda en la que yo esté y me coja las de al lado y tal..
He intentado hacerlo pero me hace la misma operación con las celdas fijas es decir siempre se va a las marcadas, no toma las de al lado.
Gracias, me gustaría que me solucionarais como hacer el mismo macro pero que tome la referencia de la celda en la que estoy.
1 Respuesta
Respuesta de juanbauzam
1
Por lo que mencionas, te envío esta macro que trabaja con una sola columna, porque tu pregunta es vaga.
Si falta algo, vuelves a consultar
Sub Copia()
'
ActiveCell.Offset(-2, 0).Range("A1").Select
Selection.Copy Destination:=ActiveCell.Offset(2, 0).Range("A1")
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Copy Destination:=ActiveCell.Offset(2, 0).Range("A1")
ActiveCell.Offset(3, 0).Range("A1").Select
End Sub
Si falta algo, vuelves a consultar
Sub Copia()
'
ActiveCell.Offset(-2, 0).Range("A1").Select
Selection.Copy Destination:=ActiveCell.Offset(2, 0).Range("A1")
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Copy Destination:=ActiveCell.Offset(2, 0).Range("A1")
ActiveCell.Offset(3, 0).Range("A1").Select
End Sub