Satır Renklendirme

[uhercan]

Değerli üstadlar,
Ekte gönderdiğim örnek dosyada sicil numaralarına ait bilgileri birbirinden ayırmak için yani sicil değiştikçe satırı/satırları bir boyasın bir boyamasın şeklinde nasıl makro yapmam lazım.
Yardımcı olursanız sevinirim.

 

[Ali]

Eğer yanlış anlamadı isem aşağıdaki kodları denermisiniz.Sicil No'nun değiştiği satırı renkli yapar.

Private Sub Worksheet_Change(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
toplamsatir = ActiveSheet.UsedRange.Rows.Count
For Row = toplamsatir To 2 Step -1
If Cells(Row, 1).Value <> Cells(Row - 1, 1).Value Then Rows(Row).Interior.ColorIndex = 6
Next Row
End Sub

 

[uhercan]

Ali üstadım denedim ama olmadı.
Örnek dosya üzerinde işleyip gönderebilirmisin. zahmet olmaz ise.
Şimdiden teşekkür ederim

 

[Recep İpek]

Aşağıdaki kodları sayfanın makro bölümüne kopyalayabilirsiniz.

A kolonunda herhangi bir değişiklik yaptığınızda ilgili hücreler renklenecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim a, b As Long
If Intersect(Target, [a2:a5000]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
For Each alan In Range("a2:" & [a5000].End(xlUp).Address)
a = alan.Offset(-1, 0).Interior.ColorIndex
If a = 34 Then
a = 0
b = 34
Else
a = 34
b = 0
End If
If alan.Value <> alan.Offset(-1, 0).Value Then
Range(alan, alan.Offset(0, 10)).Interior.ColorIndex = a
Else
Range(alan, alan.Offset(0, 10)).Interior.ColorIndex = b
End If
Next
End Sub

 

[uhercan]

Ripek üstadım eline sağlık çok güzel olmuş.
Birde bundan farklı olarak satır satır bir boyayıp bir boyamama işini nasıl yaparız. :icelim:

 

[uhercan]

Ripek üstadım eline sağlık çok güzel olmuş.
Birde bundan farklı olarak satır satır bir boyayıp bir boyamama işini nasıl yaparız. :icelim:

Gerek kalmadı aynı matıkla çözdüm. Ama yinede teşekkür ederim.