A1 hücre değeri 5 olduğunda makronun tetiklenmesi

[Tevfik_Kursun]

Merhaba Arkadaşlar,
A1 hücre değeri 5 olduğunda makronun tetiklenmesi nasıl yapılır?
Saygılarımla

 

[tukayf]

If Range("A1").Value = 5 Then

yapılacak işlem ya da çalışacak kodu yazınız hocam devamında.

 

[Tevfik_Kursun]

Sayın Tukayf,
İlginize teşekkür ederim. Hem sizin dediğinizi, hem de sayfa altına
Private Sub WorksheetChange(ByVal Target As Range)
If [A1] = "" Then Exit Sub
If [A1] = WorksheetFunction.Max(Range("A2:A1000")) Then Call Makro1
End Sub
yazdım ama makro çalışmadı.
Saygılarımla

 

[tukayf]

Private Sub Worksheet_Change(ByVal Target As Range)
  
    If Not Intersect(Target, Range("A1")) Is Nothing Then
      
        If Range("A1").Value = 5 Then
            MsgBox "Makro çalıştı çünkü A1 hücresinin değeri 5!"
        Else
            MsgBox "A1 hücresindeki değer 5 değil. Makro çalıştırılmadı."
        End If
    End If
End Sub

bi denermisiniz mesaj kutusu çalışıyor mu

 

[Tevfik_Kursun]

Hata verdi

 

[tukayf]

Hocam o hata kodda bi hata olduğundan değil. Yeni bir dosya açıp dener misiniz.

 

[necati]

Merhaba, eğer A1'deki değer manuel girilecekse tamam fakat formül sonucu oluşan bir değer ise Worksheet_Calculate() olayı kullanılmalı.

 

[Tevfik_Kursun]

İlgilerinize çok teşekkür ederim. Çözüldü tamam.
Saygılarımla