............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Ayuda para revisión de macro

Ver el tema anterior Ver el tema siguiente Ir abajo

Ayuda para revisión de macro

Mensaje por moctezuma48 el Miér Ene 04, 2012 5:44 pm

¡ Hola a tod@s!

Solicito vuestra ayuda para revisar la siguiente macro.

Lo que querría que hiciese dicha macro es copiar un rango del libro activo y me lo vaya guardando y numerando en los archivos que indico,
me vaya bajando 16 filas, con la misma dimensión de rango cada vez. Ya lo he probado, pero sólo me lo ejecuto para a=1.

Me gustaría que me indicáseis dónde está el error para que me lo ejecute hasta el valor que le vaya indicando (en este caso 50)

Muchas gracias por la ayuda


Sub COPIAR_PEGAR()

Application.ScreenUpdating = False

Dim a&, n&

n = 0
a = 1

For a = 1 To 50

Dim miRango As Range

Set miRango = Range("C1:AA14")

miRango.Offset(n, 0).Select

Selection.Copy

Workbooks.Open Filename:="C:\Documents and Settings\Administrador\Mis documentos\MIO\PLANTILLA PARA FORMATEAR.xlsm"

Sheets("FORMATO COMBINACIONES").Select

Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.Run "'PLANTILLA PARA FORMATEAR.xlsm'!TOTAL"
ActiveWorkbook.SaveAs "C:\Documents and Settings\Administrador\Mis documentos\MIO\ARCHIVOS A FORMATEAR\" & "ARCHIVO " & a & ".xlsm"
ActiveWorkbook.Close

n = n + 16
a = a + 1

Next a

Application.ScreenUpdating = True
End sub

moctezuma48

Masculino Cantidad de envíos : 43
Edad : 47
Ciudad - Pais : ESPAÑA
Version de Excel : 2007
Fecha de inscripción : 29/06/2011

Volver arriba Ir abajo

Solucionar problema en ejecucion de Macro

Mensaje por argenismontiel@hotmail.co el Vie Mayo 18, 2012 11:37 pm

ayuda para solucionar error 1004 en ejecucion de macro con la siguiente instruccion: ubicarse al final de la base de asientos Range("B5000"). Select Selection.End(x1UP) .Select Selection.Offset(1, -1) .Select

argenismontiel@hotmail.co

Masculino Cantidad de envíos : 1
Edad : 62
Ciudad - Pais : San Carlos-Venezuela
Version de Excel : 2003
Fecha de inscripción : 18/05/2012

Volver arriba Ir abajo

Re: Ayuda para revisión de macro

Mensaje por moctezuma48 el Lun Mayo 21, 2012 7:08 am

Gracias por la ayuda pero ya a está solucionado

moctezuma48

Masculino Cantidad de envíos : 43
Edad : 47
Ciudad - Pais : ESPAÑA
Version de Excel : 2007
Fecha de inscripción : 29/06/2011

Volver arriba Ir abajo

Re: Ayuda para revisión de macro

Mensaje por Contenido patrocinado Hoy a las 11:24 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.