sheet faklı kaydetme

[halisbatmaz]

arkadaşlar herkese iyi akşamlar.
şimdi benim sorunum ekte göndermiş olduğum dosyada verilerimin olduğu sheet i farklı kaydetmek istiyorum. formda mevcut bi düğme var farklı kaydedebiliyor ancak sayfanın tamamını kaydediyor ben bunu istemiyorum sadece düğmenin olduğu sheeti farklı kaydetsin benim için çok önemli çünkü formu çok geliştirdim ama bu sheet olayı canımı sıktı ben bu formu sipariş formu olarak kullanıyorum

 

[leumruk]

Merhaba,
Kodunuzu aşağıdaki ile değiştirin.

Private Sub CommandButton1_Click()
Dim ad As String, yol As String
ad = InputBox("Dosya adı belirleyiniz!", "FARKLI KAYDET")
yol = "D:\SATIŞ RAPORU\"
If ad = "" Then MsgBox "Kullanmasını Hala Öğrenemedin mi Kardeşim :D !!!", vbCritical, "UYARI": Exit Sub
Application.ScreenUpdating = False
Sheets("Teklif").Copy
ActiveWorkbook.SaveCopyAs yol & ad & ".xls"
ActiveWorkbook.Close 0
Application.ScreenUpdating = True
MsgBox "İşlem tamam.", vbInformation, "DURUM"
End Sub

 

[halisbatmaz]

çok teşekkürler arkadaşım oldu ellerine sağlık hemde çok güzel oldu