excel kopyala butonları kopyalama

sevensuleyman

Altın Üye
Katılım
9 Kasım 2012
Mesajlar
193
Excel Vers. ve Dili
office 2010
Altın Üyelik Bitiş Tarihi
08-12-2027
Merhaba ; excell sayfasında kullandıgım butonlar mevcut. bu kod ile excell sayfasını farklıexcell olarak kaydediyorum fakat Butonlar ile koppyalamaktadır. butonları dahil etmeden kodu nasıl düzenlemem gerekir. yardımcı olursanız sevinirim.


Kod:
    Sheets("Güncelleme Bilgileri").Copy
    Set s2 = ActiveSheet
    
    Application.Calculation = xlCalculationManual
    s2.Range("A2:AG" & s2.Rows.Count).Copy
    s2.Range("A2").PasteSpecial xlPasteValues
    
    Son = s2.Cells(s2.Rows.Count, 2).End(3).Row + 1
    s2.Range("A" & Son & ":A" & Rows.Count).EntireRow.Delete xlUp
    s2.Range("A1").Select
    
    
    
    'Sheets("Güncelleme Bilgileri").Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "DENEME" & ".xlsx", 51
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Örnek dosyanızı ekleyin. Neyin kopyalanacağını, neyin kopyalanmayacağını görmemiz gerekir.
 
Üst