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.
Hazır Kod
VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WatchRange As Range
Dim IntersectRange As Range
' İzlenecek hücre aralığını ayarla
Set WatchRange = Me.Range("A1:A10")
' Değişiklik yapılan hücrenin izlenen aralıkla kesişip kesişmediğini kontrol et
Set IntersectRange = Intersect(Target, WatchRange)
' Eğer kesişme varsa uyarı mesajı ver
If Not IntersectRange Is Nothing Then
MsgBox "Değişiklik yapılan hücre: " & IntersectRange.Address & vbNewLine & _
"Yeni değer: " & Target.Value, vbInformation, "Veri Değişikliği Uyarısı"
End If
End Sub
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.
Bu uygulama, özellikle kritik veri girişleri yapılan ve hataların önlenmesi gereken çalışma sayfalarında çok kullanışlıdır. Kullanıcılar, yanlışlıkla yapılan değişiklikleri fark edebilir ve hızlıca düzeltebilirler.
Faydalanılması temennisiyle