Sub generarTXT()
    
    nombre_archivo = Range("G5").Value
    ruta = Range("G4").Value & "\" & nombre_archivo & ".txt"
    
    ultima_fila = Cells(Rows.Count, 4).End(xlUp).Row
    
    Open ruta For Output As #1
    
    For i = 3 To ultima_fila
        Print #1, Cells(i, 2).Value & " :::::: " & Cells(i, 3).Value & " ::::::: " & Cells(i, 4).Value
    Next
    
    Close #1
    
    MsgBox (" se convirtió correctamente !")

End Sub