Add msgbox if value not found

[srkmfc]

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

 

[nemmi69]

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
msgbox "Entry '" & Sheets("data2").Cells(fila, 1) & "' not found.",vbinformation
End If
Wend
End Sub

 

[srkmfc]

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
msgbox "Entry '" & Sheets("data2").Cells(fila, 1) & "' not found.",vbinformation
End If
Wend
End Sub

Thanks for your message, but it keeps telling me that the text I submit is not found even if it's in the data2.

I need a code that pop-ups the msgbox whenever a value is not found in data2.

 

[nemmi69]

Private Sub CommandButton1_Click()
Dim fila, contador As Integer
Dim TxtFnd as Boolean

fila = 2
contador = 0
TxtFnd = False

While Sheets("data2").Cells(fila, 1) <> Empty And contador = 0

If Sheets("data2").Cells(fila, 1) = TextBox2 Then
TxtFnd = True
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

If TxtFnd = False then
msgbox "No Entry found.",vbinformation
End If
End Sub

 

[srkmfc]

Private Sub CommandButton1_Click()
Dim fila, contador As Integer
Dim TxtFnd as Boolean

fila = 2
contador = 0
TxtFnd = False

While Sheets("data2").Cells(fila, 1) <> Empty And contador = 0

If Sheets("data2").Cells(fila, 1) = TextBox2 Then
TxtFnd = True
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

If TxtFnd = False then
msgbox "No Entry found.",vbinformation
End If
End Sub

Now it works, thank you so much!!!

 

[nemmi69]

your welcome