Macro copiar y pegar rango de fila en otro libro
Tengo este código que esta funcionando
Sub Macro4()
Range("C4:H4").Select
Selection.Copy
Range("J4").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("J5").Select
Windows("MACRO RECIBOS.xls").Activate
Range("O9").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B5").Select
End Sub
Mi necesidad es la siguiente
La línea Range("C4:H4").Select quisiera reemplazarla con una línea que seleccione el rango C:H de la fila que contenga la celda activa, ejemplo si la celda activa es H4, que copie C4:H4, si la celda activa es H5, que copie C5:H5 y así sucesivamente.
La línea Range("J4").Select quisiera reemplazarla con una línea que seleccione la celda J de la fila que contenga la celda activa. Ejemplo si la celda activa es H4, que pinte de amarillo J4 y así sucesivamente.
La línea Range("J5").Select quisiera reemplazarla con una línea que seleccione la celda J de abajo de la fila que contenga la celda activa. Ejemplo si la celda activa es H4, que seleccione la celda J5 y así sucesivamente.
1 respuesta
H o l a:
Te anexo la macro actualizada
Sub Macro4()
'Act.Por.Dante Amor
f = ActiveCell.Row
Range("C" & f & ":H" & f).Copy
With Range("J" & f).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("J" & f + 1).Select
Windows("MACRO RECIBOS.xls").Activate
Range("O9").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B5").Select
End Sub
