command button ile sayfa kaydetmek

[volume01]

merhaba,

ekte göreceğiniz üzere, user forma girilen ad, soyad bilgileri, kaydet butonuna bastığınızda çalışma sayfasındaki sayfa1'de belirlenen hücrelere işleniyor.

yapmak istediğim

1- "kaydet" butonuna basıldığında, bu sayfa1'in "farklı kaydedilerek"
mesela masaüstündeki bir klasöre otomatik olarak kaydedilmesi. ( pdf olarak kaydedilebilirse harika olur)

2- kaydet butonuna basılıp sayfa1 farklı kaydedildikten sonra, userform vasıtasıyla yazdırılan hücrelerin silinmesi, ki böylece bir sonraki farklı kaydetme için önceden girilmiş bilgi kalmasın.

çok teşekkür ederim. saygılarımla.

not: forumda arattım ama doğru anahtar kelimeleri kullanamadım sanırım.

 

[İhsan Tank]

merhaba,

ekte göreceğiniz üzere, user forma girilen ad, soyad bilgileri, kaydet butonuna bastığınızda çalışma sayfasındaki sayfa1'de belirlenen hücrelere işleniyor.

yapmak istediğim

1- "kaydet" butonuna basıldığında, bu sayfa1'in "farklı kaydedilerek"
mesela masaüstündeki bir klasöre otomatik olarak kaydedilmesi. ( pdf olarak kaydedilebilirse harika olur)

2- kaydet butonuna basılıp sayfa1 farklı kaydedildikten sonra, userform vasıtasıyla yazdırılan hücrelerin silinmesi, ki böylece bir sonraki farklı kaydetme için önceden girilmiş bilgi kalmasın.

çok teşekkür ederim. saygılarımla.

not: forumda arattım ama doğru anahtar kelimeleri kullanamadım sanırım.

Merhaba
Kaydet Butonundaki kodu bununla değiştirin.

Private Sub CommandButton1_Click()
Dim ts, trabzonspor, kaplan
Worksheets("Sheet1").Range("B2") = TextBox1.Text
Worksheets("Sheet1").Range("B3") = TextBox2.Text
Set ts = CreateObject("Wscript.Shell")
trabzonspor = ts.specialfolders.Item("Desktop")
kaplan = InputBox("Dosya Adı", "Dosya Adı Girişi")
If kaplan = Empty Then Exit Sub
Sheets("Sheet1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
trabzonspor & "\" & kaplan & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Sheets("Sheet1").Range("B2:B3").ClearContents
TextBox1=""
Textbox2=""
End Sub

 

[volume01]

hocam çok teşekkürler,
Sheets("Sheet1").Range("B2:B3").ClearContents bu kısımda olduğu gibi userformdaki verileri de temizlemek istersem;

userform1.textbox1.clearcontents ??? ne olmalıdır?

 

[İhsan Tank]

hocam çok teşekkürler,
Sheets("Sheet1").Range("B2:B3").ClearContents bu kısımda olduğu gibi userformdaki verileri de temizlemek istersem;

userform1.textbox1.clearcontents ??? ne olmalıdır?

Merhaba
Üstteki kodu güncelledim.

 

[volume01]

anladım, tekrar çok teşekkürler.