Seçime Göre Renk Getirme

[1Al2Ver]

Merhaba,

Başlık doğru mu oldu bilemedim ama, arzum ;

Açılır kutu ile ismi alınan rengin, diğer sayfadan açılan kutuda ki hücreye gelmesi,

Teşekkür ederim.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C8]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Set s2 = Sheets("RENKLER")
son = s2.Cells(Rows.Count, "K").End(3).Row
If WorksheetFunction.CountIf(s2.Range("K2:K" & son), Target) > 0 Then
    sıra = WorksheetFunction.Match(Target, s2.Range("K2:K" & son), 0)
    Target.Interior.Color = s2.Cells(sıra + 1, "L").Interior.Color
End If
End Sub

 

[1Al2Ver]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C8]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Set s2 = Sheets("RENKLER")
son = s2.Cells(Rows.Count, "K").End(3).Row
If WorksheetFunction.CountIf(s2.Range("K2:K" & son), Target) > 0 Then
    sıra = WorksheetFunction.Match(Target, s2.Range("K2:K" & son), 0)
    Target.Interior.Color = s2.Cells(sıra + 1, "L").Interior.Color
End If
End Sub

Sayın YUSUF44 merhaba,

Teşekkür ederim, elinize sağlık.

Saygılarımla.