İlk 2 satırdan sonrasında çalıştırabilirmiyiz?

[Mdemir63]

Arkadaşlar Merhabalar,

Aşağıdaki Hücre renklendiren kodlarda ilk 2 satırdan sonrasının renklendirilmesi için nasıl bir değişiklik yapabiliriz?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.Interior.ColorIndex = 38
End Sub


Saygılar

 

[Necdet]

Merhaba,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row < 3 Then Exit Sub
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.Interior.ColorIndex = 38
End Sub

 

[Mdemir63]

Merhaba,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row < 3 Then Exit Sub
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.Interior.ColorIndex = 38
End Sub

Selamlar,
Necdet abi elinize sağlık ama ilk iki satırdaki renkli bölümü kod çalıştığında rengini değiştiriyor ben ise ilk iki satırdaki rengin sabit kalmasını istiyorum.

Saygılar

 

[Recep İpek]

A&#351;a&#287;&#305;daki kodu deneyebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Intersect(Target, [A3:H100]) Is Nothing Then
[A3:H100].Interior.ColorIndex = xlColorIndexNone
Exit Sub
End If
[A3:H100].Interior.ColorIndex = xlColorIndexNone
ActiveCell.Interior.ColorIndex = 38
End Sub

 

[Mdemir63]

Aşağıdaki kodu deneyebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Intersect(Target, [A3:H100]) Is Nothing Then
[A3:H100].Interior.ColorIndex = xlColorIndexNone
Exit Sub
End If
[A3:H100].Interior.ColorIndex = xlColorIndexNone
ActiveCell.Interior.ColorIndex = 38
End Sub

Selamlar,

Hocam çok teşekkürler

Saygılar

 

[Recep İpek]

Rica ederim.

H&#252;cre renklendirme ile ilgili daha detayl&#305; &#231;al&#305;&#351;mam&#305; a&#351;a&#287;&#305;daki linkte bulabilirsiniz.

http://www.excel.web.tr/showthread.php?t=14377