Buscar datos en hoja desde combobox
Tengo un formulario desde el cual necesito buscar los registros de la hoja.
Necesito que cuando seleccione el nombre y el día desde los combos, me busque ese dato en la hoja y me llene los demás campos con los dato que corresponden.
Tengo este código pero no me funciona.
Private Sub Btnbuscar_Click()
Dim h, i
Set h = Sheets("Programación")
'ActiveSheet.Unprotect ("80178848")
With CmbxBnombre
For i = 1 To h.Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "C") = CmbxBnombre.Text And Cells(i, "A") = Cmbxbdia.Text Then
Cmbxciudad = Cells(i, "E")
Cmbxcargo = Cells(i, "F")
Cmbxnombre = Cells(i, "C")
Cmbxobra = Cells(i, "G")
Cmbxubic = Cells(i, "H")
End If
Next
End With
End Sub
1 Respuesta
Respuesta de Dante Amor
2
Debes revisar que los nombres del combo CmbxBnombre sean los mismos del combo Cmbxnombre y también los mismos de la hoja BD.
Prueba con lo siguiente:
Private Sub Btnbuscar_Click()
'Act.Por.Dante Amor
Set h = Sheets("Programación")
For i = 1 To h.Range("A" & Rows.Count).End(xlUp).Row
If h.Cells(i, "C") = CmbxBnombre.Text And h.Cells(i, "A") = Cmbxbdia.Text Then
cmbxciudad = Cells(i, "E")
cmbxcargo = Cells(i, "F")
cmbxnombre = Cells(i, "C")
cmbxobra = Cells(i, "G")
cmbxubic = Cells(i, "H")
End If
Next
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Gracias :), fue exactamente lo que hice... ahora lo que necesito es ingresar esos datos actualizados sobre ese registro que busqué.
Tienes que hacer lo mismo en el botón ingresar:
Private Sub Btnbuscar_Click()
'Act.Por.Dante Amor
Set h = Sheets("Programación")
existe = false
For i = 1 To h.Range("A" & Rows.Count).End(xlUp).Row
If h.Cells(i, "C") = CmbxBnombre.Text And h.Cells(i, "A") = Cmbxbdia.Text Then
existe = true
exit for
End If
Next
if existe = false then
msgbox "Nombre y día no existen"
else
h.cells(i, "I") = textbox1 'Fecha inicio
h.cells(i, "J") = textbox2 'Fecha fin
'continuar con los demás campos
end if
End Sub
