Hücreye veri girince macro çalıştırma !

[mebmab]

sn.Korhan Hocam

İşlem A1 hücresi için tıkır tıkır çalışıyor.Fakat

Private Sub Worksheet_Calculate()
If Range("A1:A100") = 123 Then Makro1

yaptığımda çalışmıyor. Keramet nerde?

Sn.Korhan hocam
Bu sefer buldum
If Range("A1") = 123 Then Makro1
If Range("A2") = 123 Then Makro1
If Range("A3") = 123 Then Makro1
şeklinde oluyor.

 

[Korhan Ayhan]

Selamlar,

Sn. rekkezum,

Ekteki örnek dosyayı incelermisiniz. F9 tuşuna bastıkça hesaplamalar değişecektir. Değerlere göre makrolar çalışacaktır.

F9 tuşunun hesaplama tetikleme olayı bulunmaktadır. Hücrelerde kullandığım formül bu tuşla değer değiştirdiği için gözlemlemeniz kolay olacaktır.

 

[ysrfth]

Diyelim ki G2 hücresine herhangi bir değer girip entere bastığımda macro1 çalışsın istiyorum. Bunu nasıl yaparız?

 

[simyaci64]

Korhan hocam çok faydalı oldu verdiğin bilgiler, saol.
Şunu nasıl ekleriz acaba a1 123 ise macro1 i,
a2 124 ise macro2 yi,
a3 125 ise macro3 ü.... çalıştır.a10 kadar devam edecek. Bu arada a1 den a10 a kadar Sn. mebmab hocamın dediği gibi içlerinde formul olacak, basit formüller (toplama).

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Target.Value = 1 Then Call Makro1
If Target.Value = 2 Then Call Makro2
If Target.Value = 3 Then Call Makro3
End Sub