- Katılım
- 17 Ağustos 2023
- Mesajlar
- 25
- Excel Vers. ve Dili
- 2021 / TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 17-08-2024
Merhaba, aşağıdaki kod ile seçili hücrenin satırını boyuyorum. Buraya kadar sorunum yok ama bu kodu çalıştırdığım anda koşullu biçimlendirme ile verdiğim tüm kenarlık ve dolgu koşullarını, dolgu rengini eile değiştirdiğim tüm hücrelerin dolgusunu kaldırıyor. Bunları kaldırmadan sadece seçili hücrenin satırını boyaması konusunda yardımcı olabilir misiniz ?
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Application.CutCopyMode <> xlCopy Then
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
End If
End Sub
Ekli dosyalar
-
21.3 KB Görüntüleme: 6