Butona Bağlı Olmayan Makro

[1Al2Ver]

Merhaba,

Aşağıdaki makro, bir buton yardımı ile çalışıyor,

Sub Kontrol_Et()
Dim Hücre As Range
For Each Hücre In [b2:k10]
If Hücre.Value = "" Then Hücre.Value = "Ceza Yok"
Next
End Sub


Buton olmadan, hücreye/hücrelere veri girildiğinde çalışması için gereken düzenlemeyi yada yeni kodu rica ediyorum,

Teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin. B2:B10 arasına veri giriş yada hücre tetiklemesiyle kodlar çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim Hücre As Range
 
    If Intersect(Target, Range("B2:B10")) Is Nothing Then Exit Sub
 
    For Each Hücre In Range("B2:K10")
        If Hücre.Value = "" Then Hücre.Value = "Ceza Yok"
    Next
 
End Sub

 

[1Al2Ver]

Merhaba,

Bu şekilde deneyin. B2:B10 arasına veri giriş yada hücre tetiklemesiyle kodlar çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim Hücre As Range
 
    If Intersect(Target, Range("B2:B10")) Is Nothing Then Exit Sub
 
    For Each Hücre In Range("B2:K10")
        If Hücre.Value = "" Then Hücre.Value = "Ceza Yok"
    Next
 
End Sub

Ömer bey merhaba,

Teşekkür ederim,

Saygılarımla.

 

[tactless]

Hücredeki değeri listbox gibi seçmeli bir kutucuk ile yapınca algılamıyor değerin değiştiğini haliyle makroda çalışmıyor. Bu durumu nasıl çözebiliriz. Sayg.

* Listbox 'a makroyu atayınca düzeldi. Sayg.

 

[Ömer]

Merhaba,

Sorunuzu örnek dosya ekleyerek açıklar mısınız.

.