Copiar varias filas de una hoja a otra hoja
s), necesito una macro que pueda copiar los datos de las columnas "B", "C", "D", "E", empezando desde la fila 6 a otra hoja y que a la vez valla rellenado en la columna "A" un mismo de la celda "B4".
PD: si se puede tambien una macro para poder agregar un contador de filas en la columna "A"(ID).
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para copiar
Sub Copiar()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
u = h1.Range("B" & Rows.Count).End(xlUp).Row
If u < 6 Then
MsgBox "No hay datos a copiar"
Exit Sub
End If
'
h1.Range("B6:H" & u).Copy
h2.Range("B6").PasteSpecial xlValues
h2.Range("A6:A" & u) = h1.Range("B4")
Application.ScreenUpdating = True
Application.CutCopyMode = False
MsgBox "Fin"
End SubLa macro para rellenar
Sub consecutivo()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
u = h1.Range("B" & Rows.Count).End(xlUp).Row
If u < 6 Then
MsgBox "No hay datos a copiar"
Exit Sub
End If
h1.Range("A6") = 1
If u > 6 Then h1.Range("A7") = 2
If u > 7 Then h1.Range("A6:A7").AutoFill Destination:=Range("A6:A" & u)
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
¡Gracias! Estimado Dante, es grato saber que hay profesionales capaces y con grandes intensiones de compartir sus conocimientos para logar el desarrollo de los demás.
