Seçilen Hücrelere Sadece Belirlenen Harfler Girilsin

[1Al2Ver]

Merhabalar,

C2:T30 aralığındaki hücrelere, sadece M veya D veya K harflerinin girilmesine (bir hücreye yalnız bir harf girilebilmelidir) izin veren, hatalı harf girilmeye kalktığında ise " Seçili Hücreye sadece M veya D veya K harfi girebilirsiniz" mesajı veren bir makroya ihtiyaç duymaktayım,

İlgilenen arkadaşlarıma teşekkür ederim, saygılarımla.

 

[Ömer]

Merhabalar,

C2:T30 aralığındaki hücrelere, sadece M veya D veya K harflerinin girilmesine (bir hücreye yalnız bir harf girilebilmelidir) izin veren, hatalı harf girilmeye kalktığında ise " Seçili Hücreye sadece M veya D veya K harfi girebilirsiniz" mesajı veren bir makroya ihtiyaç duymaktayım,

İlgilenen arkadaşlarıma teşekkür ederim, saygılarımla.

Sayın 1Al2Ver,

Makro ile çözüm istemişsiniz fakat Veri Doğrulama ile ilgili bir örnek hazırladım belki işinize yarayabilir..

 

[1Al2Ver]

Sayın 1Al2Ver,

Makro ile çözüm istemişsiniz fakat Veri Doğrulama ile ilgili bir örnek hazırladım belki işinize yarayabilir..

Sayın espiyonajl, duyarlığınız ve çözüm için çok teşekkür ederim,

İşimi fazlası ile görür, bu işlemin macro dışında olabileceğini düşünmemiştim açıkcası, sayenizde öğrenmişte oldum, sağolun.

Tekrar teşekkür ederim, saygılarımla.

 

[Ömer]

Rica ederim.

İşinize yaradığına sevindim.

İyi çalışmalar..

 

[uzmanamele]

merhaba
alternatif olsun

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [C2:T30]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If Target = "K" Or Target = "k" Or Target = "L" Or Target = "l" Or Target = "M" Or Target = "m" Then GoTo son
MsgBox " Seçili Hücreye sadece K veya L veya M harfi girebilirsiniz !", vbCritical, "UYARI"
Target = Empty
son:
End Sub

 

[1Al2Ver]

merhaba
alternatif olsun

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [C2:T30]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If Target = "K" Or Target = "k" Or Target = "L" Or Target = "l" Or Target = "M" Or Target = "m" Then GoTo son
MsgBox " Seçili Hücreye sadece K veya L veya M harfi girebilirsiniz !", vbCritical, "UYARI"
Target = Empty
son:
End Sub

Sayın uzmanamele, merhaba,

İlginiz ve çözüm için teşekkür ederim, gerçekten de alternatif oldu, saygılar.

 

[Necdet]

Merhaba,

Sıkıntısını duyduğum bir konuydu, geçenlerde öğrenmiştim. VBA da küçük ve büyük harf duyarlılığını kaldırmak için :

[B][COLOR=red]Option Compare Text
[/COLOR][/B]Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If [B][COLOR=red]Target <> "K" And Target <> "L" And Target <> "M"[/COLOR][/B] Then
    Target.Offset(0, 0).Select
    Target = Empty
    MsgBox " Seçili Hücreye sadece K veya L veya M harfi girebilirsiniz !", vbCritical, "UYARI"
End If
son:
End Sub

 

[1Al2Ver]

Merhaba,

Sıkıntısını duyduğum bir konuydu, geçenlerde öğrenmiştim. VBA da küçük ve büyük harf duyarlılığını kaldırmak için :

[B][COLOR=red]Option Compare Text
[/COLOR][/B]Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If [B][COLOR=red]Target <> "K" And Target <> "L" And Target <> "M"[/COLOR][/B] Then
    Target.Offset(0, 0).Select
    Target = Empty
    MsgBox " Seçili Hücreye sadece K veya L veya M harfi girebilirsiniz !", vbCritical, "UYARI"
End If
son:
End Sub

Sayın Necdet Yeşertener, merhaba

Siteye geç geldim, bu nedenle de zamanında teşekkür edemedim, nezaketiniz ve katkılarınız için çok teşekkür ederim,

Sizler sayesinde çok yararlı bir kaynağa sahip oldum, zaman zaman beni ve kaynağı aşan çözümler gerekiyor, bu durumda da istediğim yardım ve çözümü sizlerden kısa zamanda alabiliyorum, çok çok sağolun, tekrar teşekkür ederim, saygılarımla.

 

[Necdet]

Merhaba,

Sayın 1Al2Ver, karşılıklı öğrenme sürecindeyiz. Saygılar.

 

[cenderus]

dosya ektedir

konu başlığına ait bulabildiğim dosya ektedir