Excel'de bir hücre belirli bir değerden büyük veya küçük olduğunda nasıl mesaj kutusu görüntülenir?

Bir hücre, başka bir hücreden daha büyük ya da küçük olduğunda Excel’de dikkatimi çekecek bir mesaj kutusu görüntülemem gerekiyor. Bu sorunu Excel’de nasıl çözebilirim? Bu makalede, bu durumu yönetmek için kullanabileceğiniz bazı kodlardan bahsedeceğim.

Bir sütundaki hücre değeri başka bir hücreden büyük veya küçük olduğunda mesaj kutusu çıkarın

Bir hücredeki değer başka bir hücreden büyük veya küçük olduğunda mesaj kutusu çıkarın

---

Bir sütundaki hücre değeri başka bir hücreden büyük veya küçük olduğunda mesaj kutusu çıkarın

Diyelim ki A1 hücresinde 100 sayısı bulunuyor. D sütununa girilen değer, A1 hücresindeki 100 sayısından büyük olduğunda, kullanıcıyı uyarmak amacıyla bir mesaj kutusu açılmalıdır.

Aşağıdaki VBA kodu, bunu tamamlamanızda size yardımcı olabilir. Lütfen aşağıdaki adımları uygulayın:

1. Kullanmak istediğiniz çalışma sayfasına gidin.

2. Sayfa sekmesine sağ tıklayın ve bağlam menüsünden Kodu Görüntüle seçeneğini seçin. Açılan Microsoft Visual Basic for Applications penceresinde, aşağıdaki kodu boş Modül penceresine kopyalayıp yapıştırın. Ekran görüntüsüne bakın:

VBA kodu: Bir sütundaki hücre değeri başka bir hücreyle karşılaştırıldığında mesaj kutusu çıkarır

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

Not: Yukarıdaki kodda, Sayfa1 kullanmak istediğiniz çalışma sayfasıdır; A1, karşılaştırma yapılacak hücre değeridir; D:D, A1 hücresiyle karşılaştırılacak sütundur.

3. Ardından, Kaydet ve Kapat düğmesine tıklayarak kod penceresini kapatın. Bundan sonra D sütununa 100’den büyük bir sayı girdiğinizde bir mesaj kutusu açılacaktır. Ekran görüntüsüne bakın:

---

---

Bir hücredeki değer başka bir hücreden büyük veya küçük olduğunda mesaj kutusu çıkarın

Bir hücre değeri başka bir hücreden büyük veya küçük olduğunda mesaj kutusunun açılmasını istiyorsanız, lütfen aşağıdaki kodu uygulayın:

1. Kullanmak istediğiniz çalışma sayfasına gidin.

2. Sayfa sekmesine sağ tıklayın ve bağlam menüsünden Kodu Görüntüleseçeneğini seçin. Açılan Microsoft Visual Basic for Applicationspenceresinde, aşağıdaki kodu boş Modül penceresine kopyalayıp yapıştırın. Ekran görüntüsüne bakın:

VBA kodu: Bir hücre değeri başka bir hücreden büyük veya küçük olduğunda mesaj kutusu çıkarır

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

Not: Yukarıdaki kodda, A1 ve D1 karşılaştırılacak iki hücredir.

3. Ardından, kod penceresini Kaydet ve KapatA1 hücresindeki değerden daha küçük bir değer girdiğinizde, aşağıdaki ekran görüntüsünde gösterildiği gibi bir mesaj kutusu açılacaktır:

---

Daha fazla ilgili açılır mesaj kutusu makalesi: