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.

1 respuesta

Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas