Kolay Renklendirme - 1

[baydeniro]

Merhaba Arkadaşlar. Kolay Renklendirme hakkında şöyle bir uygulama yapılır mı ?
H kolonundaki bir renge tıkladıktan sonra A, B veya C kolonundaki herhangi bir veriye tıklanınca o verinin bulunduğu satırdaki diğer veriler de aynı renkte olabilir mi ?

 

[Orion1]

Ekli dosyayı inceleyiniz.

Dim renk As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A2:C65536,H2:H7]) Is Nothing Then Exit Sub
On Error GoTo hata
If Target.Column >= 1 And Target.Column <= 3 Then
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "C")).Interior.ColorIndex = xlNone
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "C")).Interior.ColorIndex = renk
End If
renk = 0
If Target.Column = 8 And Target.Row > 1 And Target.Row < 8 Then
    renk = Target.Interior.ColorIndex
End If
hata:
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static deg
If Not Intersect(Target, [h2:h7]) Is Nothing Then deg = Target.Interior.ColorIndex
If Not Intersect(Target, [a:c]) Is Nothing Then Range("a" & Target.Row & ":c" & Target.Row).Interior.ColorIndex = deg
End Sub

 

[baydeniro]

Çok Teşekkürler

Sayın orion2 ve sayın leventm ilginize ve yardımlarınız için çok çok teşekkürler. Başarılarınızın devamını dilerim.

 

[baydeniro]

Sayın Necdet Yesertener, Orion2, Cost Control, leventm, Ali, seyit tiken, hamitcan, ileriexcel ve emeği ve yardımı geçen tüm uzman arkadaşlara çok çok teşekkürler. Sizlerin sayesinde hem bir şeyler öğreniyor, hem de pek çok sorunumuzu çözüyoruz. İyi ki varsınız. Sizlerin kod yazmanıza minik te olsa bizim de bir katkımız oluyorsa ne mutlu bizlere. Tekrar teşekkürler.