Veri Doğrulamayla Hücre Biçimlendirmesini getirme

[oguzka]

Merhaba;

Ekteki dosyada veri doğrulama ile c6 hücresine sağ tarafta sıralanan harfleri getiriyorum ancak istediğim hücrenin biçimlendirilmesinide aynen getirmek. Yani hangi harfi seçersem o harfin rengide gelsin istiyorum. Yardım edermisiniz?

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümene kopyalayın.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.EnableEvents = False
If Intersect(Target, [C6]) Is Nothing Then Exit Sub
If Target = "" Then Target.Interior.ColorIndex = xlNone
    Set c = Range("J6:J11").Find(Target)
    If Not c Is Nothing Then
    Range("J" & c.Row).Copy
    Target.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone
    Application.CutCopyMode = False
End If
Application.EnableEvents = True
End Sub

.

 

[oguzka]

Ömer Bey hızlı cevabınız için teşekkürler. Benim için yeterli bu kod. Sadece merakımdan şunu sorsam acaba bunu kodsuz nasıl yapabiliriz. Benim aklıma koşullu biçimlendirme geldi ancak uzun sürer.

 

[Ömer]

Eğer aralıktaki değerler belli bir koşula göre biçim oluşturulmuyorsa koşullu biçimlendirme ile yapamazsınız. Kod kullanmanız gerekir.

İyi çalışmalar..

.

 

[oguzka]

Tekrar Teşekkür Ederim.