[SOLUCIONADO] como buscar un registro en otras paginas con una macro en excel

fredduarte2003 · #1 (**permalink**) 06/04/2015, 07:12

Buen día, el problema que tengo es el siguiente.
tengo un documento en excel con tres hojas principales, la primera es un menú, la segunda (productos) es donde tengo el problema, en esta pagina se me genera una linea cada vez que ingreso un nuevo producto con los campos, código, descripción, presentación, existencia y vinculo a partir de la fila 2. una vez que creo el producto se me genera una pagina nueva idéntica a mi hoja1, la cual es una hoja de kardex. ahora bien, en mi hoja productos genero un vinculo automáticamente que seria un hypervinculo a esa nueva hoja que lleva el mismo nombre del código del nuevo producto (se genera automáticamente), el problema es que no encuentro la manera de realizar una búsqueda que me actualice la existencia cada vez que entre a mi pagina productos, osea, debería buscar el código del producto en todas las paginas del libro (que tienen el mismo nombre del código de cada producto), menos las tres primeras, y traer la información de la celda f8 de cada pagina según sea el caso a la columna "d" de la pagina productos, claro en la linea que le corresponda.
Yo genere un código que me actualiza la hoja productos, lo que no he podido hacer es la búsqueda.
otra cosa es que me gustaría poder ordenar la pagina productos una vez que ingrese un producto nuevo.
soy nuevo en el uso de las macros
muchas gracias de antemano.

cada hoja donde debe hacer la búsqueda lleva el nombre del código de dicho producto y dentro de la hoja en la celda e5 esta el código

Monimo · #2 (**permalink**) 08/04/2015, 16:58

Código vb:

Ver originalSub busquedaentodashojas()
'
' busquedaentodashojas Macro
'
 
'
    Cells.Find(What:="factura", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Sheets("nombredetuhoja1").Select
    Cells.FindNext(After:=ActiveCell).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    Sheets("nombredetuhoja2").Select
    Cells.FindNext(After:=ActiveCell).Activate
    Sheets("nombredetuhoja3").Select
    Cells.FindNext(After:=ActiveCell).Activate
End Sub

Puedes empezar implementado este metodo, puedes crear un ciclo para que recorra todas las hojas en lugar de escribir cada nombre, tambien puedes indicarle que "tome" el valor de la celda que hablas...

fredduarte2003 · #3 (**permalink**) 09/04/2015, 06:18

buen dia monimo, muchas gracias por tomarte tu tiempo en responder... mira la verdad es que lo que no he podido hacer es el ciclo para que lea todos las hojas del libro, no se como hacer para que el nombre de la hoja sea una variable, recuerda que al crear un producto este me crea una hoja de kardex, por lo cual el libro se le agregan y eliminan hojas, es por esto que debe ser una variable, otra cosa, la busqueda no es con una celda activa, porque el debe actualizar solo los datos de la existencia que estan en la columna d, deacuerdo al codigo del producto, cada hoja del kardex tiene el mismo nombre del codigo del producto, el tato que busco esta en la celda e5 de cada hoja, y la hoja productos se me ordena automaticamente... gracias

Monimo · #4 (**permalink**) 09/04/2015, 08:35

Hola, bueno es solo el ejemplo para que te des una idea de como lo puedes hacer. Dime si tienes conocimientos de programación o cero? Esto es para no cometer el error de asumir que entiendes ciertas cosas que para mí son obvias (por que soy programadora) y tal vez tú no tengas idea y no solo por el hecho de ser "nuevo en el uso de las macros".

Puedes sustituir en lugar del nombre de la hoja el número por lo tanto el ciclo recorrería todas las hojas por numero así es mas fácil y ya puede ser variable. Si no, se puede programar tmb que al abrir el libro se recorran todas las hojas tomando el nombre de cada una y almacenandolo en un arreglo, o incluso ecribiéndolas en una hoja al final del libro. el cielo es el límite... vaya hay miles de soluciones solo hay que ser creativos.

El activecell se puede resolver de dos maneras: te cambias de hoja desde la macro con el ciclo y activas desde la macro una celda, la que quieras. O bien no incluyes el parametro "AFTER" y con esto la busqueda se inicia en la primera celda del lado izquierdo.

te dejo este link para el manejo de las hojas, para que sepas las distintas formas de referenciarlas :) por aquí seguiré:

Manejo de Hojas y libros en excel

fredduarte2003 · #5 (**permalink**) 09/04/2015, 15:03

gracias monimo. la verdad mis conocimientos se remontan a gwbasic, o pascal, jajaja osea casi nulo, esto es muy nuevo... no se como mandarte un abjunto para que veas donde estoy trancado... sabes que hice la busqueda manual con un boton poniendo en una celda el nombre de la hoja y en otra el resultado de la busqueda que hago en su respectiva hoja y funciono, pero cuando lo quiero hacer automatico no puedo, me da error 13..
'ejecuta macro al abrir Hoja
Private Sub worksheet_activate()
Dim fila As Integer
Dim final As Integer
Dim registro As Integer

For fila = 1 To 1000
If Hoja3.Cells(fila, 1) = "" Then
final = fila
Exit For
End If
Next

For fila = 1 To 1000
If fila <> "" Then
Dim x As String
x = [hoja3.cells(fila,1)].Value
Hoja3.Cells(fila, 4) = Sheets(x).Range("f8").Value... aca me da el error 13
End If
Next

End Sub

gracias por lo que puedas hacer por mi... mañana veo lo que me mandaste, gracias por eso tambien

Monimo · #6 (**permalink**) 09/04/2015, 15:24

Dónde te marca el error? en que línea? ah ya ví, solo cambia el : If fila <> "" Then
por fila <> 0 PORQUE ESTAS TRATANDO DE COMPARAR UN iNTEGER CONTRA UN sTRING "" El error 13 es un "Type Mismatch"

fredduarte2003 · #7 (**permalink**) 10/04/2015, 06:12

hola monimo, gracias por la respuesta, lo hice e igualmente me da error, ahora un error 400 y pico, dice que faltan elementos jajajjaa...
voy a ver el link que me enviastes!

fredduarte2003 · #8 (**permalink**) 10/04/2015, 06:17

el error es el 424 y ahora es en la linea x = [hoja3.cells(fila,1)].Value

Monimo · #9 (**permalink**) 10/04/2015, 08:50

Cita:

Iniciado por fredduarte2003

el error es el 424 y ahora es en la linea x = [hoja3.cells(fila,1)].Value

no será Hoja3... con mayúscula? por que si no estarías invocando otra hoja que no es...

fredduarte2003 · #10 (**permalink**) 11/04/2015, 06:19

nada! puse en mayusculas la h y la c de cells, y sigue lo mismo

fredduarte2003 · #11 (**permalink**) 13/04/2015, 06:35

he tratado con todos los bucles y rutinas posibles y no puedo hacerlo. puedo hacer la busqueda una por una, pero no de toda la tabla al mismo tiempo...

Monimo · #12 (**permalink**) 13/04/2015, 09:36

Cita:

Iniciado por fredduarte2003

nada! puse en mayusculas la h y la c de cells, y sigue lo mismo

la l equitaste los corchetes tmb??

fredduarte2003 · #13 (**permalink**) 14/04/2015, 06:17

hola monimo, si se los he quitado y nada, he intentado de todo y nada, la verdad que ya no se que mas puedo hacer, lastima que no te puedo pasar por aca el archivo para que lo veas

Monimo · #14 (**permalink**) 14/04/2015, 09:17

Cita:

Iniciado por fredduarte2003

hola monimo, si se los he quitado y nada, he intentado de todo y nada, la verdad que ya no se que mas puedo hacer, lastima que no te puedo pasar por aca el archivo para que lo veas

Hola, volví a leer tu pregunta y no sé si mas bien lo que te sirva sea la formula INDIRECT de excel...en lugar de una macro...

fredduarte2003 · #15 (**permalink**) 14/04/2015, 14:45

no he querido meter una formula, porque despues de agregar un producto ejecuto una rotina de ordenamiento de dicha tabla, ademas que tendria el mismo problema, recuerda que para buscar el dato que requiero debo colocar el nombre de la hoja donde buscarlo, y con una formula directa, como hago eso? si el nombre de la hoja es igual al codigo del producto?, ademas necesito la mismo rutina que no he podido crear, pues para eliminar productos debo eliminarlo de la hoja productos y eliminar la hoja, pero debo encontrar la hoja tambien... anda tu puedes ayudarme, recuerda que el cielo es el limite! jajaja... es lo unico que me falta!!

Monimo · #16 (**permalink**) 15/04/2015, 15:03

Cita:

Iniciado por fredduarte2003

no he querido meter una formula, porque despues de agregar un producto ejecuto una rotina de ordenamiento de dicha tabla, ademas que tendria el mismo problema, recuerda que para buscar el dato que requiero debo colocar el nombre de la hoja donde buscarlo, y con una formula directa, como hago eso? si el nombre de la hoja es igual al codigo del producto?, ademas necesito la mismo rutina que no he podido crear, pues para eliminar productos debo eliminarlo de la hoja productos y eliminar la hoja, pero debo encontrar la hoja tambien... anda tu puedes ayudarme, recuerda que el cielo es el limite! jajaja... es lo unico que me falta!!

Es que justo esa fórmula sirve para poner el nombre de la hoja de manera dinámica...

fredduarte2003 · #17 (**permalink**) 16/04/2015, 07:56

si tienes razon, ya la coloque y me funciona, solo que no es una macro, y la tengo que pegar en todas las filas de la tabla, cosa que no queria hacer!

fredduarte2003 · #18 (**permalink**) 16/04/2015, 08:53

hola, una pregunta, estoy tratando de ingresar la formula mediante la macro al momento de crear el producto y coloco estas dos lineas
Separador = Application.International(xlListSeparator)
Hoja3.Cells(fila, 4).Formula = [=INDIRECTO("'" &me.txt_codproducto&"'!"&F$1)]
pero en la celda me sale #¿NOMBRE?... le quito la linea de separador=.. y me sigue saliendo lo mismo..
intente colocando una formula super normal y camino...
me.txt_codproducto es el nombre que debe colocar de la hoja y f1 la celda donde esta la celda de referencia a buscar. si la pruebo directamente en la celda camina a la perfección. imagino que no esta reconociendo la formula y por eso el error

fredduarte2003 · #19 (**permalink**) 19/04/2015, 19:50

hola ya lo pude solucionar

Monimo · #20 (**permalink**) 21/04/2015, 13:46

Cita:

Iniciado por fredduarte2003

hola ya lo pude solucionar

Qué bien! entonces ya está todo solucionado?

fredduarte2003 · #21 (**permalink**) 22/04/2015, 09:06

por ahora si jajaja. gracias por todo, aca te dejo el codigo que estoy usando y corre perfectamente
Private Sub CommandButton1_Click()
For fila = 1 To 1000
If Hoja3.Cells(fila, 1) = "" Then
final = fila
Exit For
End If
Next
selecelda = 2
For selecelda = 2 To final
segundo:
Sheets("productos").Select
Cells(selecelda, 1).Select
aseleccionar = ActiveCell
Sheets(aseleccionar).Range("e1").Copy
Cells(selecelda, 4).PasteSpecial xlPasteValues
selecelda = selecelda + 1
If selecelda <> final Then GoTo segundo
Sheets("productos").Select
Next
Application.CutCopyMode = False

End Sub