Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

macro ayuda

23/05/2013 - 09:15 por javo69 | Informe spam
cree este macro para guardar un excel como txt delimitado por tabulacion el tema es que tengo que filtrar la columna 27
por cada uno de los datos que contiene ese resultado es el que selecciono y luego guardo como txt independientes.
pero el macro solo genera uno
como lo programo para que siga consecutivamente asta que se acabe la información de la columna 27
el contenido de esta es numero de bolsa y va del 1 al 10000


Sub viña()
'
' viña Macro
'

'
ActiveSheet.Range("$A$1:$AG$288759").AutoFilter Field:=27, Criteria1:="1"
Range("A1:AG288759").Select
Range("AA6701").Activate
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ChDir "C:\Users\opdigital\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\opdigital\Desktop\bolsa 1.txt", _
FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close
End Sub
 

Preguntas similares