Excel - Hoja excel como variable de busqieda

   
Vista:

Hoja excel como variable de busqieda

Publicado por Borja (2 intervenciones) el 27/10/2015 11:27:57
Buenos dias amigos.
Tengo una duda de excel.
Tengo una libro donde tengo varias HOJAS.
1. Datos Cliente (listado con mas 300 clientes).
2.Consulta (donde quiero ver los resultados).
3.Datos de compra del cleinte 1
4.Datos de compra del cleinte 2
5. Datos de compra del cleinte 3
6. .................

Ya tengo puestod de forma automatica que me busque todos los datos los datos de cliente en la hoja 1 y me los plasme en la hoja de consulta.

Ahora quiero hacer que me busque un valor en las hojas de los datos de compra.

Tengo puesta esta formula:
=SI.ERROR(BUSCARV(E32;'020032'!A:C;3;FALSO);"")
E32--> Es una variable que he creado en lista. TIpologia de producto.
020032--> Se llama asi el cliente.
El resto son los datos que quiero que me muestre en la hoja CONSULTA.

La duda es............como puedo cambiar el dato de la hoja de DATOS DE COMPRA (020032) y que sea una busqueda dinamica y me busque en todas las hojas excel, y luego me devuelva el resto de la formula.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Hoja excel como variable de busqieda

Publicado por Andres Leonardo (483 intervenciones) el 27/10/2015 16:32:54
Estoy haciendo algo parecido y lo que hare es que pondre la formula mediante Macro

Me dijeron qeu revise un tema llamado Indirecto .. puede que a ti te funcione.. pero yo lo hare mediante macro.

espero el dia Jueves tener un avance si deseas te posteo el codigo

**en lo que estoy haciendo la referencia es a una hoja de otro libro... pero si tu lo tienes en el mismo no tendras problemas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Hoja excel como variable de busqieda

Publicado por Borja (2 intervenciones) el 27/10/2015 16:35:27
Gracias Andres
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Hoja excel como variable de busqieda

Publicado por Andres Leonardo (483 intervenciones) el 28/10/2015 20:21:30
Haber lo prometido es DEUDA

Haber que hace mi macro .. en este caso BUSCA un valor x en un rango de celdas (esto lo podras modificar segun tu libro si deseas me puedes pasar una hoja donde busca para ver como lo adaptas)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub BuscarEnLibro()
'
' BuscarEnLibro Macro
' Buscar el Valor Seleccionado En la Hoja o libro 
'
' Acceso directo: CTRL+q
'   abro el archivo
         Dim WS_Count As Integer
         Dim I As Integer
         Dim R As Integer
         Dim Folio As String
         Dim Ubicacion As String
         Dim hoja As String
         Dim Celda As String
 
    Folio = Range("B2").Value
    'ActiveWindow.Close
    Workbooks.Open Filename:=ThisWorkbook.Path & "\CCC.xlsx", UpdateLinks:=0   ' esto si necesitas abrir algun otro documento para la busqueda si no solo te pones en la hoja del libro
    Sheets("wk36").Select
         'Ahora comienzo a recorrer para buscar los valores ... buscare unicamente en la linea
         ' Set WS_Count equal to the number of worksheets in the active
         ' workbook.
        WS_Count = ActiveWorkbook.Worksheets.Count
        R = 0
        I = 1
         ' Begin the loop.
         While (I <= WS_Count) And (Ubicacion = "") 'Con esto recorro las hojas
           'debo preguntar por el nombre y si el nombre no comienza con WEEK aumento y sigo.
            If Mid(ActiveWorkbook.Worksheets(I).Name, 1, 2) = "wk" Then
            c = 67
                'MsgBox ActiveWorkbook.Worksheets(I).Name
                Sheets(ActiveWorkbook.Worksheets(I).Name).Select
               Range(Chr(c) & "3").Select
               'Debo preguntar por las posiciones delas fechas.
               While (c <= 81) And Ubicacion = ""
                valor = Range(Chr(c) & 3).Value
                    If valor = Folio Then
                      hoja = ActiveWorkbook.Worksheets(I).Name
                      Celda = Chr(c) & "3"
                      Ubicacion = Ubicacion & "Hoja: " & ActiveWorkbook.Worksheets(I).Name & " En la Celda " & Chr(c) & "3"
 
                         Range(Chr(c) & 3).Select
                    End If
                    c = c + 2
               Wend
               End If
               I = I + 1
         Wend 'Recorro las Hojas
            MsgBox Ubicacion
 
    'termino de ver y
    ' Ahora debo colocar la Formulas en las celdas
        ActiveCell.FormulaR1C1 = aqui pones la formula y puedes Usar Hoja para concatenar valores asic omo celda.
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar