Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

¿Por qué no funciona?

ARJONANI

New member
Registrado
16 Jun 2010
Mensajes
8
Hola!

Tengo que copiar las celdas no vacías de la columna AZ (columna 52) a partir de la fila 7 y pegarlos en la columna AY a partir de la fila 7 también, pero no veo dónde está el fallo...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Hola:

Creo que así funciona.
Código:
Sheets("GUARDA ALB").Select
Dim rango As Range
fila = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set rango =...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Gracias Antoni.

Resuelto el tema del rango a copiar y pegar, pero por lo visto este código está dispuesto a acabar conmigo.

El archivo adjunto tiene el mismo código para copiar celdas no vacías...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Buenos días,

Perdonadme si no me explico adecuadamente.

La macro del archivo que adjunté funciona perfectamente, y es lo que quiero conseguir para el archivo en el que trabajo, pero hasta ahora...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Volver
Arriba