Skip to main content

Excel'de bir hücre belirli bir değerden büyük veya küçükse nasıl mesaj kutusu açılır?

Author: Xiaoyang Last Modified: 2025-06-10

Bir hücre başka bir hücreden büyük veya küçükse, Excel'de uyarı vermek için bir mesaj kutusu açmam gerekiyor. Bu sorunu Excel'de nasıl çözebilirim? Bu makalede, bununla başa çıkmak için bazı kodlar hakkında konuşacağım.

Bir sütundaki hücre değeri başka bir hücreden büyük veya küçükse mesaj kutusu açma

Bir hücredeki hücre değeri başka bir hücreden büyük veya küçükse mesaj kutusu açma


Bir sütundaki hücre değeri başka bir hücreden büyük veya küçükse mesaj kutusu açma

Diyelim ki A1 hücresinde belirli bir sayı olan 100 var, şimdi D sütununa girilen sayı A1 hücresindeki 100'den büyük olduğunda, kullanıcıyı uyarmak için bir mesaj kutusu açılmalıdır.

Burada, aşağıdaki VBA kodu size bunu tamamlamanıza yardımcı olabilir, lütfen aşağıdaki adımları izleyin:

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'yi 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 bir hücreden büyük veya küçükse mesaj kutusu açma

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, Sheet1 kullanmak istediğiniz çalışma sayfasıdır; A1 , karşılaştırmak istediğiniz hücre değeridir; D:D, A1 hücresiyle karşılaştırmak istediğiniz sütundur.

click View Code from right click menu arrow right paste the vba code into the module

3. Ardından, kod penceresini kaydedip kapatın, artık 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:

pop up message box if cell greatern or less than a specific value



Bir hücredeki hücre değeri başka bir hücreden büyük veya küçükse mesaj kutusu açma

Bir hücre değeri başka bir hücreden büyük veya küçük olduğunda bir mesaj kutusu açılırsa, 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üle'yi 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 hücre değeri başka bir hücreden büyük veya küçükse mesaj kutusu açma

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ırmak istediğiniz iki hücredir.

3. Ardından, kod penceresini kaydedip kapatın, A1 hücresindeki değerden 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:

pop up message box if cell greatern or less than another cell value


Daha fazla ilgili mesaj kutusu açma makalesi:

  • Excel Dosyasını Açarken Mesaj Kutusu Oluştur
  • Belirli bir durumda, belirli bir çalışma kitabını açtığınızda size ne yapmanız gerektiğini hatırlatmak için her zaman bir mesaj kutusunun açılmasını isteyebilirsiniz, bu da günlük işlerinizde en önemli şeyi yapmayı hatırlamanıza yardımcı olabilir. Ve bu makalede, bir Excel dosyasını açarken mesaj kutusu oluşturmayı anlatacağım.
  • Excel'de Belirli Bir Aralık İçinde Hücre Değeri Değişirse Mesaj Kutusu Açma
  • Bazen belirli bir çalışma sayfasındaki belirli bir aralıktaki değişiklikleri kendinize hatırlatmanız gerekebilir. Bu nedenle, belirli bir aralıkta hücre değeri değiştiğinde size yardımcı olacak bir mesaj kutusu açılması faydalı olacaktır. Bu makalede, bunu VBA yöntemiyle nasıl başarabileceğinizi öğrenebilirsiniz.
  • Excel'de Makro Çalıştırmadan Önce Evet-Hayır Mesaj Kutusu Oluşturun
  • Excel'de doğrudan F5 tuşuna basarak veya Microsoft Visual Basic for Applications penceresinde Çalıştır düğmesine tıklayarak bir makroyu tetikleyebilirsiniz. Ancak bazen, kullanıcıya makronun çalıştırılmasını isteyip istemediklerini soran bir mesaj kutusu oluşturmak isteyebilirsiniz. Eğer evet derlerse, kod çalışmaya devam eder, hayır derlerse, kodun çalışmasını durdurur. Bu makalede, Excel'de bir makro çalıştırmadan önce evet-hayır mesaj kutusu oluşturma konusunda konuşacağım.
  • Belirli Bir Süre Sonra Mesaj Kutusunu Otomatik Kapatmak İçin Mesaj Kutusu Zamanlayıcı Oluşturun
  • Excel çalışma kitabı kullanırken sık sık VBA betiği kullanarak sorunları çözmek için kullanabilirsiniz. Ve betik çalışırken mesaj kutuları açılabilir. Bazı durumlarda, belirli mesaj kutularının belirli bir süre sonra otomatik olarak kapanmasını değil, manuel olarak kapatılmasını tercih edebilirsiniz. Bu makalede, Excel'de belirli bir süre sonra mesaj kutusunu otomatik olarak kapatmak için bir mesaj kutusu zamanlayıcı oluşturma yöntemini göstereceğiz.

  • Süper Formül Çubuğu (birden fazla satır metin ve formülü kolayca düzenleme); Okuma Düzeni (büyük miktarda hücreyi kolayca okuma ve düzenleme); Filtrelenmiş Alana Yapıştır...
  • Hücreleri/Satırları/Sütunları Birleştir ve Veriyi Koru; Hücre İçeriğini Böl; Yinelenen Satırları Birleştir ve Topla/Ortalama... Yinelenen Hücreleri Önle; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz Satırları Seç; Boş Satırları Seç (tüm hücreler boş); Çok sayıda Çalışma Kitabında Süper Bul ve Yaklaşık Bul; Rastgele Seçim...
  • Formül referansını değiştirmeden Birden Fazla Hücreyi Tam Kopyala; Çoklu Sayfalara Otomatik Referans Oluştur; Madde İşaretleri, Onay Kutuları Ekle ve daha fazlası...
  • Formülleri, Aralıkları, Grafikleri ve Resimleri Favorilere Ekle ve Hızlıca Ekle; Hücreleri şifreyle şifrele; Posta Listesi oluştur ve e-postalar gönder...
  • Metni Çıkart, Metin Ekle, Belirli bir konumda karakterleri kaldır, Boşlukları Kaldır; Veri Sayfası İstatistikleri oluştur ve yazdır; Hücre İçeriği ve Yorumlar arasında dönüştür...
  • Süper Filtre (filtre düzenlerini kaydet ve diğer sayfalara uygula); Ay/Hafta/Gün, sıklık ve daha fazlasına göre Gelişmiş Sıralama; Kalın, italik vb. özel filtreleme...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştir; Anahtar sütunlara dayalı Tabloları Birleştir; Veriyi Birden Çok Sayfaya Böl; xls, xlsx ve PDF'leri Toplu Dönüştür...
  • Hafta numarası, haftanın günü vb. göre PivotTable Gruplama... Kilitsiz, kilitli hücreleri farklı renklerle göster; Formül/İsim içeren hücreleri vurgula...
kte tab 201905
  • Word, Excel, PowerPoint'de sekmeli düzenleme ve okumayı etkinleştir.
  • Aynı pencerede yeni sekmelerde birden fazla belge açın ve oluşturun, yeni pencereler yerine.
  • Üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından sizi kurtarır!
officetab bottom