1. Ana Sayfa
  2. Yazılım

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

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

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.

İlginizi Çekebilir

Yorum Yap

Yorumlar (19)

  1. Murat Oksuz 9 yıl ö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

      • Çayhan AYDIN 5 yıl önce

        Aynı cevabı bende merak ediyorum

        • Osman Selçuk ASLAN 5 yıl ö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.

          • Tanju Sak 4 yıl ö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. GAYE KAPLAN 6 yıl önce

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

  5. Mustafa KUTLU 4 yıl ö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.

  6. Volkan Canpolat 3 yıl önce

    Aykut Bey Merhaba,
    Öncelikle ,yapmış olduğunuz bu paylaşım inanılmaz bir hayat kurtardı Yeni bir iş yerine başladım ve excel ile başım dertte idi bu bilgi bile hayat kurtardı.
    hakkınızı helal edin lütfen emeğinize yüreğinize sağlık
    Saygılarımla

  7. teşekkürler sayende yaptım.

    • Peki bu makro çalışırken sütün boyamayı nasıl yapabilirim? (yani işaretlediğim bir sütuna renk vermek istiyorum fakat olmuyor)

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir