Hola amigos del foro ante buenas tardes con todos disculpen espero se encuentren bien aquí escribiendo esperando puedan ayudarme tengo 02 problemas al ejecutar unas macro.

1.- En la Hoja RUC cuando ejecuto la macro "GENERA ARCHIVOS ZIP" no me sale el resultado deseado que son los datos de la columna "E"

2.- En la Hoja VALIDA CPE cuando ejecuto la macro "GENERA TXT" no me sale con la cantidad deseada que son datos de 100 en 100 y me esta arrojando diferentes cantidades a estos.

adjunto mi archivo esperando me haya dejado entender gracias.

adjunto el archivo pero me dice que es pesado, adjunto un link gracias.

https://we.tl/t-EqX8pdb74a

 

amigo @sasuke007, tu macro RUC la modifique un poquito, realmente el problema principal es que estabas copiando una fila vacía

Sub Ruc()

    ' Macro5 Macro
    '
    Dim NombreArchivo, rutaArchivo As String
    '
    
    Sheets("Ruc").Select
    
    xx = Range("H1").Value
    
    Range("E1").FormulaR1C1 = "=RC[-4]&""|"""
    Range("E1").Copy
    a = WorksheetFunction.CountA(Range("A:A"))
    Range("E1:E" & a).PasteSpecial xlPasteFormulas
    Range("E1:E" & a).Copy
    Range("E1:E" & a).PasteSpecial xlPasteValues
    MkDir "D:\Macro\Txt\Origen\"
    
    b = 1
    e = 1
    y = Int(a / xx)
    
    If a Mod xx > 0 Then y = y + 1
    
    For j = 1 To y
    
        rutaArchivo = "D:\Macro\Txt\Origen\" & "RUC" & j & ".txt"
        
        Open (rutaArchivo) For Output As 1
        
        For e = 1 To xx
            Print #1, Range("E" & b)
            b = b + 1
            If b > a Then Exit For
        Next e
        
        Close #1
    

        '-------------------------------------------------
        'Call ZIPEADO(b)
        Call Zip_All_Files_in_Folder
        Kill "D:\Macro\Txt\Origen\" & "RUC" & e & ".txt"
        '-------------------------------------------------

    Next j
    
    Sheets("Inicio").Select
    
   ' RmDir "D:\Macro\Txt\Origen\"
    

End Sub

 

Hace 37 minutos , bigpetroman dijo:

amigo @sasuke007, tu macro RUC la modifique un poquito, realmente el problema principal es que estabas copiando una fila vacía

Sub Ruc()

    ' Macro5 Macro
    '
    Dim NombreArchivo, rutaArchivo As String
    '
    
    Sheets("Ruc").Select
    
    xx = Range("H1").Value
    
    Range("E1").FormulaR1C1 = "=RC[-4]&""|"""
    Range("E1").Copy
    a = WorksheetFunction.CountA(Range("A:A"))
    Range("E1:E" & a).PasteSpecial xlPasteFormulas
    Range("E1:E" & a).Copy
    Range("E1:E" & a).PasteSpecial xlPasteValues
    MkDir "D:\Macro\Txt\Origen\"
    
    b = 1
    e = 1
    y = Int(a / xx)
    
    If a Mod xx > 0 Then y = y + 1
    
    For j = 1 To y
    
        rutaArchivo = "D:\Macro\Txt\Origen\" & "RUC" & j & ".txt"
        
        Open (rutaArchivo) For Output As 1
        
        For e = 1 To xx
            Print #1, Range("E" & b)
            b = b + 1
            If b > a Then Exit For
        Next e
        
        Close #1
    

        '-------------------------------------------------
        'Call ZIPEADO(b)
        Call Zip_All_Files_in_Folder
        Kill "D:\Macro\Txt\Origen\" & "RUC" & e & ".txt"
        '-------------------------------------------------

    Next j
    
    Sheets("Inicio").Select
    
   ' RmDir "D:\Macro\Txt\Origen\"
    

End Sub

 

Hola Amigo @bigpetroman copie el código me sale lo siguiente.

no se amigo, eso es tuyo, eso estaba en tu código, solo modifique la parte que NO te copiaba los datos al txt, esa es una llamada a una macro que no esta en tu archivo

Hola @bigpetroman si amigo ya lo corregí gracias por tu  ayuda.