¿Duda macros copiar varios libros?
Dante me podrías apoyar para saber de tu macros que compartiste como pegar en valores los datos que extrae de los demás libros, ya que cuando copia y pega lo hace y me trae las fórmulas.
Sub libros2()
'Lee archivos del directorio y Copia la hoja 1
'Por.Dam
Application.ScreenUpdating = False
ruta = ThisWorkbook.Path
ChDir ruta
archi = Dir("*.xlsx*")
Set h1 = ThisWorkbook.Sheets("hoja1")
On Error Resume Next
Do While archi <> ""
If InStr(1, archi, "nuevo") = 0 Then
Workbooks.Open archi
If Err.Number = 0 Then
Sheets(1).Select
Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Copy _
h1.Range("A" & h1.Range("A1").Select.SpecialCells(xlLastCell).Row + 1)
Else
Err.Number = 0
End If
Application.DisplayAlerts = False
Workbooks(archi).Close
Application.DisplayAlerts = True
End If
archi = Dir()
Loop
End Sub
1 Respuesta
Respuesta de Dante Amor
1
Cambia esto:
Range(Range("A1"), ActiveCell. SpecialCells(xlLastCell)).Copy _
H1.Range("A" & h1. Range("A1").Select. SpecialCells(xlLastCell).Row + 1)Por esto:
Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Copy
u = h1.UsedRange.Rows(h1.UsedRange.Rows.Count).Row + 1
h1.Range("A" & u).pastespecial xlvalues'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
¡Gracias! Me fuincono perfecto, eres un crack :D
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta.
