- Katılım
- 28 Ocak 2019
- Mesajlar
- 250
- En iyi yanıt
- 0
- Puanları
- 18
- Yaş
- 44
- Konum
- Ankara
- Ad Soyad
- Ufuk İNCE
- Office Vers.
- Office 2019 Professional
Aşağıdaki macrom çok aşırı şekilde yavaş neden olabilir arkadaşlar?
Sub PDFYAP()
Dim yol As String, yil As Integer, ay As String, gun As String
yol = "\\DS1\ortak\DT\KİŞİŞEL KLASÖRLER\Uİ\GÜNLÜK GÖNDERİLECEK MAİLLER\"
yil = Year(Date)
ay = Month(Date)
gun = ActiveSheet.Name
If Len(ay) < 2 Then ay = 0 & ay
ActiveSheet.Range("A1:Q164").ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityMinimum, OpenAfterPublish:=True, fileName:=yol & "TR - " & yil & "-" & ay & "-" & gun & ".pdf"
End Sub
Sub PDFYAP()
Dim yol As String, yil As Integer, ay As String, gun As String
yol = "\\DS1\ortak\DT\KİŞİŞEL KLASÖRLER\Uİ\GÜNLÜK GÖNDERİLECEK MAİLLER\"
yil = Year(Date)
ay = Month(Date)
gun = ActiveSheet.Name
If Len(ay) < 2 Then ay = 0 & ay
ActiveSheet.Range("A1:Q164").ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityMinimum, OpenAfterPublish:=True, fileName:=yol & "TR - " & yil & "-" & ay & "-" & gun & ".pdf"
End Sub