Soru hareket imleci rengi

[incsoft]

Ben biraz daha fonksiyonel olsun diye satır ve sütun renklendirmesini de dahil etmiştim.

Sadece aktif hücre için aşağıdaki kodu deneyiniz.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
  
    Cells.FormatConditions.Delete
  
    With ActiveCell
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 3
    End With
End Sub

son 1 ufak sorum daha olabilirmi hocam? Renkler yazdırmayı etkileyemezmi? Sadece görmemi sağlasın yazdırmada o renk sayfaya yansımasın

 

[incsoft]

çok teşekkürler.

yazdırma yaptığında renk yazdırma dışında görülebilirmi hocam?

Ekli dosyayı görüntüle 205049

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümünü aşağıdaki kod ile güncelleyin.

Eklediğim kod ile herhangi bir hücreye çift tıkladığınızda renklendirme kalkacaktır. Daha sonra yazdırma işlemi yapabilirsiniz.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cells.FormatConditions.Delete
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    
    Cells.FormatConditions.Delete
    
    With ActiveCell
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 3
    End With
End Sub

Ayrıca aşağıdaki koduda dosyanızın ThisWorkBook bölümüne uygularsanız yazdırma işleminde yine renk otomatik olarak kaldırılacaktır.

Bir önceki adımı atlayıp yazdırma işlemi yaptığınızda aşağıdaki kod yine devreye girip renklendirmeyi kaldıracaktır.

Kod içinde sayfa adını kendinize göre revize etmeyi unutmayınız.

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = "Sheet2" Then
        Cells.FormatConditions.Delete
    End If
End Sub