hücreye bağlı makro

[şahins1]

İyi Günler Diliyorum,
D210 aralığındaki hücreler, içerisindeki formüle bağlı olarak değiştiğinde makronun çalışmasını istiyorum.(Hücre tıklanmayacak veya değerleri manuel değiştirilmeyecek. Worksheet_Activate seçeneği de hücrelerde döngüye neden olmakta)

Yardımlarınız için şimdiden teşekkür ediyorum

 

[parametre]

Dosya ekleyin ne yapmak istediginiz belirtin daha iyi sonuc alırsınız

 

[uzmanamele]

merhaba

örnek dosya eklerseniz daha net yanıt alabilirsiniz.
olsa-olsa yöntemiyle yapılan örneği inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:b1")) Is Nothing Then Exit Sub
If Sheets("sayfa2").Range("a1") < 10 Then
MsgBox "sayfa2 A1 hücre toplamı 10'dan KÜÇÜK!"
Else
MsgBox "sayfa2 A1 hücre toplamı 10'dan BÜYÜK!"
End If
End Sub

 

[şahins1]

Dosyanın aslı değilde basit bir örnekte anlatmak gerekirse ekteki dosyada D kolonundaki rakamlar A Kolonundaki rakamlara eklenmek istenilmektedir. Ancak asıl dosyada D kolonu A kolonuna eklendiğinde Döngüsel Başvuru hatası verdiğinden, D kolonundaki değeri B kolonuna kopyalayıp öyle eklemek istiyorum.

Şimdiden teşekkürler.

 

[uzmanamele]

merhaba
asıl dosyada ne yapmak istiyorsunuz?
o dosyayı ekleseniz belki daha pratik çözüm bulunabilir.

 

[şahins1]

Dosya ektedir. Asıl yapılmak istenilen şudur:
Dosyada "MaaşSöz" sayfasında "Vergi Matrahı" kolonundaki (AE)
formüle=YUVARLA((M7+N7)-(AJ7+AD7);2)
"Sendika Kesintisi" kolonu (AO) aşağıdaki şekilde eklenmek istenilmektedir.
=YUVARLA((M7+N7)-(AJ7+AD7+AO7);2)

bu değişim Döngüsel Başvuruya neden olmakta. Benim düşüncem de Vergi Matrahı kolonunun yanına Sendika Kesintisini sadece değeri ile kopyalayıp formüle ekletmek. Kopyalamanında AO kolonu her değiştiğinde makro ile olmasını istiyorum. (Elle değiştirildiğinde değil hücre formül hesaplaması sonucu kendisi değiştiğinde) Biraz uzun oldu.

İlgilenecek arkadaşlara şimdiden teşekkürler.

 

[şahins1]

dosyayı ekledim. çözüm üretecek arkadaşlara teşekkür ederim.