Eski renkleri silmeden satır ve sütun renklendirme var mı?

[mehmeser]

Merhaba,

daha önce isteğim üzere bir uzman kodları verdi ve o an işim gördü.

Bir hücrede iken o hücreninve o hücreye kadar olan satır ve sütunun renklendirilmesini istiyorum. Bana verilen kodları uygulayınca eski renklerimi siliyor ama.

Varolan renklendirmeleri bozmadan bulunğum yeri belirtecek bir renk uygulaması arıyorum var mı böyle bir şey ?

teşekkürler.

 

[janveljan]

İstediğiniz şeyi koşullu biçimlendirme kullanarak yapıyor, ancak bu durumda da önceki koşullu biçimlendirmeler silinecektir. Aşağıda iki farklı örnek var. Kodları sayfanın kod bölümüne yapıştıracaksınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.FormatConditions.Delete
    Range(Cells(Target.Row, 1), Target).FormatConditions.Add xlCellValue, xlNotEqual, "=""@"""
    Range(Cells(Target.Row, 1), Target).FormatConditions(1).Interior.ColorIndex = 36
    Range(Cells(1, Target.Column), Cells(Target.Row - 1, Target.Column)).FormatConditions.Add xlCellValue, xlNotEqual, "=""@"""
    Range(Cells(1, Target.Column), Cells(Target.Row - 1, Target.Column)).FormatConditions(1).Interior.ColorIndex = 36
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.FormatConditions.Delete
    Range(Cells(1, 1), Target).FormatConditions.Add xlCellValue, xlNotEqual, "=""@"""
    Range(Cells(1, 1), Target).FormatConditions(1).Interior.ColorIndex = 36
End Sub

 

[mehmeser]

ilk kod istediğim şey. Bir de bunu tüm satır ya da istediğim satıra kadar,

aynı şekilde tüm sütun ya da istediğim sütuna kadar renklendirmesini nasıl sağlayabilirim ?

bir de içinde bulunulan aktif hücrenin renklenmesini ve çıkınca eski rengine dönmesini istiyorum. Yine eski rengini koruyarak.

Teşekkürler.

 

[janveljan]

Aşağıdaki kod gruplarını ayrı ayrı kullandığınızda istediğiniz işlemleri yapar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.FormatConditions.Delete
    
    'Seçili hücreye kadar satırı seçer
    'Range(Cells(Target.Row, 1), Target).FormatConditions.Add xlCellValue, xlNotEqual, "=""@"""
    'Range(Cells(Target.Row, 1), Target).FormatConditions(1).Interior.ColorIndex = 36
    
    'Seçili hücreye kadar sütunu seçer
    'Range(Cells(1, Target.Column), Target).FormatConditions.Add xlCellValue, xlNotEqual, "=""@"""
    'Range(Cells(1, Target.Column), Target).FormatConditions(1).Interior.ColorIndex = 36
    
    'Tüm satırı seçer
    'Target.EntireRow.FormatConditions.Add xlCellValue, xlNotEqual, "=""@"""
    'Target.EntireRow.FormatConditions(1).Interior.ColorIndex = 36
    
    'Tüm sütunu seçer
    'Target.EntireColumn.FormatConditions.Add xlCellValue, xlNotEqual, "=""@"""
    'Target.EntireColumn.FormatConditions(1).Interior.ColorIndex = 36
    
    'Seçili hücreyi seçer
    Target.FormatConditions.Add xlCellValue, xlNotEqual, "=""@"""
    Target.FormatConditions(1).Interior.ColorIndex = 36
End Sub

 

[mehmeser]

aşağıda verdiğim kısım hata verdi bende:

'Tüm sütunu seçer
'Target.EntireColumn.FormatConditions.Add xlCellValue, xlNotEqual, "=""@"""
'Target.EntireColumn.FormatConditions(1).Interior.ColorIndex = 36

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Örnek dosyanın 1. sayfasında tüm satır-sütun renklenmektedir.
Örnek dosyanın 2. sayfasında aktif hücrenin bulunduğu satıra ve sütuna kadar renklenmektedir.

