• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Satır ve sütün renklendirme

  • Konbuyu başlatan Konbuyu başlatan cdmac
  • Başlangıç tarihi Başlangıç tarihi
C

cdmac

Katılım
16 Haziran 2010
Mesajlar
24
Excel Vers. ve Dili
2007
Arkadaşlar herkese merhaba.

Excelde seçili hücrenin olduğu satırları ve sütunları nasıl renklendiribilirim acaba?
 
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
 
kodu uyguladım ama söyle bi sorun ortaya çıkıyor. daha önceden renklendirdiğim alanların rengi gidiyor, nasıl düzeltebilirim
 
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
 
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]
 

Ekli dosyalar

ç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
 
Merhaba, kodları yeni açtığınız sayfanın kod bölümüne yapıştırmalısınız.
 
this book un içine koyduğumda neden tüm açılan sayfalarda kullanılmıyor anlamıyorum
 
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...
 
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]
Genişletmek için tıkla ...

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.
 
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.
 
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.
 
Son düzenleme:
dnmtnk' Alıntı:
...Konu hakkında bilgisi olan arkadaşlar cevap verirlerse memnun olurum. Herkese iyi çalışmalar.
Genişletmek için tıkla ...

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
 
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.
Genişletmek için tıkla ...

Eklentinin kodunu paylaşabilirmisiniz
 
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
Genişletmek için tıkla ...

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.
 
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]
Genişletmek için tıkla ...

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' 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.
Genişletmek için tıkla ...

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?
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst