Menudo lio.

Hola

a ver si ahora me explico mejor
por favor revisa que no me haya confundido en las instrucciones

.
If c Is Nothing Then
With Worksheets("Lista")
'esta linea es la que copia el valor de la celda
' .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = _
' Celda.Value
' la cambiamos por esta otra
Celda.Resize(1, 10).Copy _
Destination:=.Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
Set Destino = Destino.Resize(Destino.Rows.Count + 1, 1)
End With
..



"Masters" escribió en el mensaje
news:
Si la coloco debajo del With Worksheets("Lista") me salta bloque sin
with.
Si la coloco debajo de
With Worksheets("Lista")
Set Destino = .Range(.Range("G1"), .Range("G" & .Rows.Count).End(xlUp))
End With
Me salta referencia no válida o sin calificar, sombreando el .Rows

Si.
Ahora está todo ok.
Eres un crack.
:D
Muchas gracias.

Saludos Juan.

Estoy estudiando tu secuencia para entenderla.

Verás.
Esta opcion (Celda.Resize(1, 5).Copy Destination:=c) pega desde la
celda de origen hasta 4 celdas a la izquierda contando desde la origen
en total son 5.
OK?

Pero si pusiera (Celda.Resize(1, -2).Copy Destination:=c), porqué no
me pega desde la celda de origen hasta 1 celda a la derecha? y me salta
error.

Saludos Juan.

Estoy estudiando tu secuencia para entenderla.


Verás.
Esta opcion (Celda.Resize(1, 5).Copy Destination:=c) pega desde la
celda de origen hasta 4 celdas a la derecha contando desde la origen
en total son 5.
OK?


Pero si pusiera (Celda.Resize(1, -2).Copy Destination:=c), porqué no
me pega desde la celda de origen hasta 1 celda a la izquierda? y me
salta
error.

Hola

La propiedad Resize cambia el tamaño del rango especificado. Devuelve un
objeto Range que representa el rango al que se ha cambiado de tamaño (según
la ayuda).

El problema viene de que el primer objeto range, celda, es un rango de 1x1 y
no puedes cambiar su tamaño a algo menor.
Si el rango fuese mayor no tendrias problema con los numeros negativos,
siempre que sean menores que el numero de filas o columnas del rango a
variar el tamaño.

para poder hacer algo parecido a lo que quieres prueba con esta sentencia

Celda.Offset(0, -2).Resize(1, 3).Copy destination:=c

un saludo
juan


"Masters" escribió en el mensaje
news:
Saludos Juan.

Estoy estudiando tu secuencia para entenderla.


Verás.
Esta opcion (Celda.Resize(1, 5).Copy Destination:=c) pega desde la
celda de origen hasta 4 celdas a la derecha contando desde la origen
en total son 5.
OK?


Pero si pusiera (Celda.Resize(1, -2).Copy Destination:=c), porqué no
me pega desde la celda de origen hasta 1 celda a la izquierda? y me
salta
error.