ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[nasrullah]

Merhabalar,
Excel üzerinde aktif sayfamda seçtiğim hücreyi renklendirme ile ilgili bir sorun yaşamaktayım. Bir tablom mevcut ve kişiselleştirilmiş dolgulu olan bu tablo aşağıdaki belirtilen kodu yazdığımda tablomun başlıklar kısmında bulunan renklendirmemi de bozuyor. Bunu düzeltmek yada engellemek için ne yapabilirim, yardımlarınızı bekliyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireColumn.Interior.ColorIndex = 19 'Sütun Rengi
ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
End Sub

[nasrullah]

Merhabalar,
Excel üzerinde aktif sayfamda seçtiğim hücreyi renklendirme ile ilgili bir sorun yaşamaktayım. Bir tablom mevcut ve kişiselleştirilmiş dolgulu olan bu tablo aşağıdaki belirtilen kodu yazdığımda tablomun başlıklar kısmında bulunan renklendirmemi de bozuyor. Bunu düzeltmek yada engellemek için ne yapabilirim, yardımlarınızı bekliyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireColumn.Interior.ColorIndex = 19 'Sütun Rengi
ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
End Sub

Bu formülü 2 satırdan itibaren kullanmam gerekiyor sadece ilk iki satırda bu formülün uygulanmaması gerekiyor.

[okutkan]

Hangi hücreleri bu renklendirme kodundan muaf tutmanız gerekiyor?

[Miraç CAN]

Deneyin:

Kod: Tümünü seç

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Rows("2:" & Rows.Count).Interior.ColorIndex = xlColorIndexNone
If Target.Row < 2 Then Exit Sub
Range(Cells(2, ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column)).Interior.ColorIndex = 19 'Sütun Rengi
ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
End Sub

[Miraç CAN]

İlk iki satıra uygulanmasın istiyormuşsunuz; Burada ki 2 leri 3 yapın.

Kod: Tümünü seç

If Target.Row < 2 Then Exit Sub
Range(Cells(2, ActiveCell.Column)...

[nasrullah]

İlk iki satıra uygulanmasın istiyormuşsunuz; Burada ki 2 leri 3 yapın.

Kod: Tümünü seç

If Target.Row < 2 Then Exit Sub
Range(Cells(2, ActiveCell.Column)...

Miraç Bey Merhabalar,
Öncelikle yardımınız için teşekkür ederim. Formül çalıştı, ilk iki satırda herhangi bir işlem yapmıyor ancak yine de tablo içerisinde bir yere tıkladığımda başlıklarımın renklendirmesini siliyor.

[Miraç CAN]

Burada ki değişikliği yazmayı unutmuşuz; Rows("2:" & Rows.Count)... buradaki 2 de 3 olacak.

[nasrullah]

Burada ki değişikliği yazmayı unutmuşuz; Rows("2:" & Rows.Count)... buradaki 2 de 3 olacak.

Miraç Bey, elinize sağlık. Tam istediğim gibi oldu, çok teşekkür ederim.