[Yardım]  Excel Yedek Alırken Şekilleri Silmek

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Excel Yedek Alırken Şekilleri Silmek

İleti#1)  erseldemirel2 » 12 Ağu 2019 21:23

Arkadaşlar; aşağıdaki yöntemle çok başarılı olarak sayfanın yedeğini alıyorum. Ancak DENEME sayfamda butonlar var. Bunların kaydedilmesini istemiyorum. Yedek alırken butonların silinmesi gerekiyor? Tabiki orjinal dosyamda hasar oluşmamalı.Butonlar durmalı.

Sub autokaydet()

Sheets("DENEME").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs filename:=ThisWorkbook.path & "\YEDEK\" & Format(Date, "dd mmmm yyyy") & " " & Hour(Now) & "." & Minute(Now) & "." & Second(Now) & " " & ".xlsx"
ActiveWorkbook.Close

End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 563
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Excel Yedek Alırken Şekilleri Silmek

İleti#2)  Feyzullah » 13 Ağu 2019 00:08

Kod: Tümünü seç
Sub autokaydet()
Sheets("DENEME").Copy
Application
.DisplayAlerts = False
ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\YEDEK\" & Format(Date, "dd mmmm yyyy") & " " & Hour(Now) & "." & Minute(Now) & "." & Second(Now) & " " & ".xlsx"
Sheets("
DENEME").Shapes.SelectAll
Selection.Delete
ActiveWorkbook.Close
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 756
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: Excel Yedek Alırken Şekilleri Silmek

İleti#3)  erseldemirel2 » 13 Ağu 2019 10:34

Feyzullah yazdı:
Kod: Tümünü seç
Sub autokaydet()
Sheets("DENEME").Copy
Application
.DisplayAlerts = False
ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\YEDEK\" & Format(Date, "dd mmmm yyyy") & " " & Hour(Now) & "." & Minute(Now) & "." & Second(Now) & " " & ".xlsx"
Sheets("
DENEME").Shapes.SelectAll
Selection.Delete
ActiveWorkbook.Close
End Sub


:?
Denedim ama başarılı olamadım. Deneme.rar dosyasında excel var. Sizde kontrol edebilirmisiniz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 563
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Excel Yedek Alırken Şekilleri Silmek

İleti#4)  Feyzullah » 14 Ağu 2019 00:29

Kod: Tümünü seç
Sub autoyedek()
Sheets("DENEME").Copy
Application
.DisplayAlerts = False
ActiveSheet
.Shapes.SelectAll
Selection
.Delete
ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.path & "\YEDEK\" & "DENEME " & ".xlsx"
ActiveWorkbook.Close
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 756
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Excel Yedek Alırken Şekilleri Silmek

İleti#5)  erseldemirel2 » 14 Ağu 2019 10:13

Feyzullah yazdı:
Kod: Tümünü seç
Sub autoyedek()
Sheets("DENEME").Copy
Application
.DisplayAlerts = False
ActiveSheet
.Shapes.SelectAll
Selection
.Delete
ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.path & "\YEDEK\" & "DENEME " & ".xlsx"
ActiveWorkbook.Close
End Sub



Yukarı taşıyınca çalıştı Teşekkürler
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 563
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Aureliane ve 0 misafir

Bumerang - Yazarkafe