Anónimo
Generar un resumen a partir de otros archivos
Que tal experto!
Tengo 4 archivos de excel y cada archivo representa un material de suelo que se encontró en una longitud X. Y cada archivo puede tener hasta 20 hojas, cada hoja representa un sondeo.
Resulta que a partir de estos archivos tengo que generar un nuevo libro o archivo con el resumen de cada sondeo.
¿Podrías ayudarme con algún ejemplo de una macro que copie la información de un libro de celdas especificas de cada hoja y las pegue en un nuevo libro también en celdas específicas (es decir donde yo lo necesite)?
Lo que quiero es que la información no se capture dos veces, sino que se genere el resumen a partir de lo capturado.
Gracias!
Tengo 4 archivos de excel y cada archivo representa un material de suelo que se encontró en una longitud X. Y cada archivo puede tener hasta 20 hojas, cada hoja representa un sondeo.
Resulta que a partir de estos archivos tengo que generar un nuevo libro o archivo con el resumen de cada sondeo.
¿Podrías ayudarme con algún ejemplo de una macro que copie la información de un libro de celdas especificas de cada hoja y las pegue en un nuevo libro también en celdas específicas (es decir donde yo lo necesite)?
Lo que quiero es que la información no se capture dos veces, sino que se genere el resumen a partir de lo capturado.
Gracias!
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
Utiliza este código que me encontré:
Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
MultiSelect:=True, Title:="Files to Merge")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No Files were selected"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open FileName:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
Puedes seleccionar varios archivos dejando presionada la tecla Ctrol y seleccionando los archivos.
Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
MultiSelect:=True, Title:="Files to Merge")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No Files were selected"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open FileName:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
Puedes seleccionar varios archivos dejando presionada la tecla Ctrol y seleccionando los archivos.