[anestaki]

Καλημέρα σε όλους

Με τον παρακάτω κώδικα εμφανίζετε ένα msgbox όταν το κελί έχει κάποια τιμή μεγαλύτερη του μηδέν(0), αλλά και όταν μετά επιλέξεις κάποιο άλλο.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
i = Range("j26")
If i > 0 Then
Msgbox " χχχχχχχχχχχχχ", vbInformation, "Stella Hellas info"
End If
End Sub
Μπορεί να εμφανίζετε μόνο για το συγκεκριμένο κελί.
Φιλικά Γιώργος