Seçili olan satırı renklendirme

[rejii]

Ekli dosyadaki kodları yine bu forumdan faydalanarak buldum. Çok işime yarıyor ancak yaklaşık 15.000 satır veri ile filtreleme yapınca dosyanın çalışması ağırlaşıyor. Satır boyamayı mesela "A" kolonu ile "R" kolonu arasında yaparsak dosyanın biraz da olsa hızlanacağını düşünüyorum yada hızlı çalışması için nasıl değiştirilebilir.

 

[xp45s]

syn. rejii aşagıdaki kodu denermesiniz.Satır ve sütün renklendirme ile ilgili

Const iInternational As Integer = Not (0)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
On Error Resume Next
iColor = Target.Interior.ColorIndex
If iColor < 0 Then
    iColor = 28
Else
    iColor = iColor + 1
End If
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1
Cells.FormatConditions.Delete
With Range("A" & Target.Row, Target.Address)
    .FormatConditions.Add Type:=2, Formula1:=iInternational
    .FormatConditions(1).Interior.ColorIndex = iColor
End With
With Range(Target.Offset(1 - Target.Row, 0).Address & ":" & Target.Offset(-1, 0).Address)
    .FormatConditions.Add Type:=2, Formula1:=iInternational
    .FormatConditions(1).Interior.ColorIndex = iColor
End With
End Sub

yada bu kodu kullanarak sadece istediginiz gibi A kolonu ile R kolonu arasını renklendirebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
Dim Son As Long
Son = [A65536].End(3).Row
Range("A1:R" & Son).Interior.ColorIndex = xlNone
Range("A" & Target.Row & ":R" & Target.Row).Interior.ColorIndex = 20
Son:
End Sub

 

[rejii]

Sayın xp45s ilginiz için teşekkür ederim. Fakat sadece seçili satır ve belirli kolonlar arası renklendirme yapabilir miyiz. Dosyanın çalışması daha da ağırlaştı zannedersem içine sütun renklendirmesi girdiği için. Sütun renklendirmesi benim için gereksiz bir durum.

 

[xp45s]

ilk mesajıma yeni kod ekledim denermisiniz.

 

[rejii]

Tekrar teşekkür ederim yardımlarınız için tahmin ettiğim gibi hızlanma oldu. Çok teşekkürler.

 

[xp45s]

Tekrar teşekkür ederim yardımlarınız için tahmin ettiğim gibi hızlanma oldu. Çok teşekkürler.

rica ederim sayın reji.

 

[cevatyildiz]

Sayın xp45s,

Son = [A65536].End(3).Row satırında yer alan "3" ne anlama gelmektedir?

iyi çalışmalar