Satır Renklendirme

[denksal]

Merhaba altdaki kodu revize edermisiniz ? 1 ve 2 satırı renklendirmeyecek . teşekkürler

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.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

 

[ÖmerFaruk]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Row < 3 Then Exit Sub 'ilave satırınız'
    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

 

[denksal]

Ellerine sağlık bir sorum daha olacak , 1 ve 2 satır da benim manuel olarak dolgu rengini siliyor düzeltebilirmiyiz

 

[ÖmerFaruk]

Deneyin lütfen

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Row < 3 Then Exit Sub
    Range(Cells(3, 1), Cells(Application.Rows.Count, Application.Columns.Count)).Interior.ColorIndex = xlColorIndexNone
    Range(Cells(3, ActiveCell.Column), Cells(Application.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

 

[denksal]

teşekkür ederim sorun düzeltildi.

 

[hyilmaz27]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Row < 3 Then Exit Sub 'ilave satırınız'
    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

aktif hücre çerçevesini / bulunduğu satır sütunu renk değil de border/çizgi ile öne çıkarmak mümkün mü ?

 

[Korhan Ayhan]

Bu işlem için koşullu biçimlendirme kullanabilirsiniz. Fakat kendi dosyanızda başka koşullu biçimlendirme varsa bunlar silineceği için dikkatli kullanmanız gerekir.

Bir örnek dosya hazırladım. İncelersiniz. Kullanımınız için uygunsa dosyanıza uyarlarsınız. Sayfa tanımlayarak istediğiniz sayfalarda çalışmasını sağlayabilirsiniz. Gerekirse alan kısıtlaması da yapılabilir.

 

[Korhan Ayhan]

Bu örnek dosyada ise imlecin bulunduğu satır ve sütun koşullu biçimlendirme yöntemiyle kenarlık içine alınarak belirgin hale getiriliyor.

Dosyanın tamamında çalışacak şekilde kurgulanmıştır.

 

[muratback]

Peki @Korhan Ayhan
daha önce dolgu rengi olmuş kodları bu kodu çalıştırınca kaybediyorum veya bu kod çalışırken sütun renklendirme yapamıyorum...

Bunu nasıl yapabilirim?

 

[Korhan Ayhan]

Bu sorunuz hangi kod için?

 

[muratback]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Row < 3 Then Exit Sub 'ilave satırınız'
    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 sorunuz hangi kod için?

buradaki kod için

 

[Korhan Ayhan]

İnceleyiniz.

Arama Sonuçları

 

[muratback]

@Korhan Ayhan link gözükmüyor

 

[Korhan Ayhan]

Mesajımdaki yazının (Arama Sonuçları) üstüne tıkladığınızda ilgili konuları görebilirsiniz.

 

[muratback]

abi tıklayınca boş sayfaya atıyor onu kast ediyorum direk konu linkini atsan olmazmı @Korhan Ayhan

 

[Korhan Ayhan]

Afedersiniz. (Kopyala-yapıştır kurbanı oldum.)

Tekrar revize ettim. Deneyiniz.

 

[muratback]

@Korhan Ayhan abi bu sonuçlar benim gördüğüm sonuçlar ben anlatam

 

[Korhan Ayhan]

Verdiğim linkteki konuları detaylıca incelediniz mi?

Eğer yinede yetersiz gelirse aşağıdaki konuları inceleyebilirsiniz.

Sorgu için arama sonuçları: static+renk

www.excel.web.tr