Visual Basic para Aplicaciones - copiar datos de una hoja y abrir y guardar en pdf

Life is soft - evento anual de software empresarial
   
Vista:

copiar datos de una hoja y abrir y guardar en pdf

Publicado por Jaime (1 intervención) 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

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.Copy
    Sheets("FORMA7").Select
    Range("O15").Select
    ActiveSheet.Paste
    Application.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.Copy
    Sheets("FORMA7").Select
    ActiveSheet.Paste
    Application.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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder