Soru hareket imleci rengi

incsoft

Altın Üye
Katılım
18 Ağustos 2009
Mesajlar
739
Excel Vers. ve Dili
Office Ev ve İş 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
12-12-2024
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.

Kod:
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

1554469101036.png
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.

Kod:
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.

Kod:
Option Explicit

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