Seçili hücrenin yanındaki hücreyi renklendirme

[uAgrknn]

Seçili hücrenin 7 solundaki hücrenin sarı renkte görünmesini istiyorum. Yani ben H2 ye tıkladığımda A2 hücresi sarı renkte olmalı. Yardım eder misiniz?

 

[Korhan Ayhan]

Deneyiniz.

Sayfadaki tüm renkleri silerek işlem yapar. Bu sebeple kontrollü kullanmanızda fayda var.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Cells.Interior.ColorIndex = xlNone
    Target.Offset(, -7).Interior.ColorIndex = 6
    On Error GoTo 0
End Sub

 

[uAgrknn]

Deneyiniz.

Sayfadaki tüm renkleri silerek işlem yapar. Bu sebeple kontrollü kullanmanızda fayda var.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Cells.Interior.ColorIndex = xlNone
    Target.Offset(, -7).Interior.ColorIndex = 6
    On Error GoTo 0
End Sub

Çok teşekkür ederim oldu ?

 

[uAgrknn]

Deneyiniz.

Sayfadaki tüm renkleri silerek işlem yapar. Bu sebeple kontrollü kullanmanızda fayda var.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Cells.Interior.ColorIndex = xlNone
    Target.Offset(, -7).Interior.ColorIndex = 6
    On Error GoTo 0
End Sub

Peki bunu sadece H sütunu seçiliyken yapabilrmiyiz yani H1den H300 e kadar seçildiğinde olabilir mi

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A1:A300").Interior.ColorIndex = xlNone
    If Intersect(Target, Range("H1:H300")) Is Nothing Then Exit Sub
    Target.Offset(, -7).Interior.ColorIndex = 6
End Sub

 

[uAgrknn]

önceki kodu şu şekilde düzenledim satırı komple sarı yapıyorum şuan için sorun yok ama
örneğin a3 hücresi kırmızı ben 3. satırdan herhangi bir hücreyi seçtiğimde komple satırı sarı yaptığı için önceden kırmızı renklendirdiğim hücre sarı oluyor başka satırdaki hücreyi seçtiğimde a3 beyaza dönüyor eski renginde kalmasını nasıl sağlayabilirim?

Dim onceki As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If onceki > 0 Then
Rows(onceki).Interior.ColorIndex = x1none
End If
Target.EntireRow.Interior.Color = RGB(255, 255, 0)
onceki = Target.Row


End Sub

 

[Korhan Ayhan]

Eski renkleri korumak istiyorsanız işlemi koşullu biçimlendirme ile yapmak daha sağlıklı sonuçlar verecektir.