İşlem Yapılan Hücreden Renk Kalksın

[zaffer1981]

Merhaba. Çalışma sayfasında belli hücreleri (içi boş ya da dolu olsun farketmiyor) renklendiriyorum. Daha sonra bu hücreye veri girdiğimde ya da başka hücreden veri geldiğinde bu hücreye renklendirmenin kalkmasını istiyorum.


Kısaca daha önce renklendirdiğim hücrede işlem yapınca renklendirme kalksın.

teşekkürler yardımlarınız için

 

[zaffer1981]

Konu hakkında bilgisi olan yok mu acaba?

 

[Orion1]

Örnek dosya linki veriniz.

 

[zaffer1981]

http://www.dosya.tc/server38/QMkla5/_RNEKDOSYA.xlsx.html

dosya ektedir

 

[Muzaffer Ali]

Sayfanın kod editörünü açın aşağıdaki kodları kopyalayıp yapıştırın

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.Value = Empty Then
        Target.Interior.Pattern = xlNone
    End If
End Sub

 

[zaffer1981]

Kod İçin teşekkür ederim üstad. lakin hücre veriyi başka bir hücreden aldığında renk gitmiyor maalesef. illaki o hücreye senin birşeyler girdiğinde hücreden renklendirme kalkıyor

 

[zaffer1981]

Yardım lütfen!

 

[zaffer1981]

Hücreler formüllü ise yapılabilecek bişey yok mu?

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = 0 Then
Target.Offset(, 1).Interior.Color = xlNone
Else
Target.Offset(, 1).Interior.Color = 6666487
End If
End Sub

 

[zaffer1981]

olmadı seyit bey maalesef
hata veriyor yanındaki hücre renkleniyor

 

[Orion1]

formüllü hücre ise gelmez.

 

[Seyit Tiken]

Kodu, programınıza uyarlayacaksınız diye verdim.