[VBA] Εμφάνιση msgbox μόνο όταν το κελί είναι ενεργό

[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
Μπορεί να εμφανίζετε μόνο για το συγκεκριμένο κελί.
Φιλικά Γιώργος

[Tasos]

Καλησπέρα!

Γιώργο δοκίμασε:

Private Sub Worksheet_Change(ByVal Target As Range)
' If Target.CountLarge = 1 Then ' Για φύλλα με 1048576 γραμμές
    If Target.Count = 1 Then
        If Target.Address = "$J$26" Then
            ' Application.Undo    ' Αναίρεση της αλλαγής αν χρειαστεί
            MsgBox " χχχχχχχχχχχχχ", vbInformation, "Stella Hellas info"
        End If
    End If
End Sub

Ίσως αντιμετωπίσεις πρόβλημα αν το συγκεκριμένο κελί ($J$26) ανήκει σε κάποια συγχώνευση κελιών.

Τάσος

[anestaki]

Καλησπέρα Τάσο
Καμία σχέση με αυτό που έκανα εγώ.
Στο τέλος θα διαβάσω των κώδικα που θα πάει, κάθε φόρα μαθαίνω κάτι καινούργιο.
Σε ευχαριστώ για ακόμη μια φορά.
Φιλικά Γιώργος