Macro para copiar captura de una hoja a otra hoja
Para dante amor buenas tardes un gusto volver a saludarlo nuevamente recurro a su experiencia, tengo 2 hojas, hoja captura y hoja concentrado necesito pegar lo de la hoja captura en la hoja de concentrado y al volver a capturar lo haga en la fila superior de la captura anterior (HOJA CAPTURA, A8:P82 que se peguen los valores en HOJA CONCENTRADO aprtir de la celda A8 son el mismo numero de columnas (de A:P) y al dia siguiente al hacer nuevamente la captura los pegue en la fila superior de la captura anterior espero ser claro saludos y
1 Respuesta
Prueba con la siguiente macro
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.Avísame cualquier duda
.
Esta excelente la macro solo me gustaría que de la hoja captura no borre ningún valor que me deje todos los datos escritos y en la hoja concentrado solo pegue valores sin fórmulas ni cuadricula ni formatos condicionales
Gracias
Utiliza la siguiente macro
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
h2.Rows("8:" & 8 + filas - 1).Insert
h1.Rows("8:" & u).Copy
h2.Range("A8").PasteSpecial xlValues
MsgBox "Filas copiadas"
End Subsal u dos
