- Katılım
- 17 Eki 2019
- Mesajlar
- 225
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Arkadaşlar Merhaba ;
Aşağıdaki kodla satır renklendirmesi yapıyorum ama;
a) Bu kodda değişiklik yaparak D2:BO56 aralığında renklenirme yapmak,
b) Sayfa korumalıyken de kodları çalıştırmak (korumalı sayfada çalışmıyor) için ne yapmalıyım. Saygılar.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
Cells.Interior.Color = xlNone
'Range(Cells(1, Target.Column), Cells(Rows.Count, Target.Column)).Interior.ColorIndex = 34
Range(Cells(Target.Row, 1), Cells(Target.Row, Columns.Count)).Interior.ColorIndex = 34
Target.Interior.ColorIndex = 36
End Sub
Aşağıdaki kodla satır renklendirmesi yapıyorum ama;
a) Bu kodda değişiklik yaparak D2:BO56 aralığında renklenirme yapmak,
b) Sayfa korumalıyken de kodları çalıştırmak (korumalı sayfada çalışmıyor) için ne yapmalıyım. Saygılar.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
Cells.Interior.Color = xlNone
'Range(Cells(1, Target.Column), Cells(Rows.Count, Target.Column)).Interior.ColorIndex = 34
Range(Cells(Target.Row, 1), Cells(Target.Row, Columns.Count)).Interior.ColorIndex = 34
Target.Interior.ColorIndex = 36
End Sub
