Commad button ile farklı kaydet

[qiqirdeq]

Merhaba,

Bir sayfanın üzerinde Command button ile farklı kaydet makrosu yaptım

Desktop un üstüne dosyayı istediğim gibi farklı kaydet yaptırıyorum

Fakat makrolar kaydolmazken Comman button sayfaya kaydoluyor onu kaydetmeden

nasıl yapabilirim teşekkürler.

Sub Makro2()
Application.DisplayAlerts = False

ActiveSheet.Copy
With ActiveWorkbook
ActiveSheet.Name = Range("D6")
.SaveAs Environ("USERPROFILE") & "\Desktop\" & ActiveSheet.Name & ".xlsx"
.Close

End With
MsgBox Environ("USERPROFILE") & "\Desktop\" & " konumuna kaydedildi.", vbInformation, ActiveSheet.Name
End Sub

 

[Korhan Ayhan]

Merhaba,

En kısa yolunu tarif edeyim.

Çalışmanıza bir sayfa ekleyin.
Commandbutonu bu sayfaya taşıyın.
Daha sonra kod içindeki ActiveSheet ifadelerini Sheets("Kopyalanacak Sayfa Adı") olarak düzeltin.

Kırmızı yere farklı kaydet yaptığınız sayfanızın adını yazın...

 

[qiqirdeq]

commad buttonu farklı kaydet derken kaybedemiyoruz demek mi oluyor bu

 

[Korhan Ayhan]

Elbette buton silinebilir. Ben en basit çözümü önerdim.

 

[Korhan Ayhan]

Aşağıdaki gibi kullanabilirsiniz.

Application.DisplayAlerts = False

ActiveSheet.Copy
[COLOR="Red"]ActiveSheet.Shapes("CommandButton1").Delete
[/COLOR]
With ActiveWorkbook
ActiveSheet.Name = Range("D6")
.SaveAs Environ("USERPROFILE") & "\Desktop\" & ActiveSheet.Name & ".xlsx"
.Close
End With
MsgBox Environ("USERPROFILE") & "\Desktop\" & " konumuna kaydedildi.", vbInformation, ActiveSheet.Name

 

[qiqirdeq]

run time error '-2147024809(80070057)':
belirtilen adlı öğe bulunamadı
hatası aldım
aşağıdaki gibi kendime düzenledim kodu

Sub Makro2()
Application.DisplayAlerts = False
ActiveSheet.Copy
ActiveSheet.Shapes("Button 19").Delete
With ActiveWorkbook
ActiveSheet.Name = Range("D6")
.SaveAs Environ("USERPROFILE") & "\Desktop\" & ActiveSheet.Name & ".xlsx"
.Close

End With
MsgBox Environ("USERPROFILE") & "\Desktop\" & " konumuna kaydedildi.", vbInformation, ActiveSheet.Name
End Sub

 

[Korhan Ayhan]

Ben kullandığınız butonun adını bilmediğim için kırmızı satırı örnek olarak yazmıştım.

 

[qiqirdeq]

ActiveSheet.Shapes("Button 19").Delete

bu şekilde düzelttiğim halde o hatayı alıyorum, kullandığın button 19

 

[Korhan Ayhan]

Dosyanızı ekleyin inceleyelim...

 

[qiqirdeq]

Dosyayı ekledim,

Buttona basınca masa üstüne farklı olarak kaydediyor, fakat

Ben Command buttonun kaydolmasını istemiyorum,

tşkler

 

[Korhan Ayhan]

Nesne isimlerini düzgün yazarsanız sorularınıza dah net cevaplar verebiliriz.

CommandButton diyorsunuz ama sadece Buton var sayfanızda... (İkisi farklı nesneler)

Aşağıdaki gibi deneyin.

ActiveSheet.Shapes("Düğme 1").Delete

 

[qiqirdeq]

Acemiliğimin kusuruna bakmayın, İstediğim gibi oldu Teşekkürler