Satır ve sütün renklendirme

cdmac · 23 Eylül 2010

Arkadaşlar herkese merhaba.

Excelde seçili hücrenin olduğu satırları ve sütunları nasıl renklendiribilirim acaba?

Emir Hüseyin Çoban · 23 Eylül 2010

Makro ile renklendirme için aşağıdaki kodları, çalışma sayfasına uygulatın.

Kod:

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

cdmac · 23 Eylül 2010

kodu uyguladım ama söyle bi sorun ortaya çıkıyor. daha önceden renklendirdiğim alanların rengi gidiyor, nasıl düzeltebilirim

Emir Hüseyin Çoban · 23 Eylül 2010

kodları aşağıdaki gibi düzenledim ancak, tablo çok yavaşlıyor

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static EskiHucre As Range, EskiHucre2 As Range
Static SatirRenkDizisi(256) As Integer
Static SutunRenkDizisi(65536) As Long
Dim bulent As Integer
Dim excelce As Long

If Not EskiHucre Is Nothing Then
    For bulent = 1 To 256
        Cells(EskiHucre.Row, bulent).Interior.ColorIndex = SatirRenkDizisi(bulent)
    Next bulent
    For excelce = 1 To 65536
        Cells(excelce, EskiHucre2.Column).Interior.ColorIndex = SutunRenkDizisi(excelce)
    Next excelce

End If
For bulent = 1 To UBound(SatirRenkDizisi)
    SatirRenkDizisi(bulent) = Cells(ActiveCell.Row, bulent).Interior.ColorIndex
Next bulent

For excelce = 1 To UBound(SutunRenkDizisi)
    SutunRenkDizisi(excelce) = Cells(excelce, ActiveCell.Column).Interior.ColorIndex
Next excelce

    ActiveCell.EntireRow.Interior.ColorIndex = 6
    ActiveCell.EntireColumn.Interior.ColorIndex = 6

    Set EskiHucre = ActiveCell.EntireRow
    Set EskiHucre2 = ActiveCell.EntireColumn
End Sub

yavaşlık sorununu çözmek için sütun seçmeyi iptal etmelisiniz. Onunda kodlarını paylaşıyorum. Sonuca deneyerek karar verin.

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static EskiHucre As Range ', EskiHucre2 As Range
Static SatirRenkDizisi(256) As Integer
'Static SutunRenkDizisi(65536) As Long
Dim bulent As Integer
'Dim excelce As Long
If Not EskiHucre Is Nothing Then
    For bulent = 1 To 256
        Cells(EskiHucre.Row, bulent).Interior.ColorIndex = SatirRenkDizisi(bulent)
    Next bulent
'    For excelce = 1 To 65536
'        Cells(excelce, EskiHucre2.Column).Interior.ColorIndex = SutunRenkDizisi(excelce)
'    Next excelce
End If
For bulent = 1 To UBound(SatirRenkDizisi)
    SatirRenkDizisi(bulent) = Cells(ActiveCell.Row, bulent).Interior.ColorIndex
Next bulent
'For excelce = 1 To UBound(SutunRenkDizisi)
'    SutunRenkDizisi(excelce) = Cells(excelce, ActiveCell.Column).Interior.ColorIndex
'Next excelce
    ActiveCell.EntireRow.Interior.ColorIndex = 6
    'ActiveCell.EntireColumn.Interior.ColorIndex = 6
    Set EskiHucre = ActiveCell.EntireRow
    'Set EskiHucre2 = ActiveCell.EntireColumn
End Sub

Korhan Ayhan · 24 Eylül 2010

Selamlar,

Alternatif olarak hiç renk kullanmadan sadece seçim yaparak aktif hücreye ait satır ve sütunu belirginleştirebilirsiniz. Bu şekilde daha önce kullanmış olduğunuz renklerde korunmuş olur. Ayrıca sayfada "Geri Al" komutunuda kullanabilirsiniz. Çok fazla hata kontrolü yapmadım. Örnek dosya daha da geliştirilebilir. İncelermisiniz.

Ayrıca aşağıdaki linkte Recep beyin çok güzel bir çalışması bulunmaktadır. Onuda inceleyebilirsiniz.

[URL="http://www.excel.web.tr/f133/aktif-h-252-cre-sat-305-r-s-t14377.html"]Aktif Hücre-Satır-Sütun Renklendirme[/url]

cdmac · 27 Eylül 2010

