Çözüldü ilgili hücrenin boyanması ve çıktıya yansımaması

Koşullu biçimlendirmede

=SATIR()=HÜCRE("sat") formülü ile ilgili satırı renklendirip


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Calculate
End Sub

ile renkli olmasını sağlıyorum ancak renk çıktılara da yansıyor. Sadece ekranda gözükip çıktılara yansımaması için ne yapabirilim arkadaşlar? =SATIR()=HÜCRE("sat") de satır yerine ilgili hücre boyanabilirmi? Teşekkürler.

ThisWorkbook kod penceresine bu kodu yapıştırın;

Sayfanın kod kısmına da bu kodları yapıştırın;

Murat OSMA' Alıntı:

ThisWorkbook kod penceresine bu kodu yapıştırın;

C++:Panoya kopyala

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cells.FormatConditions.Delete
End Sub

Sayfanın kod kısmına da bu kodları yapıştırın;

C++:Panoya kopyala

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Columns("A:J")
        .FormatConditions.Add Type:=xlExpression, Formula1:="=SATIR()=HÜCRE(""sat"")"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent4
            .TintAndShade = 0.799981688894314
        End With
    End With
End Sub

Genişletmek için tıkla ...

Neden olmuyor Murat bey? Birde orjinal sayfamda oldu ancak renk çıktılara yansıyor yine

Bu kodları yanlış yere yapıştırmışsınız.
BuÇalışmaKitabı yazan yere yapıştırıp akabinde gerçekten bir çıktı alıp görebilirsiniz.

Murat OSMA' Alıntı:

Bu kodları yanlış yere yapıştırmışsınız.
BuÇalışmaKitabı yazan yere yapıştırıp akabinde gerçekten bir çıktı alıp görebilirsiniz.

C++:Panoya kopyala

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cells.FormatConditions.Delete
End Sub

Genişletmek için tıkla ...

Oldu Murat bey ancak enter ile satır atlamalarında çok aşırı yavaşlama oluyor. Çok seri bir kullandığımız dosya olduğundan dolayı zaman kaybına neden olur. Eğer yavaşlama olmazsa çok güzel. Teşekkürler

Sebebine bakmak lazım. İşinizi çözdüyse şu an için ne mutlu.