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...
...é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"
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