Koşullu biçimlendirme...

[kaya41]

Merhaba.
Herkesin geçmiş bayramı mübarek olsun.

Koşullu biçimlendirmede kullanmış olduğum bir kod var. Bu kodu sayfa aktif olduğunda çalıştırmak istiyorum hata alıyorum.

Sayfaya girdiğimde J sütununda 0 dan büyük olan yani benim açımdan rakam girilmiş olan alanların renklendirmesini sağlamak.
Başka bir sayfada da aynı kodu kullanarak J sütununda tamamlandı yazanların renklendirmesini yapmak istiyorum.

kodu aşağıdaki satırların arasına yazınca hata alıyorum.
Private Sub Worksheet_Activate()
End Sub

Konuyla alakalı yardımlarınızı rica ediyorum.

Kullandığım kod

If Not Intersect(Target, [J:J]) Is Nothing Then
On Error GoTo Son
    'Renklendirme yapacağınız aralığı
adr = "A" & Target.Row & ":GK" & Target.Row
Select Case Target

Case Is > 0: Range(adr).Interior.ColorIndex = 37
    'Boş satır renklendirmesi
Case "": Range(adr).Interior.ColorIndex = non
End Select
Son:

    
End If

 

[Ömer BARAN]

Merhaba.

Alt taraftan uygulamayı istediğiniz sayfaların adlarına sırayla sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranının sağ tarafındaki oş alana mavi renklendirdiğim kod blokunu yapıştırın.

Sonra da VBA ekranındayken INSERT menüsenden MODULEyi seçin ve
kırmızı olan kod blokunu da eklenen modül bölümüne (yine sağ taraftaki boş alan) yapıştırın.

Artık sayfa aktive olduğunda J sütununda "tamamlandı" yazanlar ile 0'dan büyük sayı olan satırlarda A:GK sütunları renklenecektir.
.

[COLOR="Blue"][FONT="Arial Narrow"]Private Sub Worksheet_Activate()
    Call RENK
End Sub[/COLOR]

[COLOR="Red"]Sub RENK()
Cells.Interior.Color = xlNone
For brn = 1 To [J65536].End(3).Row
    If IsNumeric(Cells(brn, "J")) = True And Cells(brn, "J") > 0 Or _
        UCase(Replace(Cells(brn, "J"), "ı", "I")) = "TAMAMLANDI" Then _
            Range("A" & brn & ":GK" & brn).Interior.ColorIndex = 37
Next
End Sub[/FONT][/COLOR]

 

[kaya41]

Büyük adamsınız.
Teşekkürler.

 

[Ömer BARAN]

Büyük adamsınız.
Teşekkürler.

Estağfurullah, iyi günler dilerim.