copiar datos de una hoja y abrir y guardar en pdf
Publicado por Jaime (6 intervenciones) el 01/12/2017 18:29:48
amigos solicitando su apoyo para poder realizar macro
Estoy haciendo una macro q copie un numero me lo pase a un formato, guarde en una carpeta en formato pdf, vuelva a copiar el numero que sigue lo copie nuevamente lo pegue y guarde en carpeta y asi sucesivamente,
el problema es q lo hace solo con 10 registros lo que quiero hacer es que lo haga con todos los registros que tenga la hoja hasta no encontrar en la linea los registros y que sea mas corta hacer ciclos
Estoy haciendo una macro q copie un numero me lo pase a un formato, guarde en una carpeta en formato pdf, vuelva a copiar el numero que sigue lo copie nuevamente lo pegue y guarde en carpeta y asi sucesivamente,
el problema es q lo hace solo con 10 registros lo que quiero hacer es que lo haga con todos los registros que tenga la hoja hasta no encontrar en la linea los registros y que sea mas corta hacer ciclos
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Macro1()
'
' Macro1 Macro
'
'
Selection.CopySheets("FORMA7").Select
Range("O15").Select
ActiveSheet.PasteApplication.CutCopyMode = False
Calculate
ChDir "D:\Datos_Perfil\98007183\Desktop\GUARDA FORMA 7"ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Datos_Perfil\98007183\Desktop\GUARDA FORMA 7\1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("RESUMEN").Select
Range("A3").Select
Selection.CopySheets("FORMA7").Select
ActiveSheet.PasteApplication.CutCopyMode = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Datos_Perfil\98007183\Desktop\GUARDA FORMA 7\2.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.WindowState = xlNormal
ActiveSheet.Buttons.Add(1255.5, 232.5, 99.75, 81.75).Select
Selection.OnAction = "Macro1"
Range("Z17").Select
End Sub
Valora esta pregunta
0