arkadaşlar çok teşekkür ederim. çok işime yaradı

muzzymania · 2 Mart 2011

çok güzel bir çalışma mu özellikle liste ile çalışanlar için ;

fakat yeni bir sayfa açıldığında o sayfadada geçerli olabilmesi için ne yapmak gerekir acaba

Emir Hüseyin Çoban · 2 Mart 2011

Merhaba, kodları yeni açtığınız sayfanın kod bölümüne yapıştırmalısınız.

muzzymania · 2 Mart 2011

this book un içine koyduğumda neden tüm açılan sayfalarda kullanılmıyor anlamıyorum

darksimoon · 2 Nisan 2012

recep beyin yaptığı örnek harika olmuş. gözü yormadan ilgili hücreye/satır ve sütuna çok güzel dikkat çekmiş. allah razı olsun...

darksimoon · 3 Nisan 2012

Korhan Ayhan' Alıntı:
Selamlar,

Alternatif olarak hiç renk kullanmadan sadece seçim yaparak aktif hücreye ait satır ve sütunu belirginleştirebilirsiniz. Bu şekilde daha önce kullanmış olduğunuz renklerde korunmuş olur. Ayrıca sayfada "Geri Al" komutunuda kullanabilirsiniz. Çok fazla hata kontrolü yapmadım. Örnek dosya daha da geliştirilebilir. İncelermisiniz.

Ayrıca aşağıdaki linkte Recep beyin çok güzel bir çalışması bulunmaktadır. Onuda inceleyebilirsiniz.

[URL="http://www.excel.web.tr/f133/aktif-h-252-cre-sat-305-r-s-t14377.html"]Aktif Hücre-Satır-Sütun Renklendirme[/url]

mesajınızda yer alan recep beye ait ÖRNEK.rar dosyasını inceledim ve addin olarak kullanmak üzere kodlarına baktım. ama gördüğüm o ki 3 farklı kod kayıtlı. sayfa1 de + thisworkbook + module1. bunlardan hangisini kullanacağım ?
kısaca şunu sorayım. bunu nasıl addin olarak kaydeder ve tüm excel dosyalarımda kullanabilirim ?
çalışmalarınız için tebrik ediyor ve cevabınız için şimdiden teşekkür ediyorum.

koboy · 25 Ocak 2017

merhaba hücre kısmını nasıl iptal edebilirim

Korhan Ayhan · 25 Ocak 2017

Eklentiyi aktif hale getirdiğinizde excel üst menüsündeki EKLENTİLER seçeneğinden parametrik kısma ulaşabilirsiniz. Bu menüden ayarları değiştirebilirsiniz.

dnmtnk · 4 Mart 2017

Merhabalar, kullandığım office sürümü 2016 x86
Recep İpek'in hazırlamış olduğu eklentiyi kurdum ve aktif ettim fakat herhangi bir işlem gerçekleşmedi.
Bu eklenti 2016 sürümünde çalışmıyor olabilir mi acaba?

İlk mesajlarda verilen kodlarla çalıştığımda renklendirme yapıyor fakat geri al komutu çalışmıyor.

Ayrıca Korhan bey vermiş olduğunuz örnek dosyayı da indirip kendi dosyama uyarladığımda şöyle bir sorunla karşılaştım. Sütunu renklendirmeyi kapattım ve sadece satırları renklendirmesini sağladım. Ancak birleştirilmiş satırlarda birleşik olan satırı komple renklendiriyor. Bunun bir çözümü var ise bu da işimi görür.

Konu hakkında bilgisi olan arkadaşlar cevap verirlerse memnun olurum. Herkese iyi çalışmalar.

Asri · 4 Mart 2017

dnmtnk' Alıntı:
...Konu hakkında bilgisi olan arkadaşlar cevap verirlerse memnun olurum. Herkese iyi çalışmalar.

Alternatif ;

Bu eklentiyi satır ve sütun boyama için alternatif olarak kullanabilirsiniz.
Kurulum için setup dosyası mevcuttur.

Güncelleme V3.6.1

* Tablo satır renklendirme özelliği eklendi.
n satır ana renk olsun n satır renksiz olsun.
n satır ana renk olsun n satır ikinci renk olsun.
n sütun ana renk olsun n sutun renksiz olsun.
n sütun ana renk olsun n sütun ikinci renk olsun.

