Ayuda a modificar un comando
Publicado por Ariel (1 intervención) el 28/09/2018 17:29:18
Necesito de su ayuda a modificar la seccion subrayada: esta macro me ayuda a crear varios archivos en pdf pero quiero mandar cada archivo a diferentes carpetas, me podrian ayudar
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Option Explicit
Public folder_name As String
Public Entity_Short_Name_column, Tab_Name_column, Invoice_Date_column, Invoice_number_column, Description_column, Short_Description_column, Amount_excl_VAT_column, VAT_amount_column, Total_Amount_column, start_row_number, currency_column As Long
Public invoice_summary_sheetname As String
Public prefix
Sub Create_PDF()
Dim Name As String
Dim Template, Template2, CompanyName As String
Dim folder As String
Dim Mapping As String
Dim InvNumber As String
Dim i As Long
'Stop
'On Error Resume Next
Application.ScreenUpdating = False
folder = Range("O12").Value & "\" <---------------
prefix = Trim(Range("C5").Value)
Mapping = ActiveSheet.Name
Range("N12").Select
i = 0Do
Select Case ActiveCell.ValueCase 0 'do nothing
Case Else
Selection.Offset(0, -6).Select
Select Case ActiveCell.ValueCase "" 'do nothing
Case Else
InvNumber = ActiveCell.Value
Template = ActiveCell.Offset(0, -7).Value
CompanyName = ActiveCell.Offset(0, -4).Value
Name = prefix & InvNumber & "_" & Template
Template2 = "InvTemplate"
Sheets(Mapping).Cells(1, 22) = Template
Sheets(Template2).Activate
Sheets(Template2).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
folder & Name & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets(Mapping).Select
Range("N" & 11 + i).Select
'Selection.Offset(0, 12).Select
End Select
End Select
Selection.Offset(1, 0).Select
i = i + 1
Loop Until ActiveCell.Value = ""
Application.ScreenUpdating = True
End Sub
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("2103502").Select
Sheets("2103502").Name = "2103503"
Range("N32").Select
End Sub
Valora esta pregunta
0
