Hola tengo un código q busca un valor en una base de datos lo que quiero es que cuando no encuentre el valor me de un MsgBox que diga "Código no encontrado" se que ya hay preguntas similares pero no he podido adaptarlo a mi código, por cierto ya tiene un MsgBox que avisa cuando se a dejado el campo en blanco
Gracias al que quiera ayudarme yo apenas estoy empezando con esto de las macros
Private Sub CommandButton1_Click() If TextBox1 = Empty Then MsgBox "No ha escrito nada en el campo CODIGO" Else Cells.Find(What:=Val(TextBox1), After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate ActiveCell.Offset(0, 1).Select ComboBox4 = ActiveCell ActiveCell.Offset(0, 1).Select ComboBox1 = ActiveCell ActiveCell.Offset(0, 1).Select ComboBox2 = ActiveCell ActiveCell.Offset(0, 1).Select ComboBox3 = ActiveCell ActiveCell.Offset(0, 1).Select Calendar1 = ActiveCell ActiveCell.Offset(0, 1).Select TextBox3 = ActiveCell Label7 = ActiveCell.Row CommandButton3.SetFocus End If End Sub[/PHP]
Hola tengo un código q busca un valor en una base de datos lo que quiero es que cuando no encuentre el valor me de un MsgBox que diga "Código no encontrado" se que ya hay preguntas similares pero no he podido adaptarlo a mi código, por cierto ya tiene un MsgBox que avisa cuando se a dejado el campo en blanco
Gracias al que quiera ayudarme yo apenas estoy empezando con esto de las macros
Ejemplo.zip