Bul komutu hücre rengi

[Sena Han]

Bir tabloda yüzlerce şahıs ismi mevcut. Bul komutu ile herhangi bir ismi aratınca, bulunan hücrenin iç renginin beyaz dışında farklı bir renk olmasını nasıl sağlayabilirim.

 

[Ömer]

Merhaba,

Makro kullanmadan Excelin imkanlarıyla yapabilirsiniz.

ctrl+f (bul menüsü)

"aranan" bölümüne aranacak değerleri yazıp "tümünü bul" seçeneğini işaretleyin. Bu işlemden sonra aynı menüden alt kısımda bulunan değerlerin hücre bilgileri gelecektir.
Bu bölümde herhangi bir satıra tıklayıp ctlr+A yaparsanız tüm bulunan değerler seçilir.

Artık istediğiniz renklendirme işlemini yaparsanız tüm bulunan değerler değişir.

.

 

[Sena Han]

teşekkür ederim Ömer Bey ancak yapmak istediğim örnek; X ismini aradım Bul komutu X olanları getirdi. Bu X isminin olduğu hücreyi farklı renkle göstersin ki ekranda bulunan alt alta onlarca isim arasından direkt görünsün. Sonra Y ismini aradığımda da bulunan Y isminin olduğu hücre rengi yine beyaz taban renginden farklı olsun ki ekranda nerede aramayayım. Bunu nasıl yapabilirim bilginiz var mıdır?

 

[u.L.a.s]

Find and Replace ile bunu yapabilirsin yani bul ve değiştir.

Find kısmına aratmak istediğin değeri yazarsın. örneğin xxx yazdın.
Değiştirmek yani replace yapmak istediğin değerede xxx yazarsın ama replace de format belirlersin. format butonuyla açılan pencerede fill yani doldurma rengini istediğin bir renk seçip replace all yani tümünü değiştir dersen istediğin gibi aradığın değer renklenmiş olur.

 

[Sena Han]

TEŞEKKÜRLER u.L.a.s
BU ÇOK İŞİME YARADI.

 

[Sena Han]

Aşağıda linki bulunan http://aykutozdemir.com.tr sitesinden benim gibi ihtiyacı olanlar için; kendisine teşekkür ederim


Excelde Aktif Satır ve Sütunun Rengini Değiştirme
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 exel 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.




http://aykutozdemir.com.tr/wordpress/excelde-aktif-satir-ve-sutunun-rengini-degistirme.html

 

[u.L.a.s]

aşağıdaki linkte dosyada bu kodları ekledim
bu kodları vba olarak eklemek için alt+f11 tuşuna basarak visual basic düzenleyicisi açılması gerekiyor. hangi sayfada bu kodun aktif olmasını istiyorsan o sayfaya çift tıklayarak bu kodları yapıştır sonra o sayfada fareyi tıkladığın zaman seçili hücrenin renginin ve seçili hücrenin bağlı oluğu satırın ve sütunun renginin değiştiğini göreceksin.

aşağıdaki resimdede alt+f11 le yada geliştirici menüsünden visual basice nasıl ualacağını ve kodları nereye yapıştıracağını gösterdim. ve sonuçta excel sayfasının içindeki gibi olacaktır.

http://s7.dosya.tc/server2/ecs9bm/deneme.rar.html

 

[WGenzo]

bunu satırın sonunna kadar değil de tablonun uzunluğu kadar seçilecek şekilde nasıl yaparız. Örnek olarak tablomuzun yer aldığı sütun aralığı kadar satırı seçecek ve dinamik olcak yeni sütun eklendiğinde de o satır seçimi değişecek

 

[necati]

bunu satırın sonunna kadar değil de tablonun uzunluğu kadar seçilecek şekilde nasıl yaparız. Örnek olarak tablomuzun yer aldığı sütun aralığı kadar satırı seçecek ve dinamik olcak yeni sütun eklendiğinde de o satır seçimi değişecek

Merhaba, sadece tablo içinde geçerli olanı:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.ColorIndex = xlColorIndexNone
If IsEmpty(Target) Or Target.Cells.Count > 1 Then Exit Sub
With ActiveCell
    Range(Cells(.Row, .CurrentRegion.Column), Cells(.Row, .CurrentRegion.Columns.Count + .CurrentRegion.Column - 1)).Interior.ColorIndex = 17
    Range(Cells(.CurrentRegion.Row, .Column), Cells(.CurrentRegion.Rows.Count + .CurrentRegion.Row - 1, .Column)).Interior.ColorIndex = 19
    ActiveCell.Cells.Interior.ColorIndex = 4
End With
End Sub