Veri Doğrulamayı Makro İle Yapmak

[yorum.halil]

Üstadlar arkadaşlar biraz önceki mesajımda yazmadım hemen yazıyım. Tekrar sizlerle buluşmak ve birşeyler öğrenmeye başlamak çok güzel..

Neyse sizleri meşgul etmeden bir şey sormak istiyorum. Örnek dosyadaki gibi bir işlem yapmak istiyorum. Aslında excel veri doğrulama özelliği ile bu işlem yapılabiliyor. Ama ben o hücreler için veri doğrulama özelliğini başka bir amaç için kulanacağım.

Sorum kısaca şu "B" hücresindeki veriye göre diğer hücrelere veri girişinin yapılmasını eğer kritere uymuyorsa veri girişinin engellenmesini yani uyarı vermesini istiyorum. Örnek dosyada gerekli açıklamalar var. tekrar tşk.

 

[yorum.halil]

arkadaşlar yardımlarınızı hala bekliyoruz... 3 kişi

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1in kod sayfasına kopyalayarak deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [c:f]) Is Nothing Then Exit Sub
Select Case Target.Column & Cells(Target.Row, "b")
Case "4M": Exit Sub
Case "5G": Exit Sub
Case "6Y": Exit Sub
End Select
Target.Select
MsgBox "Veri giremezsiniz."
Cells(Target.Row, "g").Select
End Sub

 

[yorum.halil]

üstad kodlar oldu ama sanırım biraz eksik. Sizin kodlar sadece "M" olursa işlem yapıyor oysa b sütununda "M" "G" ve "Y" harfide olabilir. Birde hücresi silme yerine mesaj verdirmek mümkün mü...

 

[Levent Menteşoğlu]

Yukarıdaki kodu değiştirdim tekrar deneyin.

 

[yorum.halil]

Üstad sanırım tam anlatamadım... ama sizin kodlardan yola çıkarak umarım kendim yapacağım....