Macro copiar celdas
Tengo grabada una macro que me copia el contenido de una celdas en otras como puedo hacer para que me copie cualquier celda independientemente de donde este pulsado el cursor
Si estoy situado el la fila 2 me tiene que copiar el contenido de b1 y d1 en b2 y d2, si estoy situado en la fila 20, me tiene que copiar b19.d19 en b20.d20
--------
Range("B2").Select
Selection.Copy
Range("B3").Select
ActiveSheet.Paste
Range("E2").Select
Application.CutCopyMode = False
Selection.Copy
Range("E3").Select
ActiveSheet. Paste
Si estoy situado el la fila 2 me tiene que copiar el contenido de b1 y d1 en b2 y d2, si estoy situado en la fila 20, me tiene que copiar b19.d19 en b20.d20
--------
Range("B2").Select
Selection.Copy
Range("B3").Select
ActiveSheet.Paste
Range("E2").Select
Application.CutCopyMode = False
Selection.Copy
Range("E3").Select
ActiveSheet. Paste
1 respuesta
Respuesta de tavopz
1
Puedes usar el método ActiveCell, para saber dónde estás ubicado cada vez que se ejecuta la macro, luego, puedes obtener de este el número de la fila y con base en esto crear tu macro, algo así:
Sub Macro()
x = Activecell.Row
Range("B" & x).Select
Selection.Copy
Range("B" & x+1).Select
ActiveSheet.Paste
Range("E" & x).Select
Application.CutCopyMode = False
Selection.Copy
Range("E" & x+1).Select
ActiveSheet.Paste
End Sub
Prúebalo para ver si te funciona. Sino, me preguntas nuevamente.
Sub Macro()
x = Activecell.Row
Range("B" & x).Select
Selection.Copy
Range("B" & x+1).Select
ActiveSheet.Paste
Range("E" & x).Select
Application.CutCopyMode = False
Selection.Copy
Range("E" & x+1).Select
ActiveSheet.Paste
End Sub
Prúebalo para ver si te funciona. Sino, me preguntas nuevamente.
