Macro para copiar ciertas celdas de una hoja y guardarlas en otra hoja
Para: Dante Amor
Recurriendo nuevamente a tu asombrosa ayuda, tengo una hoja1 que es mi base de datos de esta hoja quiero copiar ciertas celdas pero siempre de la ultima fila y guardarlas en la hoja2 por ejemplo.
Bueno esto solo es un ejemplo yo ya lo adaptare a mi archivo.
2 Respuestas
Respuesta de Marcial C. C.
2
Prueba con esto:
Private Sub CommandButton1_Click()
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
uf = h1.Range("A" & Rows.Count).End(xlUp).Row
Range("A" & uf & ":B" & uf & ",E" & uf).Copy
uf = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Range("A" & uf).PasteSpecial Paste:=xlPasteValues, Transpose:=False
Application.CutCopyMode = False
End SubSi te ha valido la respuesta.
Respuesta de Dante Amor
1
Asigna la siguiente macro a tu botón de copiar y guardar.
Private Sub CopiarGuardar()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row
h1.Range(h1.Cells(u1, "A"), h1.Cells(u1, "E")).Copy
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Range("A" & u2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.Save
MsgBox "Copia terminada", vbInformation, "COPIAR Y GUARDAR"
End SubSaludos.Dante Amor
No olvides valorar la respuesta.