hücredeki değer değiştiğinde "Yenile" makrosu çalıştırma hk;

[orange4609]

Günaydın,
Aşağıdaki yenile kodunu h1 hücresindeki sayı değiştiğinde yenilemesi yapılabilir mi?

Tşkler.
iyi günler.


Sub Yenile()
ActiveWorkbook.RefreshAll
End Sub

 

[Korhan Ayhan]

Merhaba,

Bu tarz sonuç vermesini istediğiniz kodlarınızı sayfa olaylarına yazmanız olumlu sonuç verecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveWorkbook.RefreshAll
End Sub

 

[dEdE]

Merhaba,
Aşağıdaki kodu ilgili sayfanın kod bölümüne yapıştırmanız yeterli olacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [H1]) Is Nothing Then Exit Sub
    Call Yenile
End Sub

Ancak ayrı bir procedure kullanmak yerine yine ilgili sayfanın kod bölümüne aşağıdaki kodu yapıştırırsanız da olur. Bu doğrudan işlem yapacağı için daha iyi olur.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [H1]) Is Nothing Then Exit Sub
    ActiveWorkbook.RefreshAll
End Sub

Hoşçakalın.

 

[orange4609]

çok çok tşkler.
elinize sağlık.

sağlıklı güzel günler dilerim.

 

[orange4609]

Değerli hocalarım küçük bir hata yapmışım.tüm sayfaları yenilemesi gerekiyordu."tümünü yenile"olarak değiştirebilirmiyiz?

Tşkler.
iyi günler.
syglar,

 

[Korhan Ayhan]

Merhaba,

"ActiveWorkbook" ifadesi kullanıldığı için zaten tüm kitabı yenilemesi gerekiyor. Önerilen kodlar sizde nasıl tepki veriyor.

 

[orange4609]

Korhan Bey,
ilginiz için teşekkür ederim.
kusura bakmayın pivot yapılan farklı saydan veri alıyordu pivotu yenilemiyordu sanırım o yüzden ,formülü pivotsuz olarak düzelttim,sorun giderildi.

tekrar çok çok tşkler.
iyi günler dilerim.
syglar,