Macro para buscar en varias hojas

Estoy tratando de hacer una macro en excel que busque un dato en varias hojas, ya tengo un código y me funciona algunas veces, pero otras extrañamente se cicla y no me deja hacer nada mas o bien no encuentra la palabra que le pido aunque si esté en el archivo, ¿podrías ayudarme? Ya he intentado varias maneras y nada me dá resultado, estoy un poco desesperada! Te anexo el código.
De antemano muchas gracias.
Private Sub TextBox4_Change()
Dim n As Range
palabra_a_buscar = ComboBox4.Text
Sheets(Array("Sheet2", "CEVA", "FEDEX", "PANALPINA")).Select
'Sheets("Sheet2").Activate
For Each x In ActiveWindow.SelectedSheets
x.Select
Set n = ActiveSheet.Cells.Find(palabra_a_buscar)
If n Is Nothing Then
'MsgBox ("No he encontrado nada. Lo siento")
Else
Range(n.Address).Select
ActiveCell.Offset(0, 1).Select
TextBox4.Text = ActiveCell
'MsgBox ("Aquí tienes la palabra " & UCase(palabra_a_buscar) & ".")
End If
NextSheet:
Next x
End Sub

1 respuesta

Respuesta
1
Utiliza esta función que me encontré:
Function BuscarEnHojas(Look_Value As Variant, Tble_Array As Range, _
Col_num As Integer, Optional Range_look As Boolean)
''''''''''''''''''''''''''''''''''''''''''''''''
'Written by OzGrid.com
'''''''''''''''''''''''''''''''''''''''''''''''''
Dim wSheet As Worksheet
Dim vFound
On Error Resume Next
For Each wSheet In ActiveWorkbook.Worksheets
With wSheet
Set Tble_Array = .Range(Tble_Array.Address)
vFound = WorksheetFunction.VLookup _
(Look_Value, Tble_Array, _
Col_num, Range_look)
End With
If Not IsEmpty(vFound) Then Exit For
Next wSheet
Set Tble_Array = Nothing
VLOOKAllSheets = vFound
End Function
Ya la probé y funciona de maravilla. Pones por ejemplo:
=BuscarEnHojas(A1,A:D,4,0)
El valor lo pones en A1, A:D es el rango, 4 es la columna. Es parecida a BuscarV

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Buscar valor en varias hojas de excel y traerlos a una celda de una hoja indicada

Tengo una función que busca valores en función del valor de una celda de un listado. Los valores los busca en todas las hojas generadas, que dependiendo del archivo varían en número. La macro con la que busco estos valores en todas las hojas del...
1 respuesta

Crear hojas con el mismo formato con macros

Te agradezco la colaboración con el siguiente macro en el cual me crea una hojas con el nombre que le indico (según código) el problema radica en que quiero que tenga el formato de la hoja original y no me lo toma. Ademas que si en determinado...
1 respuesta

8 combobox dependientes enlazados

Estimados expertos tengo el sigiente problema quiero realizar una macro en donde tenga 8 combobox en los cuales quiero desplegar la siguiente informacion tengo el sgte codigo Public ufila As Integer Private Sub ComboBox1_Change() ComboBox2.Clear...
1 respuesta

Buscar y colorear

Buscar dentro de una hoja Excel un texto o numero y que me coloree todas las filas de las celdas donde este ese texto o numero
1 respuesta

Ejecutar macro según el valor de la celda

Que tal necesito de su valiosa ayuda tengo que ejecutar una macro en automático esto depende del valor de la celda. Estoy utilizando la siguiente macro: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$S$1" And...
1 respuesta

Eliminar filas de acuerdo al valor de una celda

Tengo esta macro que uso para ocultar filas según el valor de una celda, lo que hace correctamente, lo que quiero hacer es que las elimine en vez de ocultarla. Dim Rango As Range, c As Range If Range("A78") = "" Then Range("A79:A139").Select...
1 respuesta

Copiar contenido de archivos de Texto a Excel.

Tengo una carpeta en una ruta especifica que contiene 100 subcarpetas y cada una a su vez, tiene 10 carpetas dentro de ellas, en las cuales viene un archivo de texto.txt del cual quiero extraer el contenido y pegarlo en una hoja de calculo de excel....
2 respuestas

Exportar de Excel a un archivo de texto

Necesito exportar un rango de datos de Excel de longitud variable a un archivo de txt en una ruta fija 'el rango lo selecciono Range("E1").Select Range(Selection, Selection.End(xlDown)).Select en las celdas de la hoja hay otros datos que no necesito...
1 respuesta

Buscar dato y borrar celda derecha

Columna A Columna B Materiales Sección Cemento Cemento Clavo de 2" Clavos Pilares Cemento Cemento Cemento Clavos de 2" Clavos Necesito cambiar la sección del Material por la que yo escoja o escriba, para eso tengo un formulario que diseñe de prueba...
1 respuesta

Una macro con msgbox.

Necesito una macro que me avise cuando en una columna hay uno, o varios números distintos a todos los demás que deben ser iguales. La necesito con un msgbox que diría así: "semana distinta en celdas A1 Y A20". Por ejemplo.
1 respuesta