Insertar fila sin afectar otras columnas excel vba
[Hola Dante buen día
De esta pregunta como inserto fila sin afectar la columna F, G, H, I, es decir que no lo deja filas en blanco
Macro para copiar captura de una hoja a otra hoja
Sub Macro1()
'
' Copiar a concentrado
Set h1 = Sheets("CAPTURA")
Set h2 = Sheets("concentrado")
'
u = h1.Range("A" & Rows.Count).End(xlUp).Row
If u < 8 Then
MsgBox "No existen filas a copiar"
Exit Sub
End If
'
filas = u - 7
h1.Rows("8:" & u).Copy
h2.Rows("8:" & 8 + filas).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
h1.Rows("8:" & u).ClearContents
MsgBox "Filas copiadas"
End Sub
[
Respuesta de Dante Amor
2
Prueba copiando solamente el rango
Sub Macro2()
'
' Copiar a concentrado
Set h1 = Sheets("CAPTURA")
Set h2 = Sheets("concentrado")
'
u = h1.Range("A" & Rows.Count).End(xlUp).Row
If u < 8 Then
MsgBox "No existen filas a copiar"
Exit Sub
End If
'
filas = u - 7
h1.Range("A8:D" & u).Copy
h2.Range("A8:D" & 8 + filas).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
h1.Range("A8:D" & u).ClearContents
MsgBox "Filas copiadas"
End Subsal u dos
¡Gracias Dante!
Ya sabes, con todo gusto.
No olvides valorar.
