Bu yazıda, Microsoft Excel'de VBA kullanarak hücreye belirli girişleri girerken veri doğrulamada bir giriş mesajı eklemeyi öğreneceğiz.
Veri Doğrulama, sayfaya hangi tür verilerin girilmesi gerektiğini tanımlayabilmemiz için bir aralıktaki veya verilerdeki girişi kısıtlamak için kullanılan araçtır.
Bir örnek alalım ve anlayalım: -
D sütununda ülkelerin adı var ve A1 hücresinde ülkelerin adı için bir açılır filtre oluşturmak istiyoruz.
A1 hücresini vurgulamak ve açılır listeyi ülke adlarına dönüştürmek ve aralığa hangi girişlerin girilmesi gerektiğini kullanıcılara bildirmek için mesajı koymak istiyoruz.
Aşağıda verilen adımları ve kodu izleyin: -
- Alt+F11 tuşuna basmak için VBE sayfasını açın.
- Kodu yazmak için modülü takın.
- Aşağıda belirtilen kodu yazın: -
Sub DropDownFilter() Lastrow As Long Lastrow = Worksheets("sheet1").Cells(Rows.Count, "D").End(xlUp).Row With Range("A1:A10").Validation .Add Type:= xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=$D$2:$D" & lastrow .IgnoreBlank = True .InCellDropdown = True .InputTitle = "Message" .InputMessage = "Yalnızca ülkeleri girin ("A1:A10").Interior.ColorIndex = 37 End with End Sub
Kod Açıklama:-
Önce tüm değişkenleri tanımladık, ardından dinamik açılır filtreyi oluşturmaya yardımcı olacak aralığı oluşturduk. Benzer şekilde, giriş başlığını ve Giriş mesajını tanımlamıştık. Sonra açılır listeyi oluşturmak istediğimiz hedefi tanımladık ve sonra hücreyi renkle dolduracaktık.
Kodu çalıştırmak için klavyenizdeki F5 tuşuna basın
- Ülkeler için açılır liste oluşturulacaktır.
- Ayrıca hücre renkle doldurulacak.
- Ayrıca, aralığa yeni ülke adını ne zaman gireceğimizi, açılır liste ülke adını otomatik olarak seçecektir.
- Mesaj, seçilen hücrede A1:A10 aralığında görünecektir.
Bu şekilde Microsoft Excel'de VBA üzerinden veri doğrulamada bir giriş mesajı ekleyebiliriz.
Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. Bize e-posta sitesinde yazın