Jump to content
Javierbar

Macro Repetir Accion con BUCLES

Recommended Posts

Buen día Amigos, Agradezco su conocimiento para crear este proceso.

Tengo este código (algo complejo pero voy aprendiendo), necesito que se repita de acuerdo a la cantidad de cuentas que tengo en una columna

Estas son algunas cuentas: Están en la columna A-B

CUENTA DESCRIPCION
410204105 INTERESES VISA
410204115 INTERESES MASTERD CARD
410210106 INTERES MORA FACTURACIO
410210107 INTERES MORA FACTURACIO
410211105 T.C.CONSUMO - VISA
410211115 T.C.CONSUMO - MASTERD C

Codigo:

    Workbooks.Open Filename:= _
        "D:\25. PROCESO NARANJA\06 MEDIOS MAGNETICOS\FORMATOS\410204105.xlsx"
    Windows("Movimiento Cuentas 2017.xlsm").Activate
    Sheets("MMT").Select
    Cells.Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$AB$500000").AutoFilter Field:=20, Criteria1:= _
        "410204105"
    Range("A500000").Select
    Selection.End(xlUp).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Cells(ActiveCell.Row, 21)).Select
    Selection.Copy
    Windows("410204105.xlsx").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
Dim MiArchivo As String
MiArchivo = 410204105
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"D:\25. PROCESO NARANJA\06 MEDIOS MAGNETICOS\FORMATOS\CUENTAS OK\" & MiArchivo, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWindow.Close

Como ven, estoy tratando de que filtre por cada cuenta, y a su ves abra el archivo que tiene ese numero de cuenta, pegue esa información y lo guarde en una ruta.

Son 90 Cuentas, si asigno este código a cada cuenta no correría el proceso y quedaría demasiado largo. Es posible hacerlo con un Bucle?.

 

Muchas Gracias.

Share this post


Link to post
Share on other sites

Busca, investiga y aplica un bucle o ciclo

For each ' Por cada uno

Esta línea tendrás que comenzar a adaptar :  "D:\25. PROCESO NARANJA\06 MEDIOS MAGNETICOS\FORMATOS\" & Valor de la Celda o Nombre de la variable & ".xlsx"

Nos vas comentando.

Share this post


Link to post
Share on other sites

Esto pudiera servirte

	Dim rCelda As Range
    
    For Each rCelda In Range("A2:A91")
        'AQUI VA TODO TU CODIGO
        'Para abrir el archivo seria asi
        Workbooks.Open Filename:= _
        "D:\25. PROCESO NARANJA\06 MEDIOS MAGNETICOS\FORMATOS\" & rCelda.Value & ".xlsx"
        
        'y mas abajo donde activas el archivo
        'Windows("410204105.xlsx").Activate
        'seria asi
        Windows(rCelda.Value & ".xlsx").Activate
        
    
    Next

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5