Soru satır ve sütün renklendirme

[ozcanya]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows.Interior.ColorIndex = xlColorIndexNone
Columns(Target.Column).Interior.ColorIndex = 8
Rows(Target.Row).Interior.ColorIndex = 8
End Sub


arkadaşlar forumda bulduğum bu kodları istediğim uzunlukta sütün ve satıra nasıl ayarlarım (örnek A3 ve AA33 arasına)

 

[Orion1]

Buyurun.

Range("A3:AA33").Interior.ColorIndex = 8

 

[Seceren]

Pardon....

 

[YUSUF44]

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A3:AA33]) Is Nothing Then
    [A3:AA33].Interior.Color = xlNone
    a = Target.Row
    b = Target.Column
    Range(Cells(3, b), Cells(33, b)).Interior.ColorIndex = 8
    Range(Cells(a, "A"), Cells(a, "AA")).Interior.ColorIndex = 8
Else
    [A3:AA33].Interior.Color = xlNone
End If
End Sub

 

[ozcanya]

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A3:AA33]) Is Nothing Then
    [A3:AA33].Interior.Color = xlNone
    a = Target.Row
    b = Target.Column
    Range(Cells(3, b), Cells(33, b)).Interior.ColorIndex = 8
    Range(Cells(a, "A"), Cells(a, "AA")).Interior.ColorIndex = 8
Else
    [A3:AA33].Interior.Color = xlNone
End If
End Sub

çok teşekkür ederim.elinize sağlık

 

[ozcanya]

a3 ile o3 arasındaki satıra renklendirme yapamıyorum. siliyor rica etsem yardım eder misiniz?

 

[Korhan Ayhan]

Var olan kodlar eski renkleri siler.

Bu sebeple bu haliyle renklendirme kullanamazsınız.