makro çalıştıran makro sorunu

[yunka]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [K3,K28]) Is Nothing Then Exit Sub
Call Dağıt
End Sub

BU kodu sayfanın modülüne yazdım k3 ve k8 hücrelri vebden 2 dk bir
yenileme yapıyor.benim sorunum bu kod dağıt makrasunu sadece
dosyayı ilk açtığımda veriler yenilendiğinde tetikliyor daha sonra çalışmıyor
eksik olan nedir saygılar...

 

[hamitcan]

Worksheet_Change olayı, sayfada bir değişiklik olduğunda çalışır.

 

[yunka]

peki çözüm nedir hamit bey yardım edermisiniz.

 

[hamitcan]

Ne yapmak istediğinizi anlamadım, biraz daha açar mısınız ?

 

[yunka]

Makro çalıştıran makro sorunu

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$19" <> Empty Then Tetikle
Call Dağıt
End Sub

Sub Tetikle()
MsgBox "suzunkopru"
End Sub
Hamit bey web den 5 dakikada güncellenen sayfanın kod modülüne yukardaki
kodu yazdım bu kod diğer kodu(dağıt) tetikliyor bu şekilde işimi gördüm
fakat esas istedğim şuydu sadece değişen hücrelrde bu olay olsun istiyordum
olmadı sayfanın hangi hücresi değişse hepsini tetikliyor.
örneğin
yunus 5
ahmet 8
olsun şimdiki durumda yunusun 5 i değiştiğinde kod ikisini bir tetikliyor
istedğim sadece yunus 5 tetiklenmesiydi
saygılar.

 

[hamitcan]

Ama verdiğiniz örnekte K19 hücresi değiştiğinde makro çalışıyor. Aralık verecekseniz, intersect fonksiyonunu, tek bir hücre kullanacaksanız, yukarıdaki gibi hücre adresini referans gösterin.