Aumentar un MsgBox en código de busqueda

[renato13]

Buenas tardes amigos de "AyudaExcel" me podrian ayudar introduciendo un código para que aparezca un MsgBox que diga "No se encontro el dato" a no haber el dato en un código de busqueda que tengo no se donde colocarlo e probado unas opciones pero no mismo ya se que para ustedes será algo fácil pero para los que estamos iniciando se nos hace un poco dificil.

Gracias por su ayuda amigos y una buena tarde

Adjunto el código que tengo de busqueda en el cual quiero insertar el MsgBox

Private Sub Buscar_Click()

If cboLote.ListIndex > -1 Then

   Lote = cboLote

   Set celda = Base_Datos.Columns("A").Find(What:=Lote, LookAt:=xlWhole)

   If Not celda Is Nothing Then

 

      txtFecha = Base_Datos.Range("B" & celda.Row)

      cboProducto = Base_Datos.Range("C" & celda.Row)

      BorrarCuerpo

      x = celda.Row

      Do Until Not CStr(Base_Datos.Range("A" & x)) = Lote

         For y = 1 To 13

            If UCase(Controls("CheckBox" & y).Caption) = UCase(Base_Datos.Range("H" & x)) Then

               Controls("CheckBox" & y) = True

               Controls("txtDatoa" & y) = Base_Datos.Range("E" & x)

               Controls("combobox" & y) = Base_Datos.Range("F" & x)

               Controls("cboDatoa" & y) = Base_Datos.Range("G" & x)

               Controls("TextBox" & y) = Base_Datos.Range("H" & x)

               Controls("TextBox" & y) = Base_Datos.Range("I" & x)

               Controls("TextBox" & y + 14) = x

               Controls("TextBox" & y + 14).BackColor = Base_Datos.Range("J" & x).Interior.Color

            End If

         Next

         x = x + 1

      Loop

   End If

End If

 

End Sub

[gux70]

Hola así a primera vista yo te diría que lo coloques tras el End if del IF   'If Not celda Is Nothing Then' que es donde buscas el lote si sales de ese if es porque no has econtrado el lote en la columna "A".

 

[Antoni]

En la línea de gux70, sustituye  If Not celda Is Nothing por

If celda Is Nothing Then
   Msgbox "No existe el dato"
Else