Cruzar 2 hojas excel con algo más
Buenas tardes, mire mi pregunta es que tengo 2 archivos excel con muchos datos, los cuales tienen un campo en común... Lo que necesito es cruzar estos 2 archivos y crear una tercera hoja con la fusión de ambas hojas según el campo en común.
Lo que pasa es que la primera contiene cierta información de un cliente y la segunda contiene otra información totalmente distinta de ese cliente... Por lo que tendría que unir ambas informaciones en una planilla para cada cliente.
Muchas gracias por su ayuda.
Lo que pasa es que la primera contiene cierta información de un cliente y la segunda contiene otra información totalmente distinta de ese cliente... Por lo que tendría que unir ambas informaciones en una planilla para cada cliente.
Muchas gracias por su ayuda.
Respuesta de Juan Carlos González Chavarría
1
Lo que se me ocurre es que uses esta macro.
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
Si no sabes de programación, eso sería un problema porque no te puedo enseñar.
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
Si no sabes de programación, eso sería un problema porque no te puedo enseñar.
Si, ¿algo me manejo en programación... donde debería incluir esa macro en excel?
Gracias!
Gracias!
En un módulo de VBA
