Pdf kaydetme sorunu

[Rowan]

Merhabalar excellden çok anlamıyorum, hele ki makro kısmından hiç zamanında bir teklif formu hazırlatmıştım değerli üyelere onun içerisinde pdf kaydet ürün arama vesaire de bulunuyordu şimdi tekrar kullanmam lüzum etti ama pdf kaydet olayı sadece baktığım da teklif sayfasına yapılan işlemleri kaydediyor aktif kopyalanmış diğer sayfaları pdf olarak kaydetmiyor. Yol= Sheets ("Teklif") olarak düzenlenmiş ama ben bunu aktif olarak hazırladığım sayfanında pdf e dönüştürülmesini nasıl sağlayabilirim. Teşekkürler.

 

[Rowan]

Sub Düğme10_Tıklat()
UserForm1.Show
End Sub
Sub pdf_kaydet()
If [B5] = "" Then
MsgBox ("B5 hücresi boş devam edilemez")
Exit Sub
End If
Set shsayfa = Sheets("Teklif")
yol = ActiveWorkbook.Path & "\" & [B5]
shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Kodu paylaşmamışım kusura bakmayın.

 

[Korhan Ayhan]

Set shsayfa = Sheets("Teklif")

Üstteki satırı aşağıdaki gibi değiştirirseniz aktif sayfada işlem yapacaktır.

Set shsayfa = ActiveSheet

 

[Rowan]

Çok teşekkür ederim, peki ben excell ile alakalı temel bilgileri nasıl öğrenirim ben bi el mouseda bi el klavyede excell kullanıyorum, millet klavyeden bütün derdini çözüyor kısa yollar vesaireler, satırları uzatmalar vesaire kapsamlı bir paylaşım mevcut mudur forumda acaba.

 

[Korhan Ayhan]

Elbette mevcut.. Forumun dersane bölümü bulunuyor. Fakat bu bölümlere erişim için Altın Üyelik gerekiyor.

Ayrıca nette arama yaparak kendinizde bu temel bilgileri anlatan videolara erişebilirsiniz.

 

[Rowan]

Teşekkürler korhan bey, eve geçtiğim de detaylıca araştıracağım bir de küçük bir sorunum daha var ne denediysem beceremedim, kaydetme klasörünü hangi işlemi yaparak değiştirebilirim?

 

[Korhan Ayhan]

Kalın fontlu bölüm kaydedilecek klasörü belirtiyor. Bu haliyle excel dosyanızın bulunduğu klasöre kayıt edilir.

yol = ActiveWorkbook.Path & "\" & [B5]

Aşağıdaki gibi klasörü dilediğiniz gibi değiştirebilirsiniz.

yol = "C:\Admin\Desktop\" & [B5]