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
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