Excel'de Yasaklı Kelimelerin Engellenmesi

[baydeniro]

Sayfa1'in A kolonunun hücrelerinde yazılı olan kelimelerin Sayfa2 deki E kolonundaki açıklamalara yazılamamasına yönelik bir makro söz konusu mudur ?

 

[Ferhat Pazarçevirdi]

Merhabalar,

Sözkonusu olabilir ama biraz daha detay ve örnek verebilir misiniz? Mümkünse, örnek dosya ile birlikte tabi ...

 

[baydeniro]

Sayın fpc ilginiz için teşekkürler. Örenk dosya ektedir.

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları, Sayfa2'nin kod sayfasına kopyalayınız.

NOT : Burada kritik soru, Sayfa2-E sütunundaki hücrelerden herhangi birinde; yasak kelimelerden birden fazla kullanılıp kullanılmayacağı...

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
Dim x As Integer, i As Integer
Dim y As String
If Not Intersect(Target, [E:E]) Is Nothing Then
Set sh = Sheets("Sayfa1")
For i = 2 To sh.Cells(65536, 1).End(xlUp).Row
    x = InStr(1, Target, sh.Cells(i, 1), vbTextCompare)
    If x > 0 Then
       MsgBox "Yasaklı Kelme Girişi yaptınız" _
             & vbCrLf _
             & "Yasak Kelime : " & sh.Cells(i, 1), vbCritical, "YASAK KELİME UYARISI"
       y = Replace(Target, sh.Cells(i, 1), Application.WorksheetFunction.Rept(".", Len(sh.Cells(i, 1))), , , vbTextCompare)
       Target = y
       Exit For
    End If
Next i
Set sh = Nothing
End If
End Sub

 

[Ali]

Güzel bir soru ve Sn fpc'den güzel bir cevap.

 

[baydeniro]

Çok Teşekkür

Sayın fpc, gerçekten büyüksünüz. Yani ben böyle birşeyin olabileceğine pek ihtimal vermiyordum. Yani ne diyeceğimi bilemiyorum. Elleriniz dert görmesin. Başarılarınızın devamını dilerim.

 

[Ferhat Pazarçevirdi]

Estağfurullah, işinize yaradıysa ne ala ...

NOT : Ali bey'e de nezaketi için teşekkür ederim.

 

[baydeniro]

Valla sayın fpc bu kod öyle alçakgönüllükle geçiştirilecek gibisinden değil. Tekrar başarılarınızın devamını dilerim.

 

[Necdet]

"Güzel cevap her zaman daha güzel soruyu sorana verilir."
E. E. CUMMINGS

 

[baydeniro]

Teşekkürler sayın Necdet_Yesertener. Bu forumda sizlerine sayesinde hem gelişiyoruz hem de pek kişi derdine derman buluyor. Hepiniz sağlıcakla kalın.