Buscar criterio y pegar rango en columnas
Hola a todos ¡¡¡
Agradecería su valiosa colaboración con el siguiente problema, que me trae de cabeza¡
Tengo una lista de países en la Hoja1-A1 (se repiten), y una lista de valores en la columna B1 así:
Hoja1:
España 52
España 36
España 89
Italia 84
Italia 15
Francia 47
Francia 87
Francia 91
Francia 22
En la Hoja2-A1, tengo en la fila 1, todos los posibles países; ahora bien, lo que necesito es una formula o código que busque el nombre del país del rotulo de la Hoja2, y copie los valores encontrados en la Hoja1, justo debajo del rotulo. Debería quedar así:
Hoja2:
España Italia Francia
52 84 47
36 15 87
89 91
22
Los países de la Hoja2 siempre estarán fijos, y los datos de la Hoja1, se irán actualizando.
De antemano, muchísimas gracias por la ayuda.
Saludos,
1 Respuesta
ahora te lo preparo...
Te mando mi solución, sigue mis pasos:
-Tenemos en hoja1 los datos en las columnas A y B desde A1 hacia abajo
-Tenemos en hoja2 los nombres de los países escritos desde A1 a C1.
Ejecuta esta macro problema resuelto:
Sub ejemplo()
'por luismondelo
Sheets("hoja2").Select
Range("a1").Select
Do While ActiveCell.Value <> ""
valor = ActiveCell.Value
rango = ActiveCell.Address
Set busca = Sheets("hoja1").Range("a1:a1000").Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
ActiveCell.Offset(1, 0).Select
Do
ActiveCell.Value = busca.Offset(0, 1)
ActiveCell.Offset(1, 0).Select
Set busca = Sheets("hoja1").Range("a1:a1000").FindNext(busca)
Loop While Not busca Is Nothing And busca.Address <> ubica
End If
Range(rango).Select
ActiveCell.Offset(0, 1).Select
Loop
End Subno olvides finalizar la consulta
