Al cargar mis datos con un botón Buscar mi combobox dependiente ya no funciona en su totalidad.

Tengo un botón BUSCAR que me llena los datos de mi formulario, los 3 primeros datos van en textbox y los otros 3 en combobox dependientes. Me llena bien los datos pero cuando quiero modificar los datos de los combobox no me trae del combobox3…
Solo cuando hago llenar los datos con el botón BUSCAR y quiero modificar dichos datos lo que no me trae el tercer combobox, sin buscar ningún dato funciona todo bien, como puedo hacer para que me funcione mi combobox dependiente en su totalidad aun cargando los datos con el botón BUSCAR..?

Este seria mi código de BUSCAR
Private Sub BUSCAR_Click()
Application.ScreenUpdating = False
Sheets("hoja1").Select
If TextBox1 = "" Then
MsgBox "Coloca algún dato para buscar", vbOKOnly + vbInformation, "AVISO"
TextBox1.SetFocus
Exit Sub
End If
Set rango = Range("A:A").Find(What:=TextBox1, _
LookAt:=xlWhole, LookIn:=xlValues)
If rango Is Nothing Then
MsgBox "El dato no fue encontrado", vbOKOnly + vbInformation, "AVISO"
TextBox1 = "": TextBox1.SetFocus
Exit Sub
Else
TextBox2 = Range("B" & rango.Row)
TextBox3 = Range("C" & rango.Row)
ComboBox1 = Range("D" & rango.Row)
ComboBox2 = Range("E" & rango.Row)
ComboBox3 = Range("F" & rango.Row)
End If
End Sub

y este el código del combobox dependientes
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
ComboBox2.Clear
Column = ComboBox1.ListIndex + 1
On Error Resume Next
With Hoja2
ComboBox2.List = .Range(.Cells(2, Column), .Cells(2, Column).End(xlDown)).Value
End With
On Error GoTo 0
End Sub


Private Sub ComboBox2_Change()
Application.ScreenUpdating = False
ComboBox3.Clear
valor = ComboBox2.Value
Set busca = ActiveSheet.Range("A5:D5").Find(valor, LookIn:=xlValues, LookAt:=xlWhole)
If Not busca Is Nothing Then
busca.Select
ActiveCell.Offset(1, 0).Select
Do While ActiveCell.Value <> ""
ComboBox3.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
End If
End Sub

1 respuesta

Respuesta
1

Puedes enviarme un archivo con ejemplos y con la macro para hacer pruebas.
Mi correo [email protected]

Ya te envíe el archivo en tu correo...desde ya gracias

Saludos

Ya te envié el archivo corregido a tu correo.

En la macro están comentadas las líneas que agregué, sólo faltaban unos detalles.

Saludos. Dam

Si es lo que necesitas.

Muchísimas Gracias era justo lo que necesitaba, Gracias... :)

Agrego el código

Dim rango As Range
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
ComboBox2.Clear
Column = ComboBox1.ListIndex + 1
On Error Resume Next
With Hoja2
    ComboBox2.List = .Range(.Cells(2, Column), .Cells(2, Column).End(xlDown)).Value
End With
On Error GoTo 0
End Sub
Private Sub ComboBox2_Change()
Application.ScreenUpdating = False
ComboBox3.Clear
valor = ComboBox2.Value
Hoja2.Select 'línea agregada
Set busca = ActiveSheet.Range("A5:D5").Find(valor, LookIn:=xlValues, LookAt:=xlWhole)
If Not busca Is Nothing Then
busca.Select
ActiveCell.Offset(1, 0).Select
Do While ActiveCell.Value <> ""
ComboBox3.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
End If
Hoja1.Select 'línea agregada
End Sub
Private Sub BUSCAR_Click()
Application.ScreenUpdating = False
Sheets("hoja1").Select
If TextBox1 = "" Then
MsgBox "Coloca algun dato para buscar", vbOKOnly + vbInformation, "AVISO"
TextBox1.SetFocus
Exit Sub
End If
Set rango = Range("A:A").Find(What:=TextBox1, _
LookAt:=xlWhole, LookIn:=xlValues)
If rango Is Nothing Then
MsgBox "El dato no fue encontrado", vbOKOnly + vbInformation, "AVISO"
TextBox1 = "": TextBox1.SetFocus
Exit Sub
Else
TextBox2 = Range("B" & rango.Row)
TextBox3 = Range("C" & rango.Row)
ComboBox1 = Range("D" & rango.Row)
ComboBox2 = Range("E" & rango.Row)
ComboBox3 = Range("F" & rango.Row)
End If
End Sub
Private Sub ACTUALIZAR_Click()
Sheets("hoja1").Select
Dim ctr As Control
If rango Is Nothing Then
MsgBox "Aun no buscas ningun dato", vbOKOnly + vbInformation, "AVISO"
TextBox1.SetFocus
Exit Sub
End If
If TextBox2 = "" Or TextBox3 = "" Then
MsgBox "No dejes ningun campo en blanco", vbOKOnly + vbInformation, "AVISO"
Exit Sub
End If
Range("A" & rango.Row) = TextBox1
Range("B" & rango.Row) = TextBox2
Range("C" & rango.Row) = TextBox3
Range("D" & rango.Row) = ComboBox1
Range("E" & rango.Row) = ComboBox2
Range("F" & rango.Row) = ComboBox3
For Each ctr In Me.Controls
If TypeOf ctr Is MSForms.TextBox Then
ctr = ""
End If
If TypeOf ctr Is MSForms.ComboBox Then
ctr = ""
End If
Next ctr
TextBox1.SetFocus
Set ctr = Nothing
Set rango = Nothing
End Sub
Private Sub UserForm_Activate()
Application.ScreenUpdating = False
Hoja2.Select
Range("a1").Select
Do While ActiveCell <> Empty
ComboBox1.AddItem ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Loop
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Corregir macro para que pegue los datos modificados en base de datos.

He tratado de buscarle el simple error a esta macro pero solo con el apoyo de expertos lograré la solución. Es una agenda de nombres y datos generales por municipio; uno en cada hoja. Con el CmdBtn1, ingresa perfectamente los datos y ordena por...
1 respuesta

Formato condicional actualizable.-

Tengo una formulario al cual me extrae de una base de datos, fechas de vencimiento al cual he logrado que en el textbox que las trae me refleje el color rojo con el cual esta en la base de datos, la base de datos esta con un formato condicional el...
1 respuesta

Apoyo para una macro que debe retornar el contenido de sus celdas en TxBx…

Dante … Que ya es de las últimas, se trata de un control de pagos; estando en la Hoja1 en blanco, se llama al USERFORM1. 1°. Se selecciona la obra en un CbBx; 2°; en otro CbBx, el concepto de gasto. Con el botón “buscar” debe encontrar el concepto...
1 respuesta

Seleccionar opciones en CmbBx de un formulario y validar información para seguir el proceso

Felicitaciones a todos en todos estos días… me planteo terminar este trabajo y solicito su valioso apoyo. He probado varios códigos y no he logrado solución. La macro funciona correctamente, solo necesita adaptación. Este USERFORM1 lo llamo a través...
1 respuesta

Buscar hoja señalada en CmBx1 y atraer en los TxBx contenidos de las celdas especificas

Tengo esta macro que anexo y su función es: al seleccionar la obra en el cmbx1 y clickear “buscar”, debe buscar la hoja respectiva en el libro y visualizar en los textbox el contenido que encuentre en las celdas específicas. Si se desea modificar un...
1 respuesta

Pegar del UserForm dos veces un número en la misma hoja seleccionada... Para Dante Amor

Me proporcionaste una macro tal como te la pedí, quedó perfecta, pero también te comenté que yo quería hacer la siguiente parte sobre esta misma, pero me falló, ahora apelo a tu buena voluntad de apoyarme con esta partecita… Una vez hecha la...
1 respuesta

Copiar datos a hojas desde formulario con 2 paginas

Tengo un UserForm que quiero utilizar como formulario, para introducir datos a dos hojas distintas (Hoja1 y Hoja2); de tal manera que los datos que introduzca en los distintos TextBox y ComboBox, de la "Page1" del UserForm se copien en la Hoja1; y...
1 respuesta

No recarga el formulario las cantidades con división de miles y decimales (centavos)

Por tu valioso apoyo, tengo esta macro que no me carga al formulario las cantidades con la coma de miles y decimales, El ejemplo es: seleccionar Obra4, y una de los conceptos del 1111 a 1116, clic en “Buscar”. Aquí por no tener centavos la recarga de...
1 respuesta

¿Cómo llenar un listbox con columnas discontinuas?

He terminado de diseñar un UF el cual contiene varios textbox, un listbox y un botón de búsqueda. Lo primero que hago es agregar una clave de cliente en el textbox1 y al presionar el botón, la macro hace la búsqueda, si lo encuentra, llena el resto...
2 respuestas

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta