Çözüldü Makro Kodunu Aktif Etmek

cavanoos

Altın Üye
Katılım
17 Aralık 2008
Mesajlar
723
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
11-01-2026
Merhaba;

Çalışma sayfasının kod kısmında, yazılı kodum var.
Kodu pasif etmek istediğim zaman başına tırnak işareti koyuyorum, çalışacağım zamanda tırnak işaretini kaldırıyorum.
Bu işlem kod ile yapılabilir mi ?
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Yeni bir kod daha yazılıp kısayol tuşu atayabilir kısayol tuşuna bastığınızda diğer kodun çalışmasını yada çalışmamasını sağlayabilirsiniz.

Örnek: Aşağıdaki kodu yeni bir modül açıp kopyalayın.

Kod:
Dim Etkin_Pasif As Boolean

Sub Kod_Etkin_Pasif()
    Etkin_Pasif = Not Etkin_Pasif
End Sub


Sub Test()
    If Etkin_Pasif Then
        MsgBox "Kod etkin."
    Else
        MsgBox "Kod pasif."
    End If
End Sub
Excel dosyası Geliştirici sekmesi / Makrolar tıklatın.
Açılan formdaki listeden "Kod_Etkin_Pasif" seçip "Seçenekler" tıklatın.
Açılan penceredeki Kısayol Tuşu kısmına bir harf yazıpTamamı ve İptali tıklatın.

Şimdi excel dosyanız aktifken kısayol tuşlarına CTRL ile birlikte basın.

Her kısayol tuşuna bastığınızda Test kodundaki mesaj değişecektir.
 

cavanoos

Altın Üye
Katılım
17 Aralık 2008
Mesajlar
723
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
11-01-2026
Olmadı, örnek dosya hazırladım. Bakabilir misiniz ?
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Modıl1'e aşağıdaki kodu kopyalayıp yukarıda tarif ettiğim şekilde kısayol tuşu atayın.

Kod:
Public Etkin_Pasif As Boolean

Sub Kod_Etkin_Pasif()
    Etkin_Pasif = Not Etkin_Pasif
End Sub
Aşağıdaki kodu da Sayfa1'in kod kısmına kopyalayın.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C2:C" & Range("C1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row)) Is Nothing And Etkin_Pasif Then
        Range("D" & Target.Row) = WorksheetFunction.Max(Range("D2:D" & Range("C1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row)) + 1
    End If
End Sub
 

cavanoos

Altın Üye
Katılım
17 Aralık 2008
Mesajlar
723
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
11-01-2026
Olmadı Muzaffer Bey
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,250
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Alternatif..

Ekteki dosyada makroyu durdurmak istediğinizde F11 tuşuna basabilirsiniz. Tekrar aktif etmek istediğinizde F12 tuşuna basabilirsiniz.
 

Ekli dosyalar

cavanoos

Altın Üye
Katılım
17 Aralık 2008
Mesajlar
723
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
11-01-2026
Teşekkür ederim, sorunum çözülmüştür.
 
Üst