excel sayfalarını ayrı ayrı kaydetme

[işsiz123]

merhabalar arkadaşlar aşağıdaki kodu kullandım ancak sayfadaki buton ve formüllerde kopyalanan sayfada görünüyor. butonların kopyalanan sayfalarda buton görünmesini istemiyorum belirli bir aralığı seçebilir miyiz

Private Sub CommandButton1_Click()
Sheets("FATURA").Copy
Application.DisplayAlerts = False
Set Dosya = CreateObject("Scripting.FileSystemObject")
yol = "C:\Users\asus\Desktop\" & Workbooks(1).Sheets("FATURA").Range("l2")
 If Not Dosya.FolderExists(yol) Then
        Dosya.CreateFolder (yol)
    End If
ActiveWorkbook.SaveAs yol & "\" & Workbooks(1).Sheets("FATURA").Range("l1")
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

arkadaşlar bu aşagıdaki kod güzel ancak sayfa ve klasör ismini yukardaki gibi vermiyor

Sub KOD_PDF()
yol = ThisWorkbook.Path
isim = Format(Range("I5").Value, "ddmmyyyy hhmm")

Sheets("FATURA").Select
ActiveSheet.Range("C2:J61").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True

End Sub

aşağıdaki kod ile klasör açıp ve o klasör içine kayıt yaptırırsak iyi olur

 

[Ömer BARAN]

Merhaba.

İkinci koddaki / (normal kesme) işaretini \ (ters kesme) olarak değiştirerek deneyin.
.

 

[işsiz123]

Ömer baran arkadaşım teşekkürler lakin istediğim bu değil
1 kodta istediğimiz bölgeyi almıyoruz sayfayı komple kopyalıyor istediğim ("a1:c75")aralığı masaüstüne pdf veya word belgesi olarak kopyalasın
2 kod ise istedigimiz bölgeyi seçe biliyoruz ancak masaüstune 1 kodta oldugu gibi ("l2") adında klasör açıp sayfayı ("l1") adında kaydetmiyor

Yani yarısı 1 kodta yarısı 2 kodta

 

[TEGCreative]

Private Sub CommandButton1_Click()
Set Dosya = CreateObject("Scripting.FileSystemObject")
yol = "C:\Users\asus\Desktop\" & Workbooks(1).Sheets("FATURA").Range("l2")
 If Not Dosya.FolderExists(yol) Then
        Dosya.CreateFolder (yol)
    End If
ActiveSheet.Range("C2:J61").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & Workbooks(1).Sheets("FATURA").Range("l1") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

Merhaba ; bu şekilde dener misiniz

 

[işsiz123]

teşekkürle bu iyi ancak işlem yaptığım excel dosyası kaydedilsinmi diye uyarı geliyor

 

[TEGCreative]

Private Sub CommandButton1_Click()
Set Dosya = CreateObject("Scripting.FileSystemObject")
yol = "C:\Users\asus\Desktop\" & Workbooks(1).Sheets("FATURA").Range("l2")
 If Not Dosya.FolderExists(yol) Then
        Dosya.CreateFolder (yol)
    End If
ActiveSheet.Range("C2:J61").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & Workbooks(1).Sheets("FATURA").Range("l1") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
[COLOR="red"]ActiveWorkbook.Save[/COLOR]
ActiveWorkbook.Close
Application.DisplayAlerts = [COLOR="Red"]False[/COLOR]
End Sub

Koddaki kırmızı olan yerleri düzelterek işleminizi istediğiniz hale getirebilirsiniz.

 

[işsiz123]

TEŞEKKÜRLE TEGCreative

 

[Ömer BARAN]

Merhaba.

Kodlarınızı denemedim ancak; Application.DisplayAlerts = False
kod satırını kullandıktan sonra tekrar True olarak ayar değiştirmenizi öneririm.
Belgeyle işiniz bittiğinde diğer belgelerinizde de bu ayar kalıcı olur.

 

[TEGCreative]

Sayın Ömer BARAN ; uyarınız için teşekkürler. Denedim ve dediğiniz gibi oldu. Application kodların sadece bu makroya has bir şekilde bunları uyguladığını düşünürdüm. Sayenizde birşey daha öğrenmiş oldum. Teşekkürler.

 

[Ömer BARAN]

Estağfurullah, iyi günler dilerim.