Aynı sayfada 56 koşullu biçimlendirme ve aktif satır renklendirmesi

[CAFERCİFTCİ]

Değerli üstadlar,
56 Koşullu biçimlendirme yaptığım sayfada aynı zamanda aktif satırın da renklenmesini istiyorum ama beceremiyorum.Yardımcı olabilirmisiniz?

 

[Orion1]

Rows(ActiveCell.Row).Interior.Color = vbYellow

 

[leumruk]

Cafer Bey,
Koşullu biçimlendirme, makro karışımı bir çalışma yaptım. Aşağıdaki kodları çalışma kitabınızın ilgili sayfasının kod bölümüne kopyalayın.
Ben J sütununa yani 10. sütuna kadar renklendirme yaptım. Sütun sayısını artırmak veya azaltmak isterseniz kırmızı ile belirttiğim kısımları kendinize göre değiştirin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1" & ":" & "[COLOR="Red"]j[/COLOR]" & [a65536].End(3).Row)) Is Nothing Then
Range("a1" & ":" & "[COLOR="red"]j[/COLOR]" & [a65536].End(3).Row).FormatConditions.Delete
Exit Sub: End If
    Dim Satır As Range
    If ActiveCell.Row > [a65536].End(3).Row Then Exit Sub
    Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, [COLOR="red"]10[/COLOR]))
    Range("a1" & ":" & "[COLOR="red"]j[/COLOR]" & [a65536].End(3).Row).FormatConditions.Delete
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    With Satır
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Interior.ColorIndex = 8
    End With
End Sub

 

[CAFERCİFTCİ]

Mustafa Hocam,
İlginize bir kez daha teşekkür ediyorum.Çalışma sayfamın kod kısmında(sayfa1 ) 56 koşullu biçimlendirmenin kodu var.Ben bu kodu nereye yazmalıyım bu durumda,çok iyi anlayamadım sanırım.Lütfederseniz sevinirim,saygılarımla..

 

[leumruk]

Mustafa Hocam,
İlginize bir kez daha teşekkür ediyorum.Çalışma sayfamın kod kısmında(sayfa1 ) 56 koşullu biçimlendirmenin kodu var.Ben bu kodu nereye yazmalıyım bu durumda,çok iyi anlayamadım sanırım.Lütfederseniz sevinirim,saygılarımla..

Aynı kısma ekleyeceksiniz. Belirttiğiniz koddan hemen sonraki kısma ekleyebilirsiniz.

 

[CAFERCİFTCİ]

Mustafa Hocam,
Bu da mükemmel oldu.Sayenizde çok şey öğreniyorum.Allah Razı Olsun sizden.Hızır gibi yetişiyorsunuz.Birkaç defa sormadan gayet net cevaplar veriyorsunuz.Emeğinize,yüreğinize sağlık.En içten saygılarımla...

 

[leumruk]

Mustafa Hocam,
Bu da mükemmel oldu.Sayenizde çok şey öğreniyorum.Allah Razı Olsun sizden.Hızır gibi yetişiyorsunuz.Birkaç defa sormadan gayet net cevaplar veriyorsunuz.Emeğinize,yüreğinize sağlık.En içten saygılarımla...

Rica ederim. Faydalı olabiliyorsak ne mutlu. Saygı bizden...

 

[CAFERCİFTCİ]

İyi akşamlar Mustafa Hocam..