- Katılım
- 24 Haziran 2017
- Mesajlar
- 749
- Excel Vers. ve Dili
- türkçe
- Altın Üyelik Bitiş Tarihi
- 13-01-2024
Dim ds, cs As Object
Dim gds
Dim dosya As String
Dim yıl As Integer
Set cs = CreateObject("Scripting.FileSystemObject")
Set ds = CreateObject("WScript.Shell")
gds = ds.SpecialFolders("Desktop")
If cs.FolderExists(gds & "\KASA YEDEKLERİ") = False Then cs.CreateFolder gds & "\" & "KASA YEDEKLERİ"
If cs.FolderExists(gds & "\KASA YEDEKLERİ\") = False Then cs.CreateFolder gds & "\KASA YEDEKLERİ\"
If IsDate(ActiveSheet.Name) = True Then
yıl = Year(ActiveSheet.Name)
If cs.FolderExists(gds & "\KASA YEDEKLERİ\" & yıl) = False Then cs.CreateFolder gds & "\KASA YEDEKLERİ\" & yıl
Else
MsgBox "AKTİF SAYFA ADINDA SORUN VAR"
Exit Sub
End If
dosya = gds & "\KASA YEDEKLERİ\" & yıl & "\" & ActiveSheet.Name & ".pdf"
If cs.FileExists(dosya) = True Then Kill dosya
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
gds & "\KASA YEDEKLERİ\" & yıl & "\" & ActiveSheet.Name & ".pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, _
OpenAfterPublish:=True
MsgBox "Bilgiler Kaydedildi", vbInformation, "ANAKASA"
Yukarıdaki kodla butona tıklayınca masaüstüne KASA YEDEKLERİ adında klasör açıyor. ve o klasör içerisinde de hangi yıldaysak o yıla ait bir dosya açıyor ve aktif sekme adında bütün sayfaları pdf olarak kaydediyor.
SORU: aktif sayfa adında değilde "AO1" hücresinde hangi değer varsa o isimde ve sadece "A1;AO71" aralığını pdf olarak kaydetmesini istiyorum
Dim gds
Dim dosya As String
Dim yıl As Integer
Set cs = CreateObject("Scripting.FileSystemObject")
Set ds = CreateObject("WScript.Shell")
gds = ds.SpecialFolders("Desktop")
If cs.FolderExists(gds & "\KASA YEDEKLERİ") = False Then cs.CreateFolder gds & "\" & "KASA YEDEKLERİ"
If cs.FolderExists(gds & "\KASA YEDEKLERİ\") = False Then cs.CreateFolder gds & "\KASA YEDEKLERİ\"
If IsDate(ActiveSheet.Name) = True Then
yıl = Year(ActiveSheet.Name)
If cs.FolderExists(gds & "\KASA YEDEKLERİ\" & yıl) = False Then cs.CreateFolder gds & "\KASA YEDEKLERİ\" & yıl
Else
MsgBox "AKTİF SAYFA ADINDA SORUN VAR"
Exit Sub
End If
dosya = gds & "\KASA YEDEKLERİ\" & yıl & "\" & ActiveSheet.Name & ".pdf"
If cs.FileExists(dosya) = True Then Kill dosya
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
gds & "\KASA YEDEKLERİ\" & yıl & "\" & ActiveSheet.Name & ".pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, _
OpenAfterPublish:=True
MsgBox "Bilgiler Kaydedildi", vbInformation, "ANAKASA"
Yukarıdaki kodla butona tıklayınca masaüstüne KASA YEDEKLERİ adında klasör açıyor. ve o klasör içerisinde de hangi yıldaysak o yıla ait bir dosya açıyor ve aktif sekme adında bütün sayfaları pdf olarak kaydediyor.
SORU: aktif sayfa adında değilde "AO1" hücresinde hangi değer varsa o isimde ve sadece "A1;AO71" aralığını pdf olarak kaydetmesini istiyorum