Satır Renklendirilmesi

[abone0069]

Sn. Arkadaşlar

Excelde benim zorlandığım bir konu var. O da şu konu; ben hangi hücrede olursam olayım o hücrenin satırının rakamlara kadar renklenmesini istiyorum. Bunu neden istediğime gelince o kadar çoklu listede bazen dikkatim dağılıyor. Hangi satırda olduğumu anlamakta zorlanıyorum. Oysaki bir renkelndirme söz konusu olsa ben hangi satırda oldğumu görerek işlerimi daha hızlı yapabilme imkanına kavuşacağım.
Örnek ekte olup bu konuda yardımcı olacak arkadaşlara şimdiden teşekür ederim. Kod mu yazılacak yoksa modül mü oluşturalacak anlayamadım.Saygılar

 

[Necdet]

Merhaba,

Aşağıdaki linkleri inceleyebilirsiniz

aktif hücrenin bulunduğu satır renklensin

http://www.excel.web.tr/showthread.php?t=14377

 

[abone0069]

Sn. Necdet Yeşertener

İlginiz için teşekür ederim. Vermiş olduğunuz linkleri inceledim fakat benim isteğime cevap verecek örnek bulamadım. Ben biraz eksik anlattım galimba ben hangi hücrede isem o hücrenin satırları aktif olan hücreye kadar renklenmesini istiyorum. Örnekte olduğu gibi arz ederim.

 

[Necdet]

Sorunuzu tam olarak anladım mı bilmiyorum.

Vermiş olduğum linkteki kodları aşağıdaki değiştirdim. Kodları ilgili sayfanın kod bölümüne kopyalayınız
Umarım işinize yarar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Cells.Interior.ColorIndex = 0  'Turn off previous use
   If Cells(1, 1) = "." Then Exit Sub
   Range(Cells(2, 1), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 38
End Sub

 

[abone0069]

Sn. Necdet Yeşertener

Gerçekten teşekür ederim zamanınızı ayırdığınız için tam istediğim gibi oldu. yalnızca küçük bir sorum var. Ben hangi hücrede isem sade o hücrenin satırını renklendirsin istiyorum. Hücre değiştirince eski hücrenin satırının normala dönmesini istiyorum... Saygılar. (Amacım sadece o hücrenin satırını kontrol edebilmektir.)

 

[Necdet]

Merhaba,

Basit bir değişiklik sizin istediğini yapar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0 'Turn off previous use
If Cells(1, 1) = "." Then Exit Sub
Range([B][COLOR=red]Cells(Target.Row, 1)[/COLOR][/B], Cells(Target.Row, Target.Column)).Interior.ColorIndex = 38
End Sub

 

[abone0069]

Teşekür ederim

Gerçekten büyüksünüz üstad çok teşekür ederim. Saygılar...

 

[betoncu]

Mevcut Hücre Rengi Siliniyor

Merhaba,

Basit bir değişiklik sizin istediğini yapar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0 'Turn off previous use
If Cells(1, 1) = "." Then Exit Sub
Range([B][COLOR=red]Cells(Target.Row, 1)[/COLOR][/B], Cells(Target.Row, Target.Column)).Interior.ColorIndex = 38
End Sub

Sayın Necdet bey verdiğiniz kod gayet işe yarar bir kod elinize sağlık.
Fakat şöyle bir sıkıntı var:
Boyalı hücrelere gidince seçili hücrenin rengi siliniyor.
Satırı boyama yerine seçili hücreye kadar satırı seçili halde gösteren bir kod varmıdır?

 

[rekkezum]

hocam pekı bunu sutununuda renklendırmek mumkunmudur...?

 

[Necdet]

hocam pekı bunu sutununuda renklendırmek mumkunmudur...?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0 'Turn off previous use
If Cells(1, 1) = "." Then Exit Sub
[B]Columns(Target.Column).Interior.ColorIndex = 39
[/B]Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 38
End Sub

 

[Necdet]

Sayın Necdet bey verdiğiniz kod gayet işe yarar bir kod elinize sağlık.
Fakat şöyle bir sıkıntı var:
Boyalı hücrelere gidince seçili hücrenin rengi siliniyor.
Satırı boyama yerine seçili hücreye kadar satırı seçili halde gösteren bir kod varmıdır?

Merhaba,

Aşağıdaki kodları yine ilgili sayfanın kod bölümüne kopyalayınız. Biraz geç oldu ama kusuruma bakmayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1) = "." Then Exit Sub
Application.EnableEvents = False
Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Select
Application.EnableEvents = True
End Sub

 

[betoncu]

Satır Renk Sorunu

Merhaba,

Aşağıdaki kodları yine ilgili sayfanın kod bölümüne kopyalayınız. Biraz geç oldu ama kusuruma bakmayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1) = "." Then Exit Sub
Application.EnableEvents = False
Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Select
Application.EnableEvents = True
End Sub

Sn. Necdet bey ilginize teşekkür ederim. Güzel bir çalışma olmuş.
Yalnız bir sıkıntı daha çıktı:
Bu sefer de tab tuşu ile veya yön tuşları ile ilerleme yapmak istediğimde bu işlemi gerçekleştiremiyorum.
Yardımlarınızı bekliyorum...

 

[betoncu]

Ayrıce istediğim hücreye değerde giremiyorum.

 

[Necdet]

Ayrıce istediğim hücreye değerde giremiyorum.

Bu soruyu anlamadım. Seçilen hücrelere veri girilebiliyor, seçim dışı hücrelere veri girilmesinden sözediyorsanız o sanırım olası değil.

 

[betoncu]

Mouse İle En Son Hangİ HÜcreyİ SeÇtİsenİz O HÜcre İle En BaŞ HÜcre Arasinda Enter TuŞu İle İlerleyerek Verİ GİrİŞİ MÜmkÜn.
Bİr Alt Satira Verİ Gİrmek İstedİĞİmde Ok TuŞu İle AŞaĞi İndİrİnce Satirin İlk HÜcresİne Gİdİyor Orda Kaliyor.
Tab TuŞu Veya SaĞ Sol Oklar İle İlerleme Yapilamiyor.

 

[NBATMAN]

GÜNAYDIN NECDET BEY,
benim bu konu ile ilgili başka bir isteğim olacak sizden, satırdaki ( benim kullandığım 15 hücre var bu satırda) belli bir hücrenin veya hücre aralığının boş olması durumunda bir renk ile dolu olması durumunda başka bir renk ile renklendirilmesini istiyorum yardımlarınızı bekliyorum. Saygılarımla ilginize şimdiden teşekkürler...

 

[zekigarden]

Güzel bir çalışma ellerinize sağlık. Bende bu kodları denemek istedim boş olan yani yeni bir excel safyasında istediğim sonucu alıyorum fakat formül girilmiş ve bazı hücreleri korumalı olan bir excel sayfasında kodlar işlem yapmıyor. Korumayı kaldırdım yine olmadı acaba formül oaln sayfalarda bu kodlar geçersizmi.