ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[kanakan52]

Merhaba arkadaşlar,
Userform üzerinde,
OptionButton1 seçildiğinde "C:\Users\xxxxx\Desktop\DENEME\x\" klasörüne,
OptionButton2 seçildiğinde "C:\Users\xxxxx\Desktop\DENEME\Y\" klasörüne,
OptionButton3 seçildiğinde "C:\Users\xxxxx\Desktop\DENEME\z\" klasörüne,

a1:d30 aralığını .pdf olarak kaydetmek istiyorum.
yardımlarınızı rica ediyorum...

[Ali ÖZ]

Deneyin.

Kod: Tümünü seç

Private Sub CommandButton1_Click()
   If OptionButton1.Value = True Then kayityeri = "C:\Users\xxxxx\Desktop\DENEME\x\"
   If OptionButton2.Value = True Then kayityeri = "C:\Users\xxxxx\Desktop\DENEME\y\"
   If OptionButton3.Value = True Then kayityeri = "C:\Users\xxxxx\Desktop\DENEME\z\"
   isim = "Dosya-" & Format(Now, "yyyy-mm-dd-hh-mm")
   Sheets("Sayfa1").Range("A1:D30").ExportAsFixedFormat Type:=xlTypePDF, Filename:=kayityeri _
   & "\" & isim & ".pdf", Quality:=xlQualityStandard, _
   IncludeDocProperties:=True, IgnorePrintAreas:=False
End Sub

[kanakan52]

Üstat kodları uyarladım gayet güzel çalışıyor.. Yalnız bir durum daha çıktı ortaya. Aynı Userform üzerine CheckBox ekledim , kullanıcı aynı zamanda bunu da seçerse CheckBox' a aynı mantıkla tanımladığım "yedek" klasörüne de aynı sayfanın yedeğini alacak.. Kodlar burada sadece 1 tane seçim varken işe yarıyor. Yani hem Optionbutton hem de Checkbox seçili iken sadece tekbir klasöre kayıt yapıyor. Nasıl revize edebilirim acaba..