Makroyu pasife çekme

[Astalavista58]

Merhabalar günaydın herkese. Koşullu biçimlendirme ile "satır()=hücre("sat")" formülü ile satır renklendirmesi yapıyorum ayrıca kodu tetiklemesi için de aşağıdaki formülü kullanıyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Application.CutCopyMode = False Then

Application.Calculate

End If

End Sub

Benim yapmak istediğim bu makroyu nasıl pasif hale getirebilirim.

 

[Korhan Ayhan]

Merhaba,

Amacınız makroyu istediğiniz zaman durdurup çalıştırmak ise Boolean bir değer tanımlayıp kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Kontrol = True Then Exit Sub
    If Application.CutCopyMode = False Then
        Application.Calculate
    End If
End Sub

Boş bir modüle aşağıdaki kodu uygulayın.

Public Kontrol As Boolean

Sub Durdur()
    Kontrol = Not Kontrol
End Sub

Sonra sayfanıza bir buton ekleyip DURDUR makrosunu atayın. Butona ilk tıkladığınızda makronun çalışması duracaktır. Buton tekrar tıklarsanız makronuz tekrar devreye girecektir.

 

[uzmanamele]

Merhaba

Çok kullanışlı olmaz.
Sadece sayfayı incelerken işe yarar.
Veri girişinde Kendiliğinden tetiklendiği için yine satır renklenir.

Bunun yerine Kod ile koşullu biçimlendirme formülü ekleyip silerseniz daha iyi olur.

Public k As Byte

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
k = 1
Else: k = 0
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If k = 0 Then Exit Sub
If Application.CutCopyMode = False Then
Application.Calculate
End If
End Sub

 

[Astalavista58]

Merhaba,

Amacınız makroyu istediğiniz zaman durdurup çalıştırmak ise Boolean bir değer tanımlayıp kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Kontrol = True Then Exit Sub
    If Application.CutCopyMode = False Then
        Application.Calculate
    End If
End Sub

Boş bir modüle aşağıdaki kodu uygulayın.

Public Kontrol As Boolean

Sub Durdur()
    Kontrol = Not Kontrol
End Sub

Sonra sayfanıza bir buton ekleyip DURDUR makrosunu atayın. Butona ilk tıkladığınızda makronun çalışması duracaktır. Buton tekrar tıklarsanız makronuz tekrar devreye girecektir.

Çok teşekkür ederim Korhan hocam elinize sağlık

 

[Astalavista58]

Merhaba

Çok kullanışlı olmaz.
Sadece sayfayı incelerken işe yarar.
Veri girişinde Kendiliğinden tetiklendiği için yine satır renklenir.

Bunun yerine Kod ile koşullu biçimlendirme formülü ekleyip silerseniz daha iyi olur.

Public k As Byte

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
k = 1
Else: k = 0
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If k = 0 Then Exit Sub
If Application.CutCopyMode = False Then
Application.Calculate
End If
End Sub

Çok teşekkür ediyorum hocam elinize sağlık

 

[Necdet]

Ben de şöyle bir mantık uyguluyorum bu gibi durumlarda.
Bir hücre örneğin A1 hücresi boş ise makro çalışır, dolu ise makro çalışmaz.
kodların başına if [A1] <> "" then exit sub eklendiğinde yeterli oluyor.

 

[Astalavista58]

Ben de şöyle bir mantık uyguluyorum bu gibi durumlarda.
Bir hücre örneğin A1 hücresi boş ise makro çalışır, dolu ise makro çalışmaz.
kodların başına if [A1] <> "" then exit sub eklendiğinde yeterli oluyor.

Aslında mantığı çok basitmiş, çok teşekkür ederim Necdet hocam

 

[1mak1mak]

Bende sağ klik Aktif Pasif şeklinde kullanıyorum örnek ekte istenirse F11-F12 şeklide aynı dosyada.