Not: Kodlar sayfadaki tüm Koşullu Biçimlendirmeleri silerek renklendirme işlemini yapmaktadır. Bu sebeple koşullu biçimlendirme kullandığınız dosyalarda kodları kullanmayınız.

 

[janveljan]

aşağıda verdiğim kısım hata verdi bende:

'Tüm sütunu seçer
'Target.EntireColumn.FormatConditions.Add xlCellValue, xlNotEqual, "=""@"""
'Target.EntireColumn.FormatConditions(1).Interior.ColorIndex = 36

Her kod grubunu yalnız başına kullanmanız gerekir aksi takdirde hata verir.

 

[mehmeser]

Teşekkürler Korhan Ayhan, önceki örneğimi de siz vermiştiniz zaten ama eski mesajımı bulamadım silinmişti. (Arşiv)

Sizden ricam bir de seçili hücreye kadar olan ksımı nasıl yaparız ? Bazı sayfalarda tüm satır ya da sürun bazılarındaysa hücreye kadar renklendirme lazım ? Yani seçli hücreye kadar satır ve sütun.

Sonra ben değiştirerek satır yarım sütun tam, sütun tam satır yarım gibi farklı şekillerini de gerektikçe kullanıyorum.

Sayın janveljan'a teşekkürler. Fakat her ikisini birden kullanmam lazım.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı ve açıklamaları güncelledim. İncelermisiniz.

 

[mehmeser]

Elinize sağlık, teşekkürler. Yatmadan yine bir bakayım dedim bu saatte ve cevap gelmiş. Teşekkürler. Diğer verdiğiniz sayfa arama ile birleştiridim bunu çok rahat bir çalışma ortamı oldu.

Esen kalın, selametle.

 

[mehmeser]

Merhaba, kullanım sırasında bir hücre kopyaladıktan sonra diğer hücreye geçince pano boşalıyor. Yani renklendirmeden önce kopyalanan kısmı siliyor. Bu önlenebilir mi ?

Bir de (ek ders hazırlıyorum bu sayfa ile), en üst satırda ayın günleri sıralı olarak var. F3'ten AJ3'e kadar. Bunlardan Cumartesi ve pazar günlerinin altında kalan sütunu gri renge boyuyorum. Ben üstte günleri sıraladığımda cumartesi ve pazarın altında kalan hücrelerin otomatik gri olması çok iyi olacak. Vakit ayırırsanız çok teşekkürler.

İstediğim şey bir hücrenin değerine göre başka hücrelerin koşullu biçimlendirilmesi sanırım.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

İkinci sıkıntınız için dosyanızı eklerseniz belki çözüm üretebiliriz. Normalde makro sayfadaki tüm koşullu biçimlendirmeleri sildiği için sizin cumartesi ve pazar günleri için kullandığınız koşullu biçimlendirmelerde silinecektir.

 

[xhuttra]

Korhan Bey,
Elinize sağlık, araştırmam sırasında bulabildiğim en sağlıklı çalışan kod bu oldu.

Arkadaşlar,

Bu kodu bir miktar yüklü bir dosyada kullanmak istiyorum, ancak satırlar arasında
ok tuşları ilerlemeye çalışırken, her satırda işlem yapmaya çalıştığı için, beni yavaşlatıyor.

Bir hücre üzerinde ancak 2 sn bekledikten sonra macronun aktive olmasını sağlamak mümkün müdür?

veya söz konusu problem için başka bir öneriniz olabilir mi.

Teşekkürler kolay gelsin...

 

[kinqberq]

korhan bey bu yollamış olduğunuz örnekteki 2.sayfanızdaki satır sütun seçme işlemini nasıl yapıyoruz biraz daha açıklarmısınız. Excel'i çok iyi bilmiyorum. Yardımcı olursanız sevinirim.

 

[kinqberq]

tamamdır hallettim. developer kısmı gözükmüyormuş makrolara girememiştim.