* Tablo biçimlendirmede seçilen hücre aralıkları desteklendi.

http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219/post883304.html

kadirdiloglu · 4 Mart 2017

Korhan Ayhan' Alıntı:
Selamlar,

Alternatif olarak hiç renk kullanmadan sadece seçim yaparak aktif hücreye ait satır ve sütunu belirginleştirebilirsiniz. Bu şekilde daha önce kullanmış olduğunuz renklerde korunmuş olur. Ayrıca sayfada "Geri Al" komutunuda kullanabilirsiniz. Çok fazla hata kontrolü yapmadım. Örnek dosya daha da geliştirilebilir. İncelermisiniz.

Eklentinin kodunu paylaşabilirmisiniz

dnmtnk · 4 Mart 2017

asri' Alıntı:
Alternatif ;

Bu eklentiyi satır ve sütun boyama için alternatif olarak kullanabilirsiniz.
Kurulum için setup dosyası mevcuttur.

Güncelleme V3.6.1

* Tablo satır renklendirme özelliği eklendi.
n satır ana renk olsun n satır renksiz olsun.
n satır ana renk olsun n satır ikinci renk olsun.
n sütun ana renk olsun n sutun renksiz olsun.
n sütun ana renk olsun n sütun ikinci renk olsun.

* Tablo biçimlendirmede seçilen hücre aralıkları desteklendi.

http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219/post883304.html

Dosyanızı inceledim güzel ve emek verilmiş bir çalışma elinize sağlık. Fakat benim aradığım şey değil yanlış görmediysem. Benim istediğim seçilen hücreye ait satır renklenecek farklı bir satırdaki hücre seçildiğinde o hücreye ait satır renklenecek. Korhan beyin örnek dosyasını indirirseniz demek istediğimi anlayacaksınız.

Benim sorunum geri al komutunun çalışmaması bunun dışında ben bu konuda yardım istemiştim.

dnmtnk · 19 Nisan 2017

Korhan Ayhan' Alıntı:
Selamlar,

Alternatif olarak hiç renk kullanmadan sadece seçim yaparak aktif hücreye ait satır ve sütunu belirginleştirebilirsiniz. Bu şekilde daha önce kullanmış olduğunuz renklerde korunmuş olur. Ayrıca sayfada "Geri Al" komutunuda kullanabilirsiniz. Çok fazla hata kontrolü yapmadım. Örnek dosya daha da geliştirilebilir. İncelermisiniz.

Ayrıca aşağıdaki linkte Recep beyin çok güzel bir çalışması bulunmaktadır. Onuda inceleyebilirsiniz.

[URL="http://www.excel.web.tr/f133/aktif-h-252-cre-sat-305-r-s-t14377.html"]Aktif Hücre-Satır-Sütun Renklendirme[/url]

Korhan Bey, bu mesajınızdaki ÖRNEK.xls dosyasında bulunan

Kod:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Sütun As String, Satır As Long, Adres As String
    
    On Error GoTo Son
    
    If Kontrol = True Then
        With Application
            .ScreenUpdating = False
            .EnableEvents = False
                Sütun = Split(Selection.Address(1, 0), "$")(0)
                Adres = Sütun & ":" & Sütun
                Satır = Split(Selection.Address(1, 0), "$")(1)
                Adres = Adres & "," & Satır & ":" & Satır & "," & Selection.Address
                Range(Adres).Select
                Target.Activate
            .EnableEvents = True
            .ScreenUpdating = True
        End With
    End If
Son: Application.EnableEvents = True
End Sub

bu kodlarda nasıl bir değişiklik yaparsam birleştirilmiş satır yada sütun olsa dahi sadece aktif olan satır ve sütunu seçer?

Kod:

Sub satırsec()
    Rows("6:6").Select
    Range("B6").Activate
End Sub

buna benzer yani. Makro yazma konusunda çok iyi olmadığım için desteğinize ihtiyacım var. Şimdiden teşekkürler.

Örnek.xls dosyasındaki kodu birleştirilmiş satır ve sütunları olan dosyada kullanınca komple birleştirilmiş satır yada sütun kadar alanı seçiyor.

Örneğin; A3:A5 birleştirilmiş ben D4 hücresini seçtiğimde 3ten 5e kadar komple satırları seçiyor ben ise sadece 4.satırı seçsin istiyorum. Umarım kendimi izah edebilmişimdir. Saygılar.

dnmtnk · 6 Mayıs 2017

dnmtnk' Alıntı:
Korhan Bey, bu mesajınızdaki ÖRNEK.xls dosyasında bulunan

Kod:

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Sütun As String, Satır As Long, Adres As String On Error GoTo Son If Kontrol = True Then With Application .ScreenUpdating = False .EnableEvents = False Sütun = Split(Selection.Address(1, 0), "$")(0) Adres = Sütun & ":" & Sütun Satır = Split(Selection.Address(1, 0), "$")(1) Adres = Adres & "," & Satır & ":" & Satır & "," & Selection.Address Range(Adres).Select Target.Activate .EnableEvents = True .ScreenUpdating = True End With End If Son: Application.EnableEvents = True End Sub

bu kodlarda nasıl bir değişiklik yaparsam birleştirilmiş satır yada sütun olsa dahi sadece aktif olan satır ve sütunu seçer?

Kod:

Sub satırsec() Rows("6:6").Select Range("B6").Activate End Sub

buna benzer yani. Makro yazma konusunda çok iyi olmadığım için desteğinize ihtiyacım var. Şimdiden teşekkürler.

Örnek.xls dosyasındaki kodu birleştirilmiş satır ve sütunları olan dosyada kullanınca komple birleştirilmiş satır yada sütun kadar alanı seçiyor.

Örneğin; A3:A5 birleştirilmiş ben D4 hücresini seçtiğimde 3ten 5e kadar komple satırları seçiyor ben ise sadece 4.satırı seçsin istiyorum. Umarım kendimi izah edebilmişimdir. Saygılar.

Bu alıntıdaki sorumun çözümü yoksa farklı bir sorum olacak arkadaşlar.

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Static EskiHucre As Range ', EskiHucre2 As Range
Static SatirRenkDizisi(256) As Integer
'Static SutunRenkDizisi(65536) As Long
Dim bulent As Integer
'Dim excelce As Long
If Not EskiHucre Is Nothing Then
    For bulent = 1 To 256
        Cells(EskiHucre.Row, bulent).Interior.ColorIndex = SatirRenkDizisi(bulent)
    Next bulent
'    For excelce = 1 To 65536
'        Cells(excelce, EskiHucre2.Column).Interior.ColorIndex = SutunRenkDizisi(excelce)
'    Next excelce
End If
For bulent = 1 To UBound(SatirRenkDizisi)
    SatirRenkDizisi(bulent) = Cells(ActiveCell.Row, bulent).Interior.ColorIndex
Next bulent
'For excelce = 1 To UBound(SutunRenkDizisi)
'    SutunRenkDizisi(excelce) = Cells(excelce, ActiveCell.Column).Interior.ColorIndex
'Next excelce
    ActiveCell.EntireRow.Interior.ColorIndex = 40 ' Satır Rengi
    ActiveCell.Cells.Interior.ColorIndex = 45 ' Hücre Rengi
    'ActiveCell.EntireColumn.Interior.ColorIndex = 6 'Sütun Rengi
    Set EskiHucre = ActiveCell.EntireRow
    'Set EskiHucre2 = ActiveCell.EntireColumn

End Sub

Bu kod ile satır renklendirme yapıyorum. Fakat dosyayı kapatırken hangi satır seçili ise o renkte kaydediyor ve dosyayı açtığımda o satırın rengini silmem gerekiyor. Buna bi çözüm var mı acaba? Dosyayı kapatırken yada kaydederken renklendirmeyi kapatacak o şekilde yani dosyanın orjinal haliyle kaydedecek bişey yapılabilir mi?

dnmtnk · 6 Mayıs 2017

Bu şekilde de koşullu biçimlendirmeler olmadı. Son sorduğum iptal. 18.mesajdaki sorum halen geçerlidir. Umarım çözümü vardır. Yardımcı olan arkadaşlara şimdiden teşekkürler.

Satır ve sütün renklendirme

cdmac

Emir Hüseyin Çoban

Destek Ekibi

cdmac

Emir Hüseyin Çoban

Destek Ekibi

Korhan Ayhan

Administrator

Ekli dosyalar

cdmac

muzzymania

Emir Hüseyin Çoban

Destek Ekibi

muzzymania

darksimoon

darksimoon

koboy

Korhan Ayhan

Administrator

dnmtnk

Asri

kadirdiloglu

dnmtnk

dnmtnk

dnmtnk

dnmtnk