Hücre değişimine mesaj box

[tabiatbaba]

A sütunundaki her satır için ayrı ayrı tanımlanmış formüller var. formüllere bağlı olarak mesela A1 hücresi değişirse "A1 hücresi değişti"; A2 hücresi değişirse "A2 hücresi değişti" şeklinde mesaj box çıkmasını istiyorum. Yardımcı olabilir misiniz?

 

[hamitcan]

Değiştirdiğiniz hücreler hangileri ?

 

[acar6783]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error GoTo hata
Dim DEĞİŞEN
      DEĞİŞEN = Selection.Address(False, False)
      MsgBox DEĞİŞEN & "            DEĞİŞTİ"

hata:

End Sub

yukarıdaki kodu sayfaya uygulayınız
ekteki dosyayı inceleyebilirsiniz

 

[tabiatbaba]

İlginiz için teşekkür ederim. Ancak;
A1=B1+C1 şeklinde formülümüz var. Bu formül A2=B2+C2, A3=..... şeklinde her satırda devam ediyor. B ya da C değiştiği zaman A değişse bile sonuçta hücrenin içeriği değil sadece yansıması değiştiği için mesaj box çıkmıyor.
Birde A pozitifse bu mesaj box çıksın istiyorum.

 

[acar6783]

If Intersect(Target, [COLOR="Red"][A:C])[/COLOR] Is Nothing Then Exit Sub

OLARAK DEĞİŞTİRİN

 

[acar6783]

Bu şekilde olmaz yanlış anladım kodda hangi hücrede değişiklik var ise onu gösteriyor
daha başka bir kod yazılması gerek ...

 

[acar6783]

Private Sub Worksheet_Change(ByVal Target As Range)


    If Intersect(Target, Range("A:a")) Is Nothing Then Exit Sub
    MsgBox Target & "     DEĞİŞTİ "

End Sub

bunu bir deneseniz

 

[acar6783]

sadece değişen hücredeki veriyi gösteriyor yalnız...

 

[Korhan Ayhan]

Merhaba,

Bu işlemi aşağıdaki gibi yapmanız daha mantıklı olacaktır.

A sütunundaki formüllü verileri bir alana (mesela D sütununa) değer olarak yapıştırın.
Sonra hesaplamanızı yaptırın. Değişen verilerin kontrolü için (E sütununa) aşağıdaki formülü uygulayın.

=A1=D1

Bu formül eşleşen satırlar için DOĞRU değeri üretecektir. YANLIŞ olan hücreler değişmiş anlamına gelecektir.

 

[tabiatbaba]

Elma ve Armut Sütunlarındaki değişimlere göre ELMA101 ve ARMUT101 sütunları değişiyor. ELMA101 ve ARMUT101 sütunları değişince ve değer pozitifse mesaj box çıksın istiyorum...

 

[Korhan Ayhan]

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp dener misiniz?

B:O Sütunlarındaki hücrelere veri girdiğinizde kod çalışır.

Option Explicit
Dim deger1, deger2

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B8:O31")) Is Nothing Then Exit Sub
    If Cells(Target.Row, "P") > 0 Or Cells(Target.Row, "R") > 0 Then
    If Cells(Target.Row, "P") <> deger1 Or Cells(Target.Row, "R") <> deger2 Then
        MsgBox "Koşul gerçekleşti...", vbCritical
    End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    deger1 = Cells(Target.Row, "P")
    deger2 = Cells(Target.Row, "R")
End Sub

 

[tabiatbaba]

İlginize teşekkür ederim. Dolaylı da olsa yardımcı oldu.