excel kopyala butonları kopyalama

[sevensuleyman]

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.

    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]

Merhaba.
Örnek dosyanızı ekleyin. Neyin kopyalanacağını, neyin kopyalanmayacağını görmemiz gerekir.