Macro en bucle

[perezreina]

Buenas tardes...ésto si que es un reto, llevo semanas dandome cabezazos contra el monitor, supongo pq seré muy torpe. a ver quien me puede ayudar. He creado una macro que introduce unos numeros de cartera en una ficha q desps me guarda en pdf.. el codigo es asi...

Range("C1:E1").Select

ActiveCell.FormulaR1C1 = "NÚMERO CARTERA"

Range("C2").Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Documents and Settings\USUARIO\Desktop\pdf\NOMBRE ARCHIVO 00.pdf", Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

...ésto se repetiria para cada numero y archivo por lo que es muy tedisoso.

la ficha me da datos en función del numero de cartera introducida, por lo que la idea de la macro es ejecutarla y que me de todas esas fichas en pdf.

Como son muchos numeros de cartera he intentado hacer un bucle con el cual yo le doy una columna con los numeros de cartera que tiene q ir metiendo uno a uno y vaya guardando los pdfs y estoy muy perdido... alquien sabe como se puede hacer?????? porfavorrr

mi intento....

Dim x As Integer, i As Integer

Dim codigo As Range

Sheets("CARTERA").Select

With ActiveSheet

For Each codigo In Worksheets("CARTERA").Range("A4:A23")

Range("C1").Select

ActiveCell.FormulaR1C1 = "object"

Range("C2").Select

ChDir "C:\Documents and Settings\xe34412\Desktop\pdf"

For i = 1 To 23

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Documents and Settings\xe34412\Desktop\pdf\("").pdf", Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Next i

Next codigo

End With

End Sub

AYUDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

[Antoni]

Sube un archivo de prueba, tal como indican las normas del foro, y si alguien se interesa por tu tema te contestará.