Copiar celdas llenas de un rango a otra hoja

Tengo un libro con 2 hojas(formato y base), lo que quiero es copiar solo las celdas "llenas" del rango B7:G26 (FORMATO) y las pegue en otra hoja (BASE)en el rango E7:E:26 y en la primera fila vacía que encuentre y así consecutivamente, sin embargo me copia y pega todo el rango aunque tenga celdas vacías.
Ya que no siempre se llena todo el rango, a veces se llenan 2, 3, 5 filas o todas.
Si lleno dos filas de ese rango, solo que se copien y peguen esas dos filas, si lleno 3 igual y así. Solo las celdas o filas llenas de este rango
B   C   D   F   G
1   f     f    f    f
2   h   h   h   h
3
4
5
6
.
Sub paseDatos()
libre = Sheets("BASE").Range("b65536").End(xlUp).Row + 1
Sheets("FORMATO").Range("B7:G26").Copy
Worksheets("BASE").Cells(libre, 2).PasteSpecial Paste:=xlPasteValues, SkipBlanks _
:=True
Sheets("FORMATO").Range("E7:E26") = ""
MsgBox ("DATOS GUARDADOS EXITOSAMENTE :)")
End Sub

1 respuesta

Respuesta
1
Necesitas contemplar cuál es la última fila con datos, para eso debes decidir cuál es la col que siempre estará completa (aunque el resto de la fila quizás no). Para el ejemplo tomé la col C
Sub paseDatos()
libre = Sheets("BASE").Range("b65536").End(xlUp).Row + 1
ultima= Sheets("FORMATO").Range("C65536").End(xlup).Row
Sheets("FORMATO").Range("B7:G" & ultima).Copy
Worksheets("BASE").Cells(libre, 2).PasteSpecial Paste:=xlPasteValues, SkipBlanks _
:=True
Sheets("FORMATO").Range("E7:E26") = ""
MsgBox ("DATOS GUARDADOS EXITOSAMENTE :)")
End Sub
Hola de nuevo...
Muchas gracias por tu ayuda pero me sigue haciendo lo mismo :(
te paso el link del archivo por si gustas revisarlo por favor
http://www.mediafire.com/file/jjmtdwmyqmr/FUNCIONA.xls
saludos
Es porque tu col C tiene fórmula, tenés que evaluar una col con 'datos', en tu ejemplo vi que podría ser la E.
Entonces reemplazá en la siguiente línea la letra C por E:
ultima= Sheets("FORMATO").Range("E65536").End(xlup).Row
PD) Para que la rutina esté óptima, debieras controlar si hay datos o no para copiar y al final quitar el modo de copiado. Además parece que la limpieza debiera incluir la col F
Sub paseDatos()
libre = Sheets("BASE").Range("b65536").End(xlUp).Row + 1
ultima = Sheets("FORMATO").Range("E65536").End(xlUp).Row
'si no hay datos cancela el proceso
If ultima < 7 Then Exit Sub
Sheets("FORMATO").Range("B7:G" & ultima).Copy
Worksheets("BASE").Cells(libre, 2).PasteSpecial Paste:=xlPasteValues, SkipBlanks _
:=True
Sheets("FORMATO").Range("E7:F26") = ""
'para quitar el modo de copiado
Application.CutCopyMode = False
MsgBox ("DATOS GUARDADOS EXITOSAMENTE :)")
End Sub
Sdos
Elsa
PD) Te invito a descargar las demos e índices de contenido de mis manuales de Programación y 400MacrosPlus. Encontrarás ejemplos para descargar.
http://aplicaexcel.galeon.com/manuales.htm

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

Macro copiar columnas rango variable

Llevo tiempo consultando la web de todoexpertos, y siempre que surge una duda intento resolverla a partir de alguna respuesta que encuentro en el site, aunque no siempre es evidente!... Te comento, tengo una tabla excel en hoja1 y quiero seleccionar,...
1 respuesta

Copiar celdas a otra hoja en la primera fila libre

Primero felicitarles por la página que me parece estupenda. Voy con mi pregunta: Tengo un libro con las hojas: externo, interno y base de datos, la utilizo para ingresar datos de personal autorizado a fin de realizar trabajos en la empresa, en las...
2 respuestas

Macro para pegar información de un libro a otro

Esta pregunta la hice hace poco pero buscando y buscando vi que respondes bien a este tipo de preguntas (espero que me puedas ayudar). Yo conseguí el siguiente código, pero no hace lo que necesito: Sub Guardar() Application.ScreenUpdating = False...
1 respuesta

Macro para copiar celdas con formato (color) a otra celda

Ya se me indicó en una ocasión la forma de trasladar (copiar) celdas de una hoja a otra con una macro. Ahora quisiera que también se transfiriesen no sólo el valor de las celdas sino también el color. Os adjunto parte del código de la macro que...
1 respuesta

Borrar Fórmula sin borrar datos

Quiero que una fórmula de excel se ejecute y cuando se halle el resultado se borre la fórmula y me quede unicamente el resultado en la celda, de tal forma que la próxima vez que abra el libro no se cambie el dato anterior.
1 respuesta

Bordes de celdas mediante vba excel 2003

Yo se como poner borde a un rango de celdas usando una macro y luego el modulo. Pero mi problema está en que nunca es un rango exacto, es una base de datos en una hoja que se va llenando mediante entradas en un formulario, yo uso el siguiente código:...
1 respuesta

Crear cronometro excel 2010

He estado intentando crear una macro para cronometrar con excel y no lo consigo, lo que necesitaría sería el cronometro en si, que cuando le de a un botón comience, con otro botón pare y con otro resetee a "0". También estoy intentando poner una...
1 respuesta