Macro que buscar el valor de un textbox en un rango de filas y sobre la fila encontrada colocar información.
Tengo este tipo de userform, en el textbox sale un numero ejem. (5097), necesito que al dar sobre el botón de CONTINUAR, me busque el numero 5097 en mi pestaña y coloque mi selección de option button en una celda de la misma celda que el numero.
1 Respuesta
Te anexo el código para tu botón:
Private Sub CommandButton1_Click()
'Por.Dante Amor
If TextBox1 = "" Then
MsgBox "Debes llenar el número "
Exit Sub
End If
'
If OptionButton1 = False And OptionButton2 = False And OptionButton3 = False Then
MsgBox "Debes seleccionar una opción"
Exit Sub
End If
'
Set h = Sheets("Hoja4")
If IsNumeric(TextBox1.Value) Then valor = Val(TextBox1.Value) Else valor = TextBox1.Value
Set b = h.Columns("A").Find(valor, lookat:=xlWhole)
If Not b Is Nothing Then
If OptionButton1 Then
opcion = OptionButton1.Caption
ElseIf OptionButton2 Then
opcion = OptionButton2.Caption
ElseIf OptionButton3 Then
opcion = OptionButton3.Caption
End If
h.Cells(b.Row, "B") = opcion
Else
MsgBox "No existe el número : " & TextBox1.Value
End If
End SubRealiza los siguientes ajustes en la macro
"Hoja4" por el nombre de tu hoja donde quieres buscar y guardar la opción
"A" Por la columna donde se tiene que buscar el número
"B" Por la columna donde quieres poner la selección
TextBox1 por el nombre de tu textbox
.
Avísame cualquier duda.
.
Buena tarde, funciono de maravilla, muchísimas gracias.
Una pregunta más.
¿Cómo puedo modificar este mismo código, para que simplemente inserte el valor del option button en la ultima fila disponible?
Te anexo la macro actualizada
Private Sub CommandButton1_Click()
'Por.Dante Amor
If TextBox1 = "" Then
MsgBox "Debes llenar el número "
Exit Sub
End If
'
If OptionButton1 = False And OptionButton2 = False And OptionButton3 = False Then
MsgBox "Debes seleccionar una opción"
Exit Sub
End If
'
Set h = Sheets("Hoja4")
u = h.Range("B" & Rows.Count).End(xlUp).Row + 1
If IsNumeric(TextBox1.Value) Then valor = Val(TextBox1.Value) Else valor = TextBox1.Value
'Set b = h.Columns("A").Find(valor, lookat:=xlWhole)
'If Not b Is Nothing Then
If OptionButton1 Then
opcion = OptionButton1.Caption
ElseIf OptionButton2 Then
opcion = OptionButton2.Caption
ElseIf OptionButton3 Then
opcion = OptionButton3.Caption
End If
h.Cells(u, "B") = opcion
'Else
' MsgBox "No existe el número : " & TextBox1.Value
'End If
End Sub.
¡Gracias!
De verdad, me hiciste el día.
Ya ganare miaumento ja ja.
Mucho éxito!
