Búsqueda de valor en varias hojas

25/04/2007 - 23:11 por Jorge Forero | Informe spam

Buenas tardes, solicito ayuda al foro con el siguiente caso
gracias por la atención

Búsqueda de valor
Tengo una macro que busca el valor de un textBox en un archivo, en una hoja
específica,
necesito que me busque el dato en todas las hojas, pero no he podido, solo
me funciona
para una específica a continuación el código

Dim x As Boolean
Dim Celda As Range
For Each Celda In Worksheets("CA-AUT-MASG").Range("a1:a1000").Cells
If txbConsultaAnexoXIIIFuncion.Value = Celda.Value Then
Celda.Activate
x = True
End If
Next Celda
If x = False Then
MsgBox ("La Función Digitada es Incorrecta")
End If

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Busqueda en varias hojas

Leer las respuestas

#1 Héctor Miguel

26/04/2007 - 07:40 | Informe spam

hola, Jorge !

Tengo una macro que busca el valor de un textBox en un archivo, en una hoja específica,
necesito que me busque el dato en todas las hojas, pero no he podido
solo me funciona para una específica a continuacion el codigo

-> es [realmente] necesario 'activar' la celda donde se encuentre [si se encuentra] el valor buscado ?
[el codigo que expones la esta 'activando' efectivamente ?... asumiendo que se encuentra en 'otra hoja'] -?-

comentas [si hubiera] algun detalle 'en el tintero' ?
saludos,
hector.

__ el codigo expuesto __

Dim x As Boolean
Dim Celda As Range
For Each Celda In Worksheets("CA-AUT-MASG").Range("a1:a1000").Cells
If txbConsultaAnexoXIIIFuncion.Value = Celda.Value Then
Celda.Activate
x = True
End If
Next Celda
If x = False Then
MsgBox ("La Función Digitada es Incorrecta")
End If

Responder a este mensaje

#2 Arcano

26/04/2007 - 15:49 | Informe spam

Incluye un ciclo para cada hoja::::::::::::::::::::::

Dim x As Boolean,
Dim Hoja_1 as String,
Dim Hoja_2 as String,
Dim Hoja_3 as String,
Dim Celda As Range

Hoja_1 = "Hoja1"
Hoja_2 = "Hoja2"
Hoja_3 = "Hoja3"

For i = 1 to 3 'depende de la cantidad de hojas a evaluar.

HojaActual = Hoja_&i

For Each Celda In
Worksheets(HojaActual).Range("a1:a1000").Cells
If txbConsultaAnexoXIIIFuncion.Value = Celda.Value Then
Celda.Activate
x = True
End If
Next Celda
If x = False Then
MsgBox ("La Función Digitada es Incorrecta")
End If

Next i

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida