Hacer que combobox cargue hoja en documento
Tengo dos combobox. El primero selecciona las carpetas y el segundo lista los documentos dentro del mismo.
Quisiera que la eleccion del archivo se cargue en la hoja2 del documento pues lo que hace de momento es copiar el nombre del documento en la hoja1
La macro es la siguiente.
Private Sub CommandButton1_Click()
On Error Resume Next
Dim uf As Integer
If ComboBox1 = Empty Then
MsgBox ("Debe seleccionar archivo"), vbCritical, "AVISO"
ComboBox1.SetFocus
Exit Sub
End If
uf = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row
Cells(uf + 1, 1) = ComboBox1
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
On Error Resume Next
DisplayAlerts = True
Application.ScreenUpdating = True
Dim Path As String
Dim fila As Integer
fila = 2
'Se crea FileSystemObject que da acceso al sistema de archivos del sistema
Set fso = CreateObject("Scripting.FileSystemObject")
'Indicamos la ruta de donde vamos a obtener
Path = CreateObject("shell.application").browseforfolder(0, "Seleccione Carpeta", 0).Items.Item.Path
If Path = "" Then
MsgBox "No has seleccionado ningún directorio, selecciona un directorio .", , "AVISO"
Exit Sub
End If
'Definimos variables para determinar nombre de archivos y subcarpetas
Set carpeta = fso.getfolder(Path)
Set ficheros = carpeta.Files
'Archivos
For Each ficheros In ficheros
b = ficheros.Name
ComboBox1.AddItem b
Next ficheros
DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Hola. Lo que quiero es que el documento se copie en la hoja 2.
Saludos.
Ok a ver si entendí
Quiere que abra un documento copie de ese documento toda las información y la pegue en la hoja2
¿Del libro que tiene activo?
Si, quiero que pegue la información en la hoja 2 del libro activo. De ser posible que no abra el documento donde se encuentra la información.
Gracias.
Disculpa la tardanza
Estuve tenienado problemas para conseguir abrir el libro
¿La información es de toda la hoja o de una hoja en especifico?
