Cargar desde otro libro excel datos en una base
Para Dante Amor
¿Muchas gracias por tu ayuda y ahora como puedo realizar lo siguiente en la base de datos?
La zona debe cargarse de un libro excel adjunto
La región debe cargarse dependiendo de la zona que se seleccione.
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para cargar la zona
Public h1, h2
'
Private Sub UserForm_Activate()
'Por.Dante Amor
Set l1 = ThisWorkbook
Set h1 = l1.Sheets(1)
abierto = False
archivo = "excel adjunto.xlsx"
ruta = l1.Path & "\"
For Each libro In Workbooks
If libro.Name = archivo Then
abierto = True
Exit For
End If
Next
If abierto Then
Set l2 = Workbooks(archivo)
Else
If Dir(ruta & archivo) <> "" Then
Set l2 = Workbooks.Open(ruta & archivo)
Else
MsgBox "No está abierto el archivo y tampoco se puede abrir"
Exit Sub
End If
End If
Set h2 = l2.Sheets(1)
'
'Carga combo zona
For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem h2.Cells(i, "A")
Next
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
