1. Ana Sayfa
  2. Yazılım
  3. Excelde Aktif Satır ve Sütunun Rengini Değiştirme

Excelde Aktif Satır ve Sütunun Rengini Değiştirme

featured

Geçenlerde, yatayda ve dikeyde oldukça uzun bir dosyada çalışırken böyle birşeye ihtiyaç duydum. Aynı şekilde, fazla satır ve sütunların içinde kaybolan excel kullanıcıları için basit bir çözüm:

 

 

 

 

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

Bu kodu çalıştığınız sayfaya eklemeniz yeterlidir. Renk kodlarını kendi zevkinize göre ayarlayabilirsiniz.

Kodu Nasıl Ekleyeceğim ?

Aşağıdaki sekme ismine sağ tıklayıp (Sayfa 1, Sayfa 2), “kod görüntüle” seçeneğine tıkladıktan sonra açılan pencereye kodu girip pencereyi kapatınız.

Yorum Yap

Yorum Yap

Yorumlar (15)

  1. 6 sene önce

    Selamlar;
    Aykut bey yukarıdaki kod çok işime yaradı. Teşekkür ediyorum. Yalnız bir sorum var. Bu kodla çalışırken daha önceden renklendirdiğim hücre renklerini kaybediyorum. Bu kodu kullanırken daha önceden işaretlediğim değişik biçimlerin kaybolmasını nasıl engellleybiliriz ? Kolay gelsin , iyi çalışmalar…

    • Çözebilirsem paylaşacağım mailden

      • 3 sene önce

        Aynı cevabı bende merak ediyorum

        • 2 sene önce

          Private Sub Worksheet_SelectionChange(ByVal Target As Range)
          Cells.FormatConditions.Delete
          Target.EntireRow.FormatConditions.Add xlCellValue, xlNotEqual, “=””@”””
          Target.EntireRow.FormatConditions(1).Interior.ColorIndex = 28
          End Sub

          Bu kod işinizi görecektir.

          • 2 sene önce

            yukarıdaki Target.EntireRow.FormatConditions.Add xlCellValue, xlNotEqual, “=””@””” kısmı kırmızı oluyor hata veriyor

  2. İnsanların solidworks, 3dsMax, SAP2000 vs programlarda ağ üzerinden simülasyon yapıp interaktif panaromalar hazırladığı bu devirde, zaten olması gereken (bence) böyle basit bi özellik için screiptler yazmak kodlar ezberlemek zorunda kalmak ne kadar saçma. Koskoca MS Office “seçili hücreyi vurgula” diye bir checkbox yapamamışmı ribondaki görünüm menüsüne. Her excell açtığımızda miras gibi sakladığımız wordpaddeki kodumu kopyalayıp yapıştırcaz? Bu arada sitemim size değil, Excelin hantallığına. ağzınıza sağlık.

    • Haklısınız; eski versiyon için yazmıştım bunu. Güncel versiyonlarda böyle birşey var mı bilmiyorum. Ben halen denk gelmedim açıkcası. Siteminiz gayet yerinde.

  3. ÇOK TEŞEKKÜRLER AYKUT BEY. YAZINIZ MÜKEMMEL

  4. 3 sene önce

    Merhaba çok teşekkürler.
    Komut girdiğimde geri al tuşu (ctrl+z) işlevliğini yitiriyor. Kontrol eder misiniz.

  5. 1 sene önce

    merhaba benim sizden rica ctrl F ile bulduğumuz herhangi bir şeyi bulduğunda renklendirmesini istiyorum.
    şimdiden teşekkür ederim.

    • Şu işinize yarar mı :

      CTRL+F ile aranacak kelimeyi yazınız
      Tümünü bul seçeneğine tıklayınız
      Bulunan listede CTRL+A ya basınız
      Bulunan tüm hücreler seçili hale gelir. KApat dediğinizde de boyayarak hepsini renklendirebilirsiniz.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir