Jump to content
Daygo

No muestra datos de hoja en Combobox

Recommended Posts

Buenas tardes amigos,

Tengo una consulta, desde mi formulario, estoy haciendo un combobox con datos que jala de una hoja dentro de mi libro llamada "BD_Clientes)
Jala los datos de la columna B del libro, dado que en la A están los números de serie (estos datos de abajo están colocados en un modulo) también tengo la llamada "Dim ComboBox1 As String" para solo usar el "combobox1" 
Código dentro del modulo

    Dim cant_lineas As String
    Dim arch As String
    Dim hoja As String
    Dim valor As String
    
    arch = "Experiencias.xlsx"
    hoja = "BD_Clientes"
    
    cant_lineas = Calcula_Lineas(hoja, "A", "2", arch)
    
    Worksheets(hoja).Select
    Dim i As Integer
    For i = 2 To cant_lineas + 1
        valor = Range("B" & i).Value
        ComboBox1.AddItem valor
    Next i

y Dentro del combobox tengo el siguiente código:
 

    Dim celda As Range
      
    With Worksheets("BD_Clientes")
        Set celda = .Range("B:B").Find(ComboBox1)
        If celda Is Nothing Then
            Label_Cliente.Caption = "CLIENTE NO ENCONTRADO"
        Else
            Label_Cliente.Caption = celda.Offset(, -1)
        End If

      End With

 

Share this post


Link to post
Share on other sites
En 30/5/2018 at 12:27 , Daygo dijo:

Jala los datos de la columna B del libro, dado que en la A están los números de serie

Con esta linea llenas de golpe el combobox

Me.ComboBox1.List = Worksheets(hoja).Range("B:B").SpecialCells(2).Value

Elimina esto: Dim ComboBox1 As String

 

Saludos 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png