Buenas tardes a todos, necesito una ayuda de ustedes, tengo un archivo el cual esta compuesto por varios sub-modulos, los cuales tienen 20 filas cada uno, necesito lo siguiente:

1. Una macro que me copie en otro archivo los datos de las Columnas C,D,G,H,I, y K de los rangos (53:77) y (82:106)

2. La condición es que no copie las filas en blanco, que solamente hasta donde se digitó información.

Agradecería mucho la ayuda de ustedes.

Planilla Diaria-Prueba.rar

.

Pon el código adjunto en un módulo y ejecuta la macro CopiarRangos:

Dim Activa As Worksheet

Dim Fila As Long, x As Long


Sub CopiarRangos()

Set Activa = ActiveSheet

Workbooks.Add

x = 52: ComúnCopiarRangos

x = 82: ComúnCopiarRangos

Cells.EntireColumn.AutoFit

Application.Dialogs(xlDialogSaveAs).Show

End Sub


Private Sub ComúnCopiarRangos()

Do Until Trim(Activa.Range("C" & x)) = Empty

   Fila = Fila + 1

   Range("A" & Fila) = Activa.Range("C" & x)

   Range("B" & Fila) = Activa.Range("D" & x)

   Range("C" & Fila) = Activa.Range("G" & x)

   Range("D" & Fila) = Activa.Range("H" & x)

   Range("E" & Fila) = Activa.Range("I" & x)

   Range("F" & Fila) = Activa.Range("K" & x)

   x = x + 1

Loop

End Sub


[/CODE]

Macro Antonio Excelente, no tengo palabras para agradecerte y felicitarte, pero hay algo que me pasa, como yo por cada día abro una pestaña, que se, que es ineficiente pero es lo que se manejar hasta el momento, entonces ejecuto la macro y cuando la realiza los datos los desplaza varias filas hacia abajo, que deberia empezar en la Fila 1, Columna 1, cierto? hice varias pruebas y funciona perfectamente si me salgo del todo y vuelvo a ejecutar la macro, que pasa,?

Gracias y nuevamente gracias porque funciono!

Macro Antonio, se que es mucho pedir, pero hay una pregunta, como se puede en el archivo generado que salga con un tipo de letra y tamaño y ademas con bordes?

Gracias

Este tema lo doy por solucionado, ya que las rutinas que me envió Macro Antonio funciono a la perfección, lo otro es adicional.

Gracias