Skip to main content

Kutools for Office — Bir Paket. Beş Araç. Daha Fazla İş Yapın.

Excel'de hücre değeri “X” e eşitse uyarı kutusu nasıl açılır?

Author Siluvia Last modified

Belirli bir içerik ararken uyarı kutusunun açılması oldukça yardımcı olur. Örneğin, A1:C7 aralığında 50'ye eşit olan hücre değerini arıyorsunuz ve size bu hücre değerinin var olup olmadığını söyleyen bir uyarı kutusu açılmasını istiyorsunuz. Aşağıdaki iki yöntem size yardımcı olabilir.

VBA kodu ile hücre değeri “X” e eşitse uyarı kutusu açma
Kutools for Excel ile hücre değeri “X” e eşitse kolayca uyarı kutusu açın


VBA kodu ile hücre değeri “X” e eşitse uyarı kutusu açma

Aşağıdaki VBA kodu, belirli bir değerin belirtilen aralıkta olduğunda bir uyarı kutusu açmanıza yardımcı olabilir. Lütfen aşağıdaki adımları izleyin.

1. Belirtilen aralıktaki değerleri kontrol etmek istediğiniz çalışma sayfasında, sayfa sekmesi çubuğundaki sekme adına sağ tıklayın ve ardından sağ tıklama menüsünden Görünüm Kodu seçeneğini tıklayın. Ekran görüntüsüne bakın:

 click View Code from the right-clicking menu

2. Microsoft Visual Basic for Applications penceresinde, aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: hücre değeri “X” e eşitse uyarı kutusu açma

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

3. Microsoft Visual Basic for Applications penceresini kapatmak ve çalışma sayfasına geri dönmek için Alt + Q tuşlarına aynı anda basın.

Şimdi itibaren, A1:C7 aralığındaki hücre değerleri değiştirildiğinde ve “50” ye eşit bir hücre değeri olduğunda, aşağıdaki ekran görüntüsünde gösterildiği gibi bir uyarı kutusu alacaksınız.

Ayrıca, hücre değeri varsa sadece mesaj kutusunu açmak için aralığı seçebilirsiniz.

if cell value equals a specific value, a prompt box is appeared

Notlar:

1. Hücre değeri kriterlere uygun değilse, uyarı kutusu açılmaz.
2. Yukarıdaki kodda, hücre referansını ve değeri ihtiyaçlarınıza göre değiştirebilirsiniz.
3. Birden fazla sonuç olduğunda yalnızca bir eşleşen hücre referansı gösterebilir.

Kutools for Excel ile hücre değeri “X” e eşitse uyarı kutusu açma

Kutools for Excel'in Belirli Hücreleri Seç özelliği de bu sorunu çözmenize yardımcı olabilir. Lütfen aşağıdaki adımları izleyin.

Kutools for Excel, karmaşık görevleri basitleştirmek için 300'den fazla gelişmiş özellik sunar ve yaratıcılığı ve verimliliği artırır. Yapay zeka yetenekleriyle entegre olarak, Kutools görevleri hassas bir şekilde otomatikleştirir ve veri yönetimi işlerini kolaylaştırır. Kutools for Excel hakkında detaylı bilgi...  Ücretsiz deneme...

1. Aramak istediğiniz aralığı seçin, ardından Kutools > Seç > Belirli Hücreleri Seç tıklayın.

click Select Specific Cells feature of kutools

2. Belirli Hücreleri Seç iletişim kutusunda, Seçim Türü bölümünde Hücre seçeneğini seçin, ardından İlk Belirli Tür açılır listesinden Eşittir'i seçin ve sonraki metin kutusuna hücre değerini yazın ve son olarak Tamam düğmesine tıklayın.

set the criteria in the dialog box

Hücre değeri belirtilen aralıkta varsa, aşağıdaki uyarı kutusunu alacaksınız, Tamam düğmesine tıklayın, hücre seçilecektir.

If the cell value exists, a dialog box will pop out

Aksi takdirde, aşağıdaki ekran görüntüsünde gösterildiği gibi bir uyarı kutusu alacaksınız.

If the cell value does not exist,another dialog box will pop out

  Bu yardımcı programın ücretsiz deneme sürümünü (30-gün) kullanmak istiyorsanız, lütfen indirmek için tıklayın ve ardından yukarıdaki adımlara göre işlemi uygulamak için gidin.


İlgili makaleler:

En İyi Ofis Verimlilik Araçları

🤖 Kutools AI Asistanı: Veri analizinde devrim yaratın – Akıllı Yürütme | Kod Oluştur | Özel Formüller Oluştur | Verileri Analiz Et ve Grafikler Oluştur | Kutools Fonksiyonlarını Çağır
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya İşaretle | Boş Satırları Sil | Sütunları veya Hücreleri Veriyi Kaybetmeden Birleştir | Formül olmadan Yuvarla...
Süper ARA: Çoklu Kriter VLookup | Çoklu Değer VLookup | Çoklu sayfa araması | Bulanık Eşleme....
Gelişmiş Açılır Liste: Hızlıca Açılır Liste Oluştur | Bağımlı Açılır Liste | Çoklu seçimli Açılır Liste....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekle | Sütunları Taşı | Gizli Sütunların Görünürlük Durumunu Değiştir | Aralıkları & Sütunları Karşılaştır...
Öne Çıkan Özellikler: Izgara Odaklama | Tasarım Görünümü | Gelişmiş formül çubuğu | Çalışma Kitabı & Çalışma Sayfası Yöneticisi | Otomatik Metin Kütüphanesi | Tarih Seçici | Veri Birleştir | Hücreleri Şifrele/Şifre Çöz | Listeye Göre E-posta Gönder | Süper Filtre | Özel Filtre (kalın/italik/üstü çizili filtreleme...)...
En İyi15 Araç Takımı:12 Metin Aracı (Metin Ekle, Belirli Karakterleri Sil, ...) | 50+ Grafik Türü (Gantt Grafiği, ...) | 40+ Pratik Formül (Doğum tarihine dayanarak yaş hesapla, ...) | 19 Ekleme Aracı (QR Kodu Ekle, Yoldan Resim Ekle, ...) | 12 Dönüşüm Aracı (Kelimeye Dönüştür, Para Birimi Dönüştürme, ...) | 7 Birleştirme & Bölme Aracı (Gelişmiş Satırları Birleştir, Hücreleri Böl, ...) | ... ve dahası
Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40+ diğer dili destekler!

Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...


Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.

  • Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
  • Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
  • Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!

Tüm Kutools eklentileri. Tek kurulum

Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.

Excel Word Outlook Tabs PowerPoint
  • Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
  • Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
  • Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
  • 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
  • En iyi değer — tek tek eklenti almak yerine tasarruf edin