Makro eğer kullanimi hakkında

[dilaverdemirer]

Aşağıdaki kodda t1 ve w1 hücrelerinde formül var. Normalde hücrelere elle sayı girince makro doğru mesajı veriyor ancak formül sonucuna göre, hücreler eşit olsa bile doğru sonucu vermiyor. Yardımlarınız için şimdiden teşekkür ederim.

Private Sub Worksheet_Change (Byval Target As Excel.Range)
If (Sayfa4.Range("t1") = Sayfa4.Range("w1")) Then
MsgBox "aaaaaaa"
Else
MsgBox "xxxxxxxx"
End if
End Sub

 

[muygun]

Merhaba;

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Sheets("Sayfa4").Range("t1") = Sheets("Sayfa4").Range("w1") Then
MsgBox "aaaaaaa"
Else
MsgBox "xxxxxxxx"
End If
End Sub

Şeklinde deneyin.
İyi çalışmalar.

 

[dilaverdemirer]

Merhaba;

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Sheets("Sayfa4").Range("t1") = Sheets("Sayfa4").Range("w1") Then
MsgBox "aaaaaaa"
Else
MsgBox "xxxxxxxx"
End If
End Sub

Şeklinde deneyin.
İyi çalışmalar.

Hocam denedim bunu ama yine aynı şekilde sonuç veriyor.
T1 ve w1 hücrelerine değer girersem çalışıyor. Ancak t1 ve w1 hücrelerinde formül olduğu için formül sonucu eşit olsa bile kabul etmiyor. Yanlış döndürüyor o yüzden sonucu.

 

[YUSUF44]

Bu kod WorksheetChange olayına bağlanmış yani sayfada herhangi bir değişiklik olduğunda çalışmak üzere ayarlanmış. Devreye girmesi için o sayfada bir değişiklik yapmanız gerekir. Formül sonucu olan değişiklikler kodu çalıştırmaz maalesef. Eğer o formüllü hücrelerdeki değişikliğin dikkate alınmasını istiyorsanız formüldeki değişikliğe sebep olan hücreler neredeyse o sayfanın değişiklik olayına bağlamanız gerekir.

 

[ÖmerFaruk]

T1 ve W1 hücrelerine farklı iki formül girdim. Bu kodu çalıştırdım ve doğru şekilde işlem yapıyor.
Sizin bu hücrelerdeki formülünüz nedir?

Edit: Yusuf bey gerekli açıklamayı yapmış, ben bu mesajı yazarken.

 

[dilaverdemirer]

Teşekkür ediyorum sayın yusuf bey ve nextlevel..
Dediğiniz gibi formülü aynı sayfaya başvuru yacak şekilde değiştirince çalışıyor. İlginiz için teşekkür ediyorum.