Buen día a todos
Alguien me podría ayudar con esta macro, lo único que quiero es agregarle un mensaje, que cuando busca y no encuentra ningún registro; me diga que no lo encontró
Deje la macro.. desde ya muchas gracias

Private Sub CommandButton1_Click()
ListBox1.Clear
If IsDate(TextBox1) Then
buscar = CDate(TextBox1)
Else
buscar = TextBox1
End If
If buscar = "" Then Exit Sub
With Worksheets("RUCs empresas").Range("D:D")
Set esta = .Find(buscar, LookIn:=xlValues)
If Not esta Is Nothing Then
primeracelda = esta.Address
Do
ListBox1.ColumnCount = 3
ListBox1.AddItem ""
ListBox1.List(ListBox1.ListCount - 1, 0) = esta.Address
ListBox1.List(ListBox1.ListCount - 1, 1) = esta
ListBox1.List(ListBox1.ListCount - 1, 2) = esta.Offset(, 1)
ListBox1.ColumnWidths = "40;50;100"
Set esta = .FindNext(esta)
Loop While Not esta Is Nothing And esta.Address <> primeracelda
End If
End With
End Sub
Private Sub CommandButton4_Click()
Unload Me
End Sub

Sub blanquea()
Dim i As Byte
For i = 1 To 21
Controls("TextBox" & i).Value = ""
Next
End Sub

'Para limpiar el BUSCADOR
Private Sub CommandButton5_Click()

Dim Ctrl As Control

For Each Ctrl In BUSCADOR.Controls

If TypeOf Ctrl Is MSForms.TextBox Then

Ctrl = Empty

End If

Next Ctrl

End Sub
'Para limpiar la Lista
Private Sub CommandButton6_Click()
ListBox1.Clear
End Sub
Private Sub ListBox1_Click()
Range(ListBox1.Column(0)).Select
End Sub

Llevas casi 200 post y parece que todavía no entiendes, que es obligatorio subir un archivo para poder probar las posibles soluciones. Sube el archivo o te quedas sin respuesta. ?

Editado el el 25 de febrero4 años por Antoni

Buen día Antoni

Con la disculpa del caso, solo que pensé que con alzar la macro era suficiente, ahora subo el archivo sin ningún problemas

Gracias y nuevamente pido las disculpas

 

RUCs PRUEBA1.xlsm

Estaba con bloqueo al acceso en las macros... perdón

Lo subo nuevamente

 

RUCs PRUEBA1.xlsm

Al final del procedimiento de búsqueda:

If ListBox1.ListCount = 0 Then MsgBox "El RUC no existe", vbInformation

 

Antoni

Lo puse entre todas estas Líneas, la que me enviaste, pero si existe igual me sale el mensaje, por que al poner Ej. 1026, que existe, me arroja el mensaje de que no existe, al poner Ej. 2024 que es uno que no existe en toda la base sale si el mensaje de forma correcta

No se donde estaría mi ERROR!!!

If buscar = "" Then Exit Sub
With Worksheets("RUCs empresas").Range("D:D")
Set esta = .Find(buscar, LookIn:=xlValues)
If Not esta Is Nothing Then
primeracelda = esta.Address

Desde ya gracias por tu paciencia

Debe ser la última línea del procedimiento CommandButton1_Click() inmediatamente antes de la sentencia End Sub

Antoni

Muchas gracias, por todo, paciencia y tiempo..

Damos por concluido este Tema