koşullu biçimlendirme ile renklendirilmiş hücreler

[algil]

Merhaba Arkadaşlar

Koşullu biçimlendirme ile renklendirilmiş hücrelere giriş yapılmamasını nasıl sağlayabiliriz.

Ã?rneğin çalışma sayfasının tüm hücreleri Turkuaz renginde, veri girişi yapılacak hücreler koşullu biçimlendirme ile beyaz (default) yapılıyor.

(Yaptığım aramalarda genelde direkt olarak renklendirilmiş olan hücrelere girişi engelleyen çalışmaları buldum. Bunu koşullu biçimlendirmeye uyguladığım zaman çalışmadı.)

 

[veyselemre]

örnek dosya ekleyebilirmisiniz

 

[algil]

İlgin için teşekkürler
Dosya ektedir.

 

[veyselemre]

Aşağıdaki kodları sayfanın kod sayfasına yapıştır, dene
[vb:1:0b9d931164]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("C5").Address Then
ActiveSheet.Unprotect Password:="1234ab"
adres = ActiveSheet.Range("B8:C17").SpecialCells(xlCellTypeAllFormatConditions).Address
Range(adres).Cells.Locked = True

For Each hucre In Range(adres).Cells
hucre.Select
If Evaluate(hucre.FormatConditions(1).Formula1) Then Selection.Locked = False
Next
ActiveSheet.Protect Password:="1234ab", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If

End Sub
[/vb:1:0b9d931164]

 

[algil]

Merhaba veyselemre
kodları denedim, çalışıyor. fakat benim asıl istediğim "C5" bağımlı kalmamak.
Yani değiştirdiğimiz hücrenin rengini A1 hücresinin rengiyle karşılaştırıp aynısı ise yazdığım değeri silsin, aynısı değilde beyaz veya farklı bir renkse yazdığım değeri silmesin.

İnşallah anlatabilmişimdir.
Teşekkürler

 

[veyselemre]

yine c5 değiştiğinde çalışır, bu şekilde bir dene
[vb:1:751833b89c]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("C5").Address Then
adres = ActiveSheet.Range("B8:C17").SpecialCells(xlCellTypeAllFormatConditions).Address
For Each hucre In Range(adres).Cells
hucre.Select
If Evaluate(hucre.FormatConditions(1).Formula1) = False Then Selection.Value = ""
Next
End If
End Sub
[/vb:1:751833b89c]

 

[algil]

Merhaba Veyselemre
zamanını ayırdığın için teşekkürler. İlk kod işime daha çok yaradı.
:arkadas: