Macro Buscar desde TextBox y resultado colocarlo en otro TextBox

Ingreso el N° de pedido en el TextBox1. Necesito que ese número de pedido lo busque en la columna "A" de la hoja "Report" desde A2:BB3000 y devuelva el dato de la columna "T" en el TextBox5.

Agradezco de antemano por la enseñanza.

2 Respuestas

Respuesta
1

Te anexo el código

Private Sub CommandButton1_Click()
    pedido = TextBox1.Value
    If pedido = "" Then
        MsgBox "Captura un pedido"
        TextBox1.SetFocus
        Exit Sub
    End If
    Set h = Sheets("Report")
    Set b = h.Columns("A").Find(pedido, lookat:=xlWhole, LookIn:=xlValues)
    If Not b Is Nothing Then
        TextBox5.Value = h.Cells(b.Row, "T")
    Else
        MsgBox "El pedido no existe"
    End If
End Sub

sal u dos

Respuesta
1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas