Hücreye tıklandığında uyarı vermesi

[Utku08]

Merhaba,

Bir tablom var ve HT yazan hücrelere tıklandığında değer girmeye engel olmayan bir hatırlatma metni gorunsun istiyorum.(örneğin ; "hafta tatili")


Bunu veri dogrulama ile yaptığımda istediğim şey oluyor fakat kural hücreye ait oldugundan sütunda sıralama yaptıgımda uyarı yerinde kalıyor ve HT yazılı hücrelerim bu kuralın dışında kalıyor.

Sıralama yaptıgımda bozulmayacak şekilde, belirlediğim kelimenin yazılı oldugu hücreye tıkladıgında uyarı vermesi için başka ne gibi bir yontem kullanabilirim?


Yardımcı olabilirseniz sevinirim
Teşekkürler

 

[Necdet]

Merhaba,

İstediğiniz gibi oldu mu bilemiyorum. Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If UCase(Target.Value) = "HT" Then
         With Target.Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
            :=xlBetween
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = "HAFTA tATİLİ"
            .ErrorTitle = ""
            .InputMessage = "Hafta Tatili...."
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    End If
    
End Sub

 

[Utku08]

Merhaba,
Çok teşekkürler vakit ayırdıgınız için yalnız bir hata verdi ve debug'a tıkladıgımda If UCase(Target.Value) = "HT" Then kısmı sarı olarak gosteriliyordu, bir de macroyu ilk eklediğimde calıstırmak istedigimde macroyu goremedi private sub 'ı sub' a cevirdigimde gordu fakat bahsettiğim hatayı verdi, private'ı cevirmem mi problem olmustur?
Teşekkürler

 

[Necdet]

Makro ilgili sayfanın kod bölümünde seçtiğiniz hücre değiştiğinde otamatik çalışır.

eğer seçtiğiniz hücre değeri "ht" ise mesaj verir.

 

[Utku08]

Çalıştı, çok teşekkürler

 

[MaGNeT]

tşkler banada lazımdı.

 

[Utku08]

Merhaba ,
aynı sayfada RT(resmi tatil) ve ARF(arife) kıslatmaları bulunuyor, aynı şekilde bu harfleri gordugunde de uyarı vermesi için, tek sayfada aynı kodu 3 değişik şekilde çalıştırabilir miyiz yoksa kodun tamamen değişmesi mi gerekir

 

[tirEdsOuL]

Merhaba ,
aynı sayfada RT(resmi tatil) ve ARF(arife) kıslatmaları bulunuyor, aynı şekilde bu harfleri gordugunde de uyarı vermesi için, tek sayfada aynı kodu 3 değişik şekilde çalıştırabilir miyiz yoksa kodun tamamen değişmesi mi gerekir

En basit şekilde If - End If aralığını kopyalayıp belirli alanları değiştirmektedir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If UCase(Target.Value) = "HT" Then
         With Target.Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
            :=xlBetween
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = "HAFTA tATİLİ"
            .ErrorTitle = ""
            .InputMessage = "Hafta Tatili...."
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    End If
        If UCase(Target.Value) = "RT" Then
         With Target.Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
            :=xlBetween
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = "RESMİ TATİL"
            .ErrorTitle = ""
            .InputMessage = "Resmi Tatil...."
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    End If
            If UCase(Target.Value) = "ARF" Then
         With Target.Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
            :=xlBetween
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = "ARİFE"
            .ErrorTitle = ""
            .InputMessage = "Arife...."
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    End If
    
End Sub

 

[Utku08]

Bu mantıgı da öğrenmek istiyordum, çok teşekkürler yardımlarınız için

 

[Utku08]

Merhaba,
Yukarıdaki kod ile alakalı olarak birşey daha sormak isterim.
2 kodu birleştirdikten sonra type mismatc hatası almaya başladım, aslında herşeyim sorunsuz çalışıyor fakat bu hatayı atlaması için koda ne eklemeliyim?

Teşekkürler