Macro buscar dentro de un rango

Hola Expertos:
Necesito me ayuden a mejorar una macro, les explico... Tengo un UserForm el cual me sirve para buscar un N° de factura asociada a un determinado Proveedor, por lo tanto tiene un ComboBox que contiene el listado de proveedores y también un TextBox donde ingreso el N° de factura a buscar. Cuando realizo la búsqueda y en mi base de datos exite tanto el proveedor como el n° de factura ingresado no hay problemas, hasta ahí todo bien, ahora si no encuentra al proveedor, simplemente me arroja error un un mensaje, hata ahí todo sigue bien, sin embargo si encuentra al proveedor pero no así el n° de factura ingresado no me arroja error con el mensaje y me lleva a la hoja donde se supone debiera mostrarme la información, pero obviamente la hoja esta en blanco porque no encontró nada...¿me explique?.. Bueno aquí les dejo la macro aver si me ayudan...
Sheets("BD OC Generadas").Visible = True
Sheets("BD OC Generadas").Select
On Error GoTo noencontro
Cells.Find(What:=ComboBox1, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=3, Criteria1:=ComboBox1
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate 'aquí es donde esta el error o donde no busca lo que necesito, yo en vez de cells. Find también probé con Range("Tabla2[[#All],[Factura Asociada]]").Find... Que es el rango donde debiera de buscar el n° de factura ingresado, pero tampoco me funsionó. '
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=6, Criteria1:=TextBox1
Range("A5").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("calculos").Visible = True
Sheets("calculos").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Quedo atenta a sus comentarios.. Gracias de antemano... Please URGENTE..
Atentamente, vania

1 Respuesta

Respuesta
1
Por lo que veo en la macro te muestra lo que tu le has pedido, en la linea
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=3, Criteria 1:=ComboBox1
le esta pidiendo en la macro que te muestre esa Tabla, después le pides que te busque el dato de la factura como criterio el valor del TextBox1....pero no indicas que debe de hacer si no lo encuentra.
Deberías de poner alguna condición que quieras y qué debe de hacer si no encuentra el número de factura, algo así
If TextBox1 Is Nothing Then
Msgbox("Factura no existente")
Sheets("BD OC Generadas").Select
End If
No te dá error por que no tiene la linea de codigo previa a la busqueda nueva
On error GoTo noencontro
Debes de poner la linea antes de cada búsqueda para que de dispare el error si no lo encuentra.
>Un saludo
>Julio
Ya lo probé y no resulta, insisto en que debe ser porque me busca el numero dentro de toda la hoja y lo más probable es que el n° exista dentro de la hoja.. no así dentro del rango que me interesa que busque., de todas formas yo tenia dentro de la macro el on error go to noencontro... aquí te doy la macro completa. A ver si me puedes ayudar..
Sheets("BD OC Generadas").Visible = True
Sheets("BD OC Generadas").Select
On Error GoTo noencontro
Cells.Find(What:=ComboBox1, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=3, Criteria1:=ComboBox1
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=6, Criteria1:=TextBox1
Range("A5").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("calculos").Visible = True
Sheets("calculos").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("BD OC Generadas").Select
Application.CutCopyMode = False
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=3
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=6
Range("A1").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("calculos").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("FAC_PROV").Visible = True
Sheets("FAC_PROV").Select
Range("A10").Select
Unload UserForm18
Application.ScreenUpdating = True
Exit Sub
noencontro:
Unload UserForm18
Sheets("BD OC Generadas").Select
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=3
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=6
Sheets("Inicio").Select
Sheets("calculos").Visible = False
Sheets("BD OC Generadas").Visible = False
MsgBox ("Factura Indicada del Proveedor no Existe")
Application.ScreenUpdating = True
End Sub
Hola, quiero dar las gracias por la preocupación, sin embargo ya encontré la soluión, aquí la dejo, seguro le servirá a alguien más.
Application.ScreenUpdating = False
Sheets("BD OC Generadas").Visible = True
Sheets("BD OC Generadas").Select
On Error GoTo noencontro
Cells.Find(What:=ComboBox1, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=3, Criteria1:=ComboBox1
[F1].Select
[F:F].Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate ' Aquí es donde encontré la solución, pues la búsqueda se realiza solamente dentro de un rango especifico.
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=6, Criteria1:=TextBox1
Range("A5").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("calculos").Visible = True
Sheets("calculos").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("BD OC Generadas").Select
Application.CutCopyMode = False
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=3
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=6
Range("A1").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("calculos").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("FAC_PROV").Visible = True
Sheets("FAC_PROV").Select
Range("A10").Select
Unload UserForm18
Application.ScreenUpdating = True
Exit Sub
noencontro:
Unload UserForm18
Sheets("BD OC Generadas").Select
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=3
ActiveSheet.ListObjects("Tabla2").Range.AutoFilter Field:=6
Sheets("Inicio").Select
Sheets("calculos").Visible = False
Sheets("BD OC Generadas").Visible = False
MsgBox ("Factura Indicada del Proveedor no Existe")
Application.ScreenUpdating = True
End Sub
De todas formas muchas gracias por el interés.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Reemplazar texto en Excel

Estoy intentando hacer una macro en Excel 2003 para que me busque un texto en un rango y cuando lo encuentre seleccione la celda y luego se mueva una celda abajo. Una vez posicionado allí tiene que sustituir una serie de caracteres. Hasta aquí me...
1 respuesta

Macro que busque los datos en otra hoja(mismo libro) y copie en otra.

Es urgente alguien me puede ayudar estoy elaborando una bse de datos en excel(2007). 1-El libro contiene lo siguiente: 2 hojas (consulta, base de datos). Quisiera insertar un TextBox en el cual ingresar los datos a buscar, 2 combobox (1. La lista de...
1 respuesta

Macro Diferenciar nombres parecidos en celdas

Junto con saludar y agradecer su ayuda anterior, necesito arreglar un pequeñito problema usando la macro: Como tengo varias celdas con nombres parecidos (bomba 14, bomba 141, bomba 142), la macro reconoce la palabra "bomba 14" e ingresa el dato, pero...
1 respuesta

Excel macros: buscar valores en una columna

Tengo un problema con un macro que estoy haciendo: Tengo un commandbutton con el que quiero buscar valores en una selección, pero el comando: Cells.Find(What:=ComboBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows,...
1 respuesta

CheckBox

Tengo una base de datos creado en un userform con textbox, combobox, etc., toda la información que ingresa me lo manda a la hoja uno al darle insertar con un commandbutton, también con otro commandbutton con el nombre de buscar, encuentra la...
2 respuestas

Mostrar MsgBox con datos de celda

Recurro de nuevo a su valiosa ayuda. Gracias al experto "Aprendemos" pude dar con una respuesta interesante. Por medio de un Formulario capturo un nombre ubicados un rango, si el valor no existe en el rango aparece un MsgBox "Número no encontrado"....
2 respuestas

Error en el método 'Range'de objeto '_Global'

Quisiera que me pudieras ayudar con un problema en un form de excel: Tengo un informe de más de 2mil registros con 9 columnas, entonces realice un form con un textbox y un botón donde en el textbox dígito la palabra a buscar de la primera col y luego...
1 respuesta

Case en excel

No soy muy experto en visual basic, cree un formulario para ingresar datos, y esa información la dividí en varias etapas. En la etapa uno, ingreso unos valores y todo bien, en el caso 2 lo primero que hago es buscar un dato para poder ingresar los...
1 respuesta