Hozzászólás: [Resolved] Értékváltozás figyelése

Sziasztok!

Delila megoldása is jó lehet, de:

Ha számítás eredményének a változását szeretnétek érzékelni, akkor ezt szokás tenni:
1. A fájl megnyitásakor egy globális változóba lementjük a képlet aktuális eredményét
2. A Worksheet_Calculate eseményben pedig megnézzük, hogy most mi van a cellában (target), és az megegyezik-e az induláskorval.

Ha nem egyezik, akkor változás volt. Ezt kiírhatjuk, de a mi fontos, hogy az új értéket megint tegyük el a globális változónkba.

Tehát a modul tetején van egy

Dim regi_ertek

A munkafüzet megnyitási eseményéhez tartozik a figyelendő cella értékének lementése

Private Sub Workbook_Open()
    regi_ertek = Sheet1.Range(figyelt cella).Value
End Sub

Végül a munkalap kalkuláció eseményéhez tesszük az összehasonlítást és nem egyezés esetén a lementést.

Private Sub Worksheet_Calculate()
    If Range(figyelt_cella).Value <> regi_ertek Then
        MsgBox "Változás!"
        regi_ertek = Range(figyelt_cella).Value
    End If
End Sub

Imre