Buscar y Copiar en función del valor de una Celda

Ostras Héctor,

era eso lo que andaba buscando, no sabes el favor que me has hecho y
encima sin macro !!

Eres un crack!

Muchísimas Gracias!!!!

Héctor, tengo un problema:

Lo que hiciste funciona a las mil maravillas, pero resulta que
necesito repetirlo por lo menos 5 veces en la misma hoja, es decir:

usando la misma lista de validación, necesito 5 casillas en la hoja1
(A1, A20, A40, A60, A80 Y A100) donde escogiendo el nombre (en cada
casilla un nombre distinto, claro) haga por separado cada una de
ellas, lo que me has enseñado ,que me pegue unas casillas más abajo lo
que ha encontrando en la hoja2 en función del nombre escogido en la
validación.

Es lo mismo que has hecho, pero hecho en 5 casillas distintas y que
funcione cada una independientemente de la otra.


Es posible?

Con eso ya habría terminado por completo.

Saludos.

hola, Xavier !

... resulta que necesito repetirlo por lo menos 5 veces en la misma hoja, es decir:
usando la misma lista de validacion, necesito 5 casillas en la hoja1 (A1, A20, A40, A60, A80 Y A100)
donde escogiendo el nombre (en cada casilla un nombre distinto, claro)
haga por separado cada una de ellas... que me pegue unas casillas mas abajo
lo que ha encontrando en la hoja2 en funcion del nombre escogido en la validacion...

cada celda validada mantiene una *distancia* de 20 filas [20, 40, 60, 80 y 100]
-> EXCEPTO... de la primera a la segunda, donde la diferencia es de 19 filas [A1 -> A20]

-> [pregunta]: si para la primera celda [A1] se van a copiar los datos 9 filas mas abajo: -> 'A10'
cuantas filas abajo se copian los datos para las restantes celdas ??? [A20, A40... A100]

op1: si la respuesta es que siempre seran 9 filas abajo de cada celda validada... [es decir]...
'A1' -> A10 'A20' -> A29 'A40' -> A49 [...] prueba con:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1,a20,a40,a60,a80,a100")) Is Nothing Then Exit Sub
With Worksheets("hoja2")
.Columns("a").Find(Target).Resize(10, 10).Copy _
Destination:=Target.Offset(9)
End With
End Sub

op2: si la respuesta es que prefieres *ver* que los datos se van copiando a filas en veintes [es decir]...
'A1' -> A10 'A20' -> A30 'A40' -> A50 [...] entonces modifica +/- a:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1,a20,a40,a60,a80,a100")) Is Nothing Then Exit Sub
Dim Fila As Integer
Fila = Target.Row
Fila = Fila - (10 * (Fila > 1)) - (9 * (Fila = 1))
With Worksheets("hoja2")
.Columns("a").Find(Target).Resize(10, 10).Copy _
Destination:=Target.Offset(Fila)
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Ya está, gracias a lo que has posteado por fin he conseguido lo que
necesitaba.

No sabes cómo te lo agradezco. Yo pensaba que sabía algo de Excel,
pero soy un ignorante.

Me descubró ante ti.

De nuevo muchas gracias!!!