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.
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
Aynı cevabı bende merak ediyorum
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.
yukarıdaki Target.EntireRow.FormatConditions.Add xlCellValue, xlNotEqual, “=””@””” kısmı kırmızı oluyor hata veriyor
İ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.
ÇOK TEŞEKKÜRLER AYKUT BEY. YAZINIZ MÜKEMMEL
Merhaba çok teşekkürler.
Komut girdiğimde geri al tuşu (ctrl+z) işlevliğini yitiriyor. Kontrol eder misiniz.
Merhabalar
bende böyle bir sorun olmadı, malesef bilgim yok
Excel’de herhangi bir makro çalıştığında, Geri Al geçmişi silinir. Sebebi budur Gaye hanım.
Maalesef geri al tuşu çalışmıyor, kod girildiğinde.
Sena Hanım, Engin Bey’in cevabına bakınız.
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.
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
Estafullah, yardımı dokunduysa ne mutlu bana. Yeni işinize başarılar dilerim :)
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)