Excel'de makroyu bir hücrenin değerine göre nasıl çalıştırabiliriz?
Diyelim ki çalışma kitabınızda birden fazla makro bulunuyor ve bunları bir hücrenin değerine göre çalıştırmak istiyorsunuz. Bu makalede, Excel kullanırken günlük işlerinizde sıklıkla karşılaşabileceğiniz bazı senaryolardan bahsedeceğiz.
Hücre değeri belirli bir değerden büyük ya da küçükse VBA koduyla makroyu çalıştırma veya tetikleme
Hücre Değer Eşittir belirli bir metin içeriyorsa VBA koduyla makroyu çalıştırma veya tetikleme
Hücre değeri belirli bir değerden büyük ya da küçükse VBA koduyla makroyu çalıştırma veya tetikleme
Örneğin, A1 hücresindeki değer 10 ile 50 arasındaysa macro1 çalışsın; değeri 50’den büyükse macro2 devreye girsin. Bu görevi Excel’de gerçekleştirmek için lütfen aşağıdaki VBA kodunu uygulayın.
1. Makroyu bir hücre değerine göre çalıştırmak istediğiniz sayfa sekmesine sağ tıklayın ve ardından 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ş bir modüle kopyalayıp yapıştırın:
VBA kodu: Hücre değeri belirli bir değerden büyük ya da küçükse makroyu çalıştır:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
Not: Yukarıdaki kodda:
A1makronun çalıştırılacağı özel değeri içeren hücredir;
Case 10 To 50: Macro1: bu, değer 10 ile 50 arasında olduğunda Macro1’in çalışacağı anlamına gelir;
Case Is > 50: Macro2: Bu, Değer 50’den büyük olduğunda Macro2’nin çalışacağı anlamına gelir.
Lütfen bu makro adlarını ve kriterleri ihtiyacınıza göre özelleştirin; ayrıca Case yapısını takip ederek daha fazla kriter ekleyebilirsiniz.
2. Ardından bu kod penceresini kaydedip kapatın. Artık A1 hücresine girdiğiniz değer 10 ile 50 arasında olduğunda Macro1 tetiklenecek; değerin 50’den büyük olması durumunda ise Macro2 çalıştırılacaktır.
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
Hücre Değer Eşittir belirli bir metin içeriyorsa VBA koduyla makroyu çalıştırma veya tetikleme
Bir hücreye “Delete” (Sil) yazıldığında macro1, “Insert” (Ekle) yazıldığında ise macro2 çalışmasını istiyorsanız, aşağıdaki kod tam aradığınız şeydir.
1. Makroyu hücre değerine göre çalıştırmak istediğiniz sayfaya 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ş bir modüle kopyalayıp yapıştırın:
VBA kodu: Hücre değeri belirli bir metin olduğunda makroyu çalıştır
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
Not: Yukarıdaki kodda “Delete” ve “Insert” hücre metinleri, sırasıyla çalıştırılacak makroları belirtir; Macro1 ve Macro2 ise bu metinlere göre yürütülecek olan makrolardır. Lütfen bunları kendi ihtiyaçlarınıza göre güncelleyin.
2. Ardından bu kodu kaydedin ve bu pencereyi kapatın. Artık A1 hücresine “Delete” metnini girdiğinizde macro1 tetiklenecek; “Insert” metni girildiğinde ise macro2 çalıştırılacaktır.
İlgili makaleler:
Excel'de bir hücrenin değeri değiştiğinde makroyu nasıl tetikleriz?
Excel'de yazdırmadan önce makroyu otomatik olarak nasıl çalıştırabiliriz?
Excel'de açılır listeden bir değer seçildiğinde ilgili makroyu nasıl çalıştırabiliriz?
Excel'de bir köprüye tıklayarak makroyu nasıl çalıştırabiliriz?
Çalışma kitabından bir sayfa seçildiğinde makroyu nasıl tetikleriz?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar