Copiar rango de celdas activas

Tengo una macro que copia un rango de celdas de la A.20 hasta la J

La macro lo ejecuta bien, pero no siempre tengo datos en todas las celdas, es decir tengo 15 renglones que inician de A:21 hasta a:36, esto es lo que me copia. Como puedo hacer para que la macro copie el rango de celdas que este activo. Por ejemplo si tengo información de A:20, al A: 22 etc.

Copia renglones a hoja Detalle
Sheets("Mov").Range("B37").End(xlUp).Activate
TT = Range(ActiveCell.Address).Row
Range("A21:J" & TT). Copy
Sheets("Detalle"). Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

1 respuesta

Respuesta

Puedes poner imágenes de lo que tienes y de lo que quieres copiar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Capturar información de varias hojas en una nueva

Estoy tratando de automatizar la captura de información a partir de varias hojas de un mismo libro de excel, una vez grabada la macro esta solo me efectúa el proceso hasta la hoja 4 del libro y en total son 287 hojas. Que sentencia debo incluir al...
1 respuesta

Macro para informes diarios

Tengo una tabla (la hoja se llama VENTAS ACTIVIDADES), con todas las actividades que voy vendiendo, esta tabla tiene 19 columnas(Fecha de actividad, Hora, Actividad, Nombre del cliente, Tlf...). Aquí almaceno todos los datos de las actividades que...
3 respuestas

Macro para copiar fila a otra hoja sin sobreescribir

Utilice la macro de la siguiente manera y funciona perfectamente, lo único es que cuando me copia la información me la sobreescribe y no me la pega en la siguiente fila que esta libre. La única diferencia es que cuando coloco PasteSpecial...
1 respuesta

Macro copiar y pegar en celdas consecutivas, días distintos.

Tengo una hoja donde relleno la caja que he echo en el bar cada dia, me gustaría que al pulsar una botón, me copie una celda en otra pagina, i al dia siguiente al volver a pulsar el botón me vuelva a copiar esa misma celda pero en la celda...
1 respuesta

Macro para copiar datos de una hoja a otra

Bueno este es el macro que hice, me copia los datos de la "hoja factura" pero me los manda mal a la "hoja acumulador" me los pone mezclados: Sub asi() Application.ScreenUpdating = False Worksheets("FACTURA").Range("F3").Copy...
1 respuesta

Copiar el contenido de archivos txt incrementalmente sobre hoja de excel

Les comento, tengo varios archivos txt, y necesito llevar su contenido a un libro y hoja de excel en particular. El detalle es que el contenido de cada txt debe ocupar linea a linea en el excel, y a continuación, el siguiente txt se debe agregar a la...
2 respuestas

Copiar rango de celdas a otra hoja con pegado especial (Luis Mondelo)

Encontré esta macro de Luis Mondelo que copia un rango especifico de celdas en otra hoja en la primera fila libre: Sub copiar() fila = sheets("hoja2").Range("a65000").End(xlUp).Row + 1 Range("a6:n6").Copy Destination:=Sheets("hoja2").Cells(fila, 1)...
1 respuesta

Ayuda con macro, copiar y pegar datos.

Agradecería que me echaran una mano con está macro que intento desarrollar; En la hoja 1, tengo 4 columnas que copio y pego (pegado especial sólo valores) a 4 columnas a la hoja 2 (columnas C, D, E, F). Teniendo en cuenta que me pega en la primera...
1 respuesta

Necesito una macro que copie datos de columna a otra sin formato

Quisiera crear una macro que me copie ciertos datos de unas columnas a otra hoja, por ejemplo tengo que copiar las columnas A B G H I desde la linea 13 hasta que no hallan mas datos en la columna y pegarlos en una nueva hoja de calculo. Alguien...
1 respuesta

Buscar contenido de celda en otra hoja

Llevo un montón de tiempo intentando crear una macro, y no lo consigo. Tengo un libro con muchas hojas particularizadas para cada cliente ("1, 2, 3, 4, ..."), donde en la celda combinada b1:c1, pongo el código de cliente, además de una hoja con el...
1 respuesta