Copiar "n'' celdas a otro libro (Libros en diferentes carpetas)
Para Dante Amor:
Estimado Dante, ayuda nesecito un macro para copiar unas celdas, a otro libro (PERO QUE NO ESTEN EN LA MISMA CARPETA), y que las celdas que quiero copiar, se copien a celdas definidas.
Libro origen (libro activo)
Libro destino ("respaldos")
Copiar celdas de:
a3 a e22 de a5 a l22 de a4 a m22 y a1 a n22
Y que vaya aumentando filas cada ves que ejecute el macro
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro actualizada
Sub CopiarCeldas()
'Por.Dante Amor
cs1 = Array("A3", "A5", "A4", "A1") 'celdas origen
cs2 = Array("E", "L", "M", "N") 'columnas destino
lib = "respaldos.xlsx" 'libro destino
hoja = "Hoja1" 'hoja destino
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set l1 = ThisWorkbook
Set h1 = l1.ActiveSheet
ruta = "C:\trabajo\"
If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
If Dir(ruta & lib) = "" Then
MsgBox "Libro destino no existe", vbCritical, "ERROR"
Exit Sub
End If
'
If h1.Range(cs1(0)) = "" Then
MsgBox "Está vacía la celda : " & cs1(0), vbCritical, "ERROR"
Exit Sub
End If
'
Set l2 = Workbooks.Open(ruta & lib)
Set h2 = l2.Sheets(hoja)
u = h2.Range(cs2(0) & h2.Rows.Count).End(xlUp).Row + 1
If u < 22 Then u = 22
For c = LBound(cs1) To UBound(cs2)
h2.Cells(u, cs2(c)) = h1.Range(cs1(c))
Next
l2.Close True
MsgBox "Celdas copiadas", vbInformation, "COPIAR"
End Sub':) ':)
Estimado Dante... me sale un error.
Gracias Dante ....
¿Qué mensaje de error te dice?
