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 Respuesta
Respuesta de Elsa Matilde
1
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
