Satır Renklendirme

[cevatyildiz]

Merhaba,

Bir satır renklendirme kodum var bu renklendirmeyi 3. satırdan itibaren başlatmak için nasıl bir düeltme yapılması gerekiyor. Ayrıca renklenen satırda .FormatConditions(1).Font.Bold = True

istiyorum. Yardımcı olabilir misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Son As Long
Son = [A65536].End(4).Row
Range("A3:AC" & Son).Interior.ColorIndex = xlNone
Range("A" & Target.Row & ":AC" & Target.Row).Interior.ColorIndex = 46
Son:
End Sub

 

[halit3]

bunu denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Son As Long
Son = [A65536].End(4).Row
If Intersect(Target, Range("A3:AC" & Son)) Is Nothing Then Exit Sub
Range("A3:AC" & Son).Interior.ColorIndex = xlNone
Range("A" & Target.Row & ":AC" & Target.Row).Interior.ColorIndex = 46
Range("A" & Target.Row & ":AC" & Target.Row).Font.Bold = True
Son:
End Sub

 

[Orion1]

Merhaba,

Bir satır renklendirme kodum var bu renklendirmeyi 3. satırdan itibaren başlatmak için nasıl bir düeltme yapılması gerekiyor. Ayrıca renklenen satırda .FormatConditions(1).Font.Bold = True

istiyorum. Yardımcı olabilir misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A3:A65536]) Is Nothing Then Exit Sub
On Error Resume Next
Dim Son As Long
Son = Cells(65536, "A").End(xlUp).Row
Range("A3:AC" & Son).Interior.ColorIndex = xlNone
Range("A3:AC" & Son).Font.Bold = False
Range("A" & Target.Row & ":AC" & Target.Row).Interior.ColorIndex = 46
Range("A" & Target.Row & ":AC" & Target.Row).Font.Bold = True
End Sub

 

[tahsinanarat]

Dim eski
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If eski <> Empty Then
Range(eski).Font.Name = "Arial"
Range(eski).Font.Size = 10
Range(eski).Font.Bold = False
End If
If Intersect(Target, Range("A3:AC65536")) _
Is Nothing Then Exit Sub
'Selection.Font.Name = "Webdings"
Selection.Font.Name = "Arial"
Selection.Font.Size = 12
Selection.Font.Bold = True
Range("a3:AC65536").Interior.ColorIndex = xlNone
k = ActiveCell.Address
q = Mid(k, 3, 6)
With Range("a" & q, "AC" & q).Interior
.ColorIndex = 46
.Pattern = xlSolid
End With
eski = Target.Address(False, False)
End Sub

 

[cevatyildiz]

Yardımlarınız için teşekkür ederim.

 

[cevatyildiz]

Bir basit soru daha sorabilir miyim?
Sizin için basit ama ben yazımı bilmediğim için çok kolay bir düzeltme yapmanızı rica ediyorum.

Bu satırda mevcut düzeni koruyup Offset(0, 1) alanına "vd" veya "org" yazıldıgında da boyama yapmasını istiyorum.

If alan.Value >= alan.Offset(0, 1).Value And alan.Offset(0, 1).Value <> "" Then alan.Interior.ColorIndex = 4 'YEŞİL

Bu satırda sonuç "Y" oldugunda boyuyor, Satırı "Y" veya "D" olanlar olarak düzeltmek istiyorum

If alan.Value >= kontrol And Trim(Right(alan.Offset(0, 3).Value, 1)) = "Y" Then alan.Interior.ColorIndex = 4  'YEŞİL

 

[cevatyildiz]

Satır renklendirme kodunda her satır değişikliği yaptıgımda kopyala ile hafızaya aldıgım bilgiler kayboluyor dolayısı ile yapıştır yapamıyorum, çözümü nedir?

 

[cevatyildiz]

Sol click yapıldıgında satır renklendirme çalışsın istiyorum ama yanlış mı başlatıyorum kodu?
Private Sub Worksheet_LeftClick(ByVal Target As Range)

 

[cevatyildiz]

Sorunları çözdüm yardımlarınız için teşekkürler