Error al ingresar dato Userform no válido en BD
Para Dante Amor.
Gracias. Estoy usando este formulario con este código pero al digitar un numero que no contiene ningún dato de búsqueda me da el error y no se como corregirlo, los valores que tengo están del "1 al 42" si dígito 43 me da el problema. (Diré)
Private Sub ComboBox1_Change()
busco = ComboBox1
Set codigo = Sheets("Resumen").Range("datos").Find(busco, LookIn:=xlValues, lookat:=xlWhole)
dire = codigo.Address(False, False)
Label2 = Sheets("Resumen").Range(dire).Offset(0, 1)
Label3 = Sheets("Resumen").Range(dire).Offset(0, 5)
Label5 = Sheets("Resumen").Range(dire).Offset(0, 3)
Label5 = Format(Label5, "¢ ##,##0.00")
End Sub
1 Respuesta
Respuesta de Dante Amor
3
Te anexo la macro actualizada
Private Sub ComboBox1_Change()
'Act.Por.Dante Amor
If ComboBox1.Value = "" Then Exit Sub
Set b = Sheets("Resumen").Range("datos").Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not b Is Nothing Then
dire = b.Address(False, False)
Label2 = Sheets("Resumen").Range(dire).Offset(0, 1)
Label3 = Sheets("Resumen").Range(dire).Offset(0, 5)
Label5 = Sheets("Resumen").Range(dire).Offset(0, 3)
Label5 = Format(Label5, "¢ ##,##0.00")
Else
MsgBox "Código no existe"
End If
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
