Renklenme Sorunu..!

[sensizsoldum]

Merhaba,
Örnek Dosyada E3:E aralığına herhangi bir veri girildiğinde hücrenin yeşil olmasını, hücre (del) silindiğinde ise renksiz olması gerekiyor. Örnek çalışmada bu yapılıyor ama çok sağlıklı çalışmadığında yanlış bilgilere sebebiyet veriyor. Kodda farklı özelliklerde var bunların çalışmasında bir sıkıntı yok.
Mesela E3:E aralığına veri girildiğinde, hücre yeşil olmalı. Bu girilen veri, B3:B var ise hücre kırmızı oluyor. Bu özelliğin çalışması çok güzel. Benim sizlerden istirhamım veri girildiğinde hücre yeşil, eğer veri silindiğinde yada boş ise Renksiz olması.
İlginen arkadaşlara şimdiden çok teşekkür ederim.
İyi akşamlar dilerim.

 

[BAZGİRET]

Merhaba,
Örnek Dosyada E3:E aralığına herhangi bir veri girildiğinde hücrenin yeşil olmasını, hücre (del) silindiğinde ise renksiz olması gerekiyor. Örnek çalışmada bu yapılıyor ama çok sağlıklı çalışmadığında yanlış bilgilere sebebiyet veriyor. Kodda farklı özelliklerde var bunların çalışmasında bir sıkıntı yok.
Mesela E3:E aralığına veri girildiğinde, hücre yeşil olmalı. Bu girilen veri, B3:B var ise hücre kırmızı oluyor. Bu özelliğin çalışması çok güzel. Benim sizlerden istirhamım veri girildiğinde hücre yeşil, eğer veri silindiğinde yada boş ise Renksiz olması.
İlginen arkadaşlara şimdiden çok teşekkür ederim.
İyi akşamlar dilerim.

Merhaba
renklendirmeyi kodla değil de veri doğrulama ile yapsanız olmaz mı?
Eğer olur derseniz eki inceleyiniz.

 

[sensizsoldum]

Merhaba,
İlginiz için teşekkür ederim. Çalışmamda fazlasıyla veri doğrulama ve koşul bulunuyor, bu nedenle makroyu tercih ediyorum.

Teşekkür ederim. Çok sağolun.

 

[ynmcan]

Merhaba,
Örnek Dosyada E3:E aralığına herhangi bir veri girildiğinde hücrenin yeşil olmasını, hücre (del) silindiğinde ise renksiz olması gerekiyor. Örnek çalışmada bu yapılıyor ama çok sağlıklı çalışmadığında yanlış bilgilere sebebiyet veriyor. Kodda farklı özelliklerde var bunların çalışmasında bir sıkıntı yok.
Mesela E3:E aralığına veri girildiğinde, hücre yeşil olmalı. Bu girilen veri, B3:B var ise hücre kırmızı oluyor. Bu özelliğin çalışması çok güzel. Benim sizlerden istirhamım veri girildiğinde hücre yeşil, eğer veri silindiğinde yada boş ise Renksiz olması.
İlginen arkadaşlara şimdiden çok teşekkür ederim.
İyi akşamlar dilerim.

Aşağıdaki şekilde deneyin.

[COLOR="Red"]Private Sub Worksheet_Change(ByVal Target As Range)[/COLOR]
S1 = WorksheetFunction.CountA(Range("B3:B65536")) + 2
S2 = WorksheetFunction.CountA(Range("E3:E65536")) + 2
Range("E3:E" + Trim(S2)).Interior.ColorIndex = 4
For K = 3 To S2
r = Cells(K, 5).Value
   For i = 3 To S1
      X = 0
      LKS = Cells(i, 2).Value
      X = InStr(LKS, r)
      If X <> 0 Then Range("E" + Trim(K)).Interior.ColorIndex = 3
   Next
Next

Dim rngBos
On Error Resume Next
Set rngBos = Range("E3:E" & Cells(Rows.Count, "E").End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
rngBos.Interior.ColorIndex = 0
On Error GoTo 0

Application.ScreenUpdating = True

End Sub

[/CODE]

 

[sensizsoldum]

Merhaba Önceki koddan herhangi bir değişikliğe rastlamadım. Herşey yine aynı.