Copiar Rango y Pegar en la sig. columna disponible

[anapcg007]

Hola, grabé mi macro y todo funciona bien: copio el rango "O8:O20" la macro lo copia en la columna del mes, vuelve a agrupar os datos y borra el contenido.

Lo único que no se cómo hacer :cry...

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í

 

[Macro Antonio]

.
Prueba con esta macro:

Sub VaciarDatos()
   For y = 16 To 27 'Rango O:AA
      If Trim(Cells(8, y)) = Empty Then 'Mes vacío
         'Rango O:AA
         c = Split(Cells(8, y).Address...

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í

 

[anapcg007]

Wow, funciona a la perfección, te agradezco. Ojalá hubiera algún curso de Macros.

Una última consulta, como este archivo voy a generar varios, que tienen más filas es decir, el rango a veces es...

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í

 

[Cacho R]

Hola! anapcg007 (y Gran Antoni de la Gente)

Otra forma que podría andar es:

Sub VaciarDatos_3()
Dim jCol, iCells, i%
iCells = Array("o8", "o25", "ad8", "ad25")
For i = 0 To 3...

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í

 

[Macro Antonio]

.

Una última consulta, como este archivo voy a generar varios, que tienen más filas es decir, el rango a veces es más largo que (O8:O20), podría ser de (O8:O30).

¿Que campo tendría que...

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í