Veri Değiştirirken Uyarı Alma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Uygulama Adımları
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Alttaki kodu yapıştırın.
Hazır Kod
VBA:
You must log in to view content
(16 satır)
Açıklama
Bu VBA kodu, belirli bir çalışma sayfasına yerleştirildiğinde, bu sayfadaki A1:A10 aralığında herhangi bir değişiklik yapıldığında bir uyarı mesajı gösterir. Bu mesaj, hangi hücrelerin değiştirildiğini ve yeni hücre değerlerini içerir.Kodun Çalışma Mekanizması
- Worksheet_Change Olayı: Bu prosedür, hücrelerdeki değişiklikleri algıladığında tetiklenir. Target parametresi, değişikliğin yapıldığı hücre veya hücrelerin referansını içerir.
- WatchRange: İzlenmesi istenen hücre aralığı burada belirlenir. Örnekte A1:A10 aralığı izlenmektedir.
- Intersect Fonksiyonu: Target ve WatchRange arasında bir kesişme olup olmadığını kontrol eder. Eğer bir kesişme varsa, bu, değişikliğin izlenen aralıkta gerçekleştiği anlamına gelir.
- MsgBox Fonksiyonu: Kesişme varsa, bir mesaj kutusu ile uyarı verilir. Bu mesaj kutusu değişiklik yapılan hücrenin adresini ve yeni değerini gösterir.
Nasıl Kullanılır
- Bu kodu kullanmak için, öncelikle Excel'de Alt + F11 tuşlarına basarak VBA editörünü açın.
- İlgili çalışma sayfasının VBA kod sayfasını açın (Sol tarafta "Microsoft Excel Objects" altından ilgili "Sheet"e çift tıklayın).
- Yukarıda verilen kodu bu sayfaya yapıştırın.
- VBA editörünü kapattıktan sonra, Excel'e dönün. Şimdi, A1:A10 aralığındaki hücrelerde bir değişiklik yaparak kodun çalıştığını test edebilirsiniz.
Faydalanılması temennisiyle