Como Ordenar algunos valores de columnas en fila en otra hoja

Tengo un listado de varias celdas de distintos valores en una columna, en una segunda columna tengo una fórmula que dadas ciertas condiciones extrae algunos valores.

Lo que necesito es saber cómo extraer la información a otra o un Resumen de la información: como en el ejemplo.

BASE DE DATOS

Dirección Vales Busca Vales

A B C

1 Calle4 33

2 Calle9 34

3 CalleA 35

4 Calle9 36

5 Calle9 37

6 CalleB 38

7 Calle9 39

8 CalleB 40

9 Calle9 41

10 CalleB 42

RESULTADO QUE SE BUSCA

Vales de la: Calle 9

1º 2º 3º 4º

34 36 37 41

1

1 Respuesta

2.080.890 pts. En mi sitio encontraran material de ayuda, ejemplos...

Te dejo una macro posible. No comentas cómo le indicarás a Excel cual es el dato a buscar ni dónde colocar el resultado. Dejo comentarios en la macro para que puedas ajustar estos detalles a tu caso.

Sub vales()
'x Elsamatilde
'se toma la solicitud de la celda E1
dato = [E1]
'se devuelve la lista a partir de col H de la misma hoja
colx = 8
'se recorre la col A hasta el final de datos
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    If Range("A" & i) = dato Then
    'si se trata del dato buscado, se copia 'solo valor' en fila 1 a partir de col H
        Range("B" & i).Copy
        Cells(1, colx).PasteSpecial xlValues
        'incrementa la col
        colx = colx + 1
    End If
Next i
'quita el modo de copiado
Application.CutCopyMode = False
MsgBox "FIN"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas