Ayuda con Cells.Find ymensaje de "No se Encuentra"

Hola, soy nuevo en esto de las macros y estoy tratando de hacer un proceso de búsqueda con cells.find empleando un cmdbuttom en un formulario, hasta allí todo bien. El problema es cuando no encuentra el registro en la planilla y la macro arroja error provocando que la macro se caiga. La idea es que me de un mensaje con la posibilidad de continuar realizando la búsqueda o no, he tratado pero no se como podría ser esto. Desde ya agradezco la ayuda proporcionada.
Saludos

1 Respuesta

Respuesta
1
¿Puedes colocar el código que estas usando? O quizá subir el archivo para ver el ejemplo.
Gracias por responder y disculpas por tardar un poco en reenviarte el código, pero aquí va:
Para buscar uso lo siguiente
Private Sub Commandbutton2_click()
sheets("proveedores").Activate
Range("a5").Select
Cells.find(What:=TextBox1, After:=Activecell, LookIn:=xlFormula, LookAt:=xlWhole, SerchOrder:=xlbyRows, SearchDirection:=xlNext, MatchCase:=False).Activate
' aqui se va ubicando en las columnas de la planilla a partir de A5 y muestra el contenido de la celda activa en el textbox
Activecell.Offset(0,1).Select
TexBox2=Activecell
Activecell.Offset(0,1).Select
TextBox3=Activecell
Activecell.Offset(0,1).Select
TextBox4=Activecell
Activecell.Offset(0,1).Select
Agradezco desde ya tu ayuda
Saludos
Acá te envía un mensaje que cuando la búsqueda es vacía te de un mensaje. No veo necesario que te aparezca si deseas buscar nuevamente porque el registro no esta. A menos que sea con otro valor. En este caso este código esta ajustado para esta ultima consideración.
Private Sub Commandbutton2_click()
sheets("proveedores").Activate
Range("a5").Select
resp=Cells.find(What:=TextBox1, After:=Activecell, LookIn:=xlFormula, LookAt:=xlWhole, SerchOrder:=xlbyRows, SearchDirection:=xlNext, MatchCase:=False).Activate
If resp Is Nothing Then
MsgBox ("No se encontro registro " & TextBox1.Value)
userform1.show
else
resp.activate
Activecell.Offset(0,1).Select
TexBox2=Activecell
Activecell.Offset(0,1).Select
TextBox3=Activecell
Activecell.Offset(0,1).Select
TextBox4=Activecell
Activecell.Offset(0,1).Select
End If
End Sub
Si necesitas algo más o tienes algún duda no vaciles en consultar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cruce de base de datos

¿Me gustaría saber donde puedo encontrar buena información sobre el cruce de bases de datos en Excel?, ¿Si usted puede proporcionarme esta información seria mucho mejor? Por favor que la información sea lo más entendible posible.
2 respuestas

Cruzar datos

Antes que nada, quiero agradecerte la atención a mi pregunta anterior, tu respuesta resolvió ampliamente mis dudas, sobre convertir números a palabras. En esta ocasión quiero preguntarte en como cruzar datos en Excel, bueno realmente quiero hacer el...
2 respuestas

Alguien conoce una matriz en excel o access

Que me ayude a llevar las cobranzas de meensualidades de un colegio
3 respuestas

¿Apertura automática de un archivo Excel con el programador de Windows?

A tod@s! Quiero abrir un libro excel desde el programador a una hora. Al abrirlo quiero que me escriba en la hoja "Inicio" en la celda "L1" la palabra "PATATA". Que tipo de archivo debo crear (Bloc de notas) y tipo de código de codificación (ANSI,...
2 respuestas

Modificar Macros por agregar columnas

Nos hicieron falta 3 columnas... En este nuevo archivo: 1.- Agregue la Columna B y C, que una vez ingresado el dato en la G, deben de ser bloqueadas. 2.- Agregue la columna QUE, que tiene una fórmula, que debe de irse actualizando conforme se van...
2 respuestas

Macro en Excel para que me abra el cuadro "Guardar Como" pudiendo elegir destino y nombre

Necesito una macro para que al ejecutarla me abra el diálogo o como se llame "Guardar Como", que me deje elegir el nombre, que me deje elegir la ubicación y que por default lo guarde con extensión xlsm. ¿Será posible?
2 respuestas

Como incrustar imagen en celda Excel con datos de Access 2013

Quisiera saber si es posible exportar datos de Access a Excel e incrustar automáticamente la imagen a la que hace referencia una url dentro de la tabla de Access. Tengo una tabla que contiene la dirección de una imagen dentro de carpetas de mi pc, y...
1 respuesta

Contar celdas que contengan ciertos caracteres

Espero puedan ayudarme, tengo un listado horizontal de 9 celdas, en las cuales contienen 6 tipos de identificación. A,C,D,1,2 y V Al final de esas columnas, necesito contar por ejemplo solo las A, C y 1. Ya lo intente, pero no puedo lograrlo, ¿Me...
1 respuesta

¿Extraer los caracteres que hay dentro del segundo paréntesis de un String? En Excel VBA

A tod@s! Tengo una arrray, y en una de las columnas tengo datos, como estos: y necesito encontrar estos caracteres... Ojo que puede haber más de dos "( )" en un String y siempre seria el ultimo "()" comenzando por el ultimo carácter del String. Os...
2 respuestas

¿Cómo convertir valores de una celda en sucesivas filas?

Habitualmente trabajo con Access, pero desde una oficina me han pasado un archivo de Excel donde en cada fila de una hoja se indican en la primera columna el número de caja y en la celda siguiente (segunda columna) todos los números de expediente que...
1 respuesta