Hello,
Could you please help to add a msgbox if value entered in a text box is not found?
Thanks in advance.
Private Sub CommandButton1_Click()
Dim fila, contador As Integer
fila = 2
contador = 0
While Sheets("data2").Cells(fila, 1) <> Empty And contador = 0
If Sheets("data2").Cells(fila, 1) = TextBox2 Then
Label25 = Cells(fila, 3)
Label26 = Cells(fila, 5)
Label27 = Cells(fila, 6)
Label28 = Cells(fila, 8)
Label29 = Cells(fila, 10)
Label30 = Cells(fila, 11)
Label31 = Cells(fila, 13)
Label46 = Cells(fila, 15)
Label47 = Cells(fila, 16)
Label34 = Cells(fila, 18)
Label35 = Cells(fila, 20)
Label36 = Cells(fila, 21)
Label37 = Cells(fila, 23)
Label38 = Cells(fila, 25)
Label39 = Cells(fila, 26)
Label40 = Cells(fila, 28)
Label41 = Cells(fila, 30)
Label42 = Cells(fila, 31)
Label43 = Cells(fila, 33)
Label44 = Cells(fila, 35)
Label45 = Cells(fila, 36)
contador = 1
Else
fila = fila + 1
contador = 0
End If
Wend
End Sub
Could you please help to add a msgbox if value entered in a text box is not found?
Thanks in advance.
Private Sub CommandButton1_Click()
Dim fila, contador As Integer
fila = 2
contador = 0
While Sheets("data2").Cells(fila, 1) <> Empty And contador = 0
If Sheets("data2").Cells(fila, 1) = TextBox2 Then
Label25 = Cells(fila, 3)
Label26 = Cells(fila, 5)
Label27 = Cells(fila, 6)
Label28 = Cells(fila, 8)
Label29 = Cells(fila, 10)
Label30 = Cells(fila, 11)
Label31 = Cells(fila, 13)
Label46 = Cells(fila, 15)
Label47 = Cells(fila, 16)
Label34 = Cells(fila, 18)
Label35 = Cells(fila, 20)
Label36 = Cells(fila, 21)
Label37 = Cells(fila, 23)
Label38 = Cells(fila, 25)
Label39 = Cells(fila, 26)
Label40 = Cells(fila, 28)
Label41 = Cells(fila, 30)
Label42 = Cells(fila, 31)
Label43 = Cells(fila, 33)
Label44 = Cells(fila, 35)
Label45 = Cells(fila, 36)
contador = 1
Else
fila = fila + 1
contador = 0
End If
Wend
End Sub