Copiar datos en hoja con filtro

hola, Megamo !

... hoja que he filtrado por un criterio de una columna.
... quiero pegar en las celdas que estan filtradas, otras celdas de otra hoja.
... las pega, pero en la totalidad de la hoja y no solo en las celdas que he fltrado.
... pegar los datos solo en las celdas filtradas?

para lograr 'pegar' datos de otro rango SOLO sobre las celdas de una lista ->filtrada<-...
es necesario 'igualar' las dimensiones entre 'origen' y 'destino'...
o... indicar SOLO la celda 'inicial' para el rango de 'destino'
[lo que tiene el 'efecto' que estas obteniendo actualmente] :((

si comentas datos adicionales en relacion con las dimensiones de los rangos...
saludos,
hector.

Hola Hector

Vamos a ver si me explico bien. Supongamos que tengo en una hoja, los
ingredientes de unas recetas, pero no el nombre de las recetas, aunque
existe un caracter que diferencia cuando los ingredientes pertenecen a una
receta y cuando a otra.( hay un # cuando acaban los ingredientes de una y
empiezan los de otra). Yo filtro por el # y los borro todos. En otra hoja
tengo los nombres de las recetas y ademas ordenados segun estan los
ingredientes. Así, sólo tengo que copiarlos y pegarlos en la lista filtrada,
de forma que al quitarle el filtro, me aparezcan las recetas y a
continuacion una lista de sus ingredientes. Aparentemente es facil, pero al
yo ir a pegarlos, me los pega, pero desde el principio, y no sólo en las
celdas que he filtrado. He probado lo que dices y no me funciona. Estare
haciendo algo mal y no se que es. Alguna idea??

Saludos

"Héctor Miguel" escribió en el mensaje
news:

hola, Megamo !

... hoja que he filtrado por un criterio de una columna.
... quiero pegar en las celdas que estan filtradas, otras celdas de otra
hoja.
... las pega, pero en la totalidad de la hoja y no solo en las celdas que
he fltrado.
... pegar los datos solo en las celdas filtradas?

para lograr 'pegar' datos de otro rango SOLO sobre las celdas de una
lista ->filtrada<-...
es necesario 'igualar' las dimensiones entre 'origen' y 'destino'...
o... indicar SOLO la celda 'inicial' para el rango de 'destino'
[lo que tiene el 'efecto' que estas obteniendo actualmente] :((

si comentas datos adicionales en relacion con las dimensiones de los
rangos...
saludos,
hector.

hola, Megamo !

... Supongamos... en una hoja, los ingredientes de unas recetas, pero no el nombre de las recetas
... existe un caracter... # cuando acaban los ingredientes de una y empiezan los de otra)
... filtro por el # y los borro todos... otra hoja... los nombres de las recetas... ordenados segun... los ingredientes.
... tengo que copiarlos y pegarlos en la lista filtrada
... que al quitarle el filtro, me aparezcan las recetas y a continuacion una lista de sus ingredientes
... al... pegarlos, me los pega, pero desde el principio, y no solo en las celdas que he filtrado [...]

te confieso que [todavia] me resulta dificil 'imaginar' el -posible- 'arreglo' que guardan ambos listados :(
-> cuantas filas/columnas tienen Y 'como quedan' despues de filtrar [las celdas 'visibles'] -?-
haciendo algunos 'supuestos', e imaginando que tienes un listado con 9 recetas en hoja2, rango 'a2:a10'
... y que en la 'activa' filtras [solamente] UNA columna con los ingredientes
... y que [ademas] queda 'libre' Y FUERA del rango filtrado una columna a la izquierda del listado de ingredientes
... y [muy importante] que SIEMPRE quedan 'grupos' de 9 filas con celdas 'visibles' [o igual al # de recetas]...
el codigo que te expongo al final... 'debiera' funcionar :))

en caso contrario... comentas datos adicionales? [y sobre todo... con mayor 'claridad'] ;)
saludos,
hector.

en un modulo de codigo 'nornal' ==Sub CopiarEnListaFiltrada()
Dim Celda As Range, Sig As Integer
With ActiveSheet
If Not .FilterMode Then MsgBox "Sin criterios": Exit Sub
With .AutoFilter.Range.Offset(1, -1)
For Each Celda In .SpecialCells(xlCellTypeVisible)
Sig = Sig + 1
Celda = Worksheets("Hoja2").Range("a2:a10").Cells(Sig)
Next
End With
End With
End Sub