Seçili Hücrenin Satır ve Sütunlarını Renklendirme

Excel VBA açık kodlarını buradan izleyebilir ve paylaşabilirsiniz.

Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#1)  Sarge » 31 Ekm 2008 09:19

Tıkladığımız hücreye bağlı satır , sütun ve hücre renklerini değiştirmek için aşağıdaki kodu deneyebilirsiniz.

Kod: Tümünü seç
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 kodların kullanımına örnek çalışma şu linkte verilmiştir.
viewtopic.php?f=4&t=845
Her Piyon, Potansiyel Bir Vezirdir...
Kullanıcı avatarı
Sarge
Siteye Alışmış
 
Adı Soyadı:Kıvanç Yıldız
Kayıt: 20 Ekm 2008 10:50
Konum: Mersin
Meslek: Bilgisayar Programcısı, Raporlama Uzmanı
Yaş: 39
İleti: 220
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mezitli/Mersin

Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#2)  MAJUHOO » 31 Ekm 2008 09:20

Paylaşımınız için teşekkürler.
Alacağınız her çıktı, bir ağaç yaprağı...
Hayat 3 ila 4 arasıdır ya 3,5 atarsın yada 4 - 4 lük yaşarsın...
MAJUHOO
Site Dostu
 
Adı Soyadı:KADRİYE OMRAK
Kayıt: 15 Tem 2008 10:40
Yaş: 36
İleti: 502
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#3)  orhanturk » 19 Şub 2009 15:27

İşime yaradı.teşekkür ederim.Sitenizi dikkatlice takip edeceğim.
Kullanıcı avatarı
orhanturk
 
Adı Soyadı:orhan türk
Kayıt: 19 Şub 2009 14:53
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli

Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#4)  seyhan6591 » 18 Tem 2009 15:24

Teşekkürler yararlı kodlar bunlar
Kullanıcı avatarı
seyhan6591
Siteye Alışmış
 
Adı Soyadı:Serkan Kutlu
Kayıt: 13 Nis 2009 21:26
Konum: bursa
Meslek: biyolog
Yaş: 43
İleti: 120
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa / Osmangazi

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#5)  angelina80 » 08 Eyl 2009 08:02

bu kodu nasıl aktif edebilirim?
Kullanıcı avatarı
angelina80
 
Adı Soyadı:Hulya Bucaklı
Kayıt: 08 Eyl 2009 07:20
Yaş: 38
İleti: 4
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Istanbul

Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#6)  Bülent » 08 Eyl 2009 08:13

Kodu kopyalayın.
Kullanmak istediğiniz sayfa sekmesine sağ tıklayıp "Kod Görüntüle"yi seçin.
Açılan VBA penceresinde Ctrl+V ile yapıştırın.
Excel sayfanıza dönün.
Dosyayı kaydedin.
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3628
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#7)  halyun » 28 Oca 2010 15:30

Muhteşem oluyor fakat şöyle bir sorun oluştu: daha önceden renklendirdiğim hücrelerin rengini yok ediyor, daha doğrusu sayfadaki tüm renkli hücreleri renksiz hale getiriyor... Sonra kendi renklerini gösteriyor. Hücrelerin eski renklerini yok etmeden bu kodları çalıştırmak mümkün olabilir mi acaba?
Kullanıcı avatarı
halyun
 
Adı Soyadı:tarık sinan
Kayıt: 15 Arl 2009 15:29
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#8)  qwertylion » 28 Oca 2010 15:42

[TESEKKÜR]
Kullanıcı avatarı
qwertylion
Siteye Alışmış
 
Adı Soyadı:mustafa akın
Kayıt: 16 Kas 2009 19:54
Konum: ANKARA
Meslek: MEMUR
Yaş: 40
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#9)  qwertylion » 29 Oca 2010 10:19

Şöyle bir sorunum var; kodu yapıştırdıktan sonra kes kopyala yapıştır yapmıyor. Kodu kaldırınca kes kopyala yapıyor. Hem kodu kullanıp hem kes kopyala nasıl yapabilirim?
Kullanıcı avatarı
qwertylion
Siteye Alışmış
 
Adı Soyadı:mustafa akın
Kayıt: 16 Kas 2009 19:54
Konum: ANKARA
Meslek: MEMUR
Yaş: 40
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#10)  Tarkan VURAL » 29 Oca 2010 10:38

Mustafa bey günaydın.

Dener misiniz ?
Kod: Tümünü seç
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Application.CutCopyMode <> xlCopy Then
    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 If
End Sub
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 27008
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#11)  qwertylion » 29 Oca 2010 11:14

[TESEKKÜR] Çalışıyor.
Kullanıcı avatarı
qwertylion
Siteye Alışmış
 
Adı Soyadı:mustafa akın
Kayıt: 16 Kas 2009 19:54
Konum: ANKARA
Meslek: MEMUR
Yaş: 40
İleti: 143
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#12)  halyun » 29 Oca 2010 17:02

Bu makronun çalıştığı dosyadaki herhangi bir hücreyi renklendiremiyorum. Renkleri yok ediyor. Çözümü olan arkadaşımız var mı acaba?
Kullanıcı avatarı
halyun
 
Adı Soyadı:tarık sinan
Kayıt: 15 Arl 2009 15:29
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#13)  Tarkan VURAL » 29 Oca 2010 17:41

Tarık bey, kod zaten buna göre ayarlanmış. Renkli hücreleri bozmaması mümkün değil. Sizin çalışmanız renkli ise bu kodlama sizin için uygun olmaz. [evet]
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 27008
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#14)  ismailmuhcu » 02 Mar 2010 18:16

Merhaba, bizim çalışmamızdaki mevcut renkleri bozmadan nasıl bir kodlamayla işi çözebiliriz acaba?
Kullanıcı avatarı
ismailmuhcu
Siteye Alışmış
 
Adı Soyadı:ismail muhcu
Kayıt: 15 Haz 2008 00:15
Konum: Trabzon
Meslek: Muhasebe
Yaş: 48
İleti: 359
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Trabzon

Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#15)  alpayb » 17 Ağu 2010 12:23

Tarkan Bey, iyi günler.

Bu kodlamayı kullandığımda sayfa içindeki tüm dolgu ve yazı renkleri iptal oluyor. Sorunu halletmek mümkün olabilir mi acaba?
Kullanıcı avatarı
alpayb
 
Adı Soyadı:Alpay Bilgin
Kayıt: 11 May 2010 08:32
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendi

İleti#16)  Murat OSMA » 17 Ağu 2010 13:01

alpayb yazdı:Tarkan Bey, iyi günler.

Bu kodlamayı kullandığımda sayfa içindeki tüm dolgu ve yazı renkleri iptal oluyor. Sorunu halletmek mümkün olabilir mi acaba?


Alpay bey kullanıcı grubunuz değiştirilmiştir, sitemiz imkânlarından sınırsızca yararlanabilirsiniz...
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14338
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendi

İleti#17)  Tarkan VURAL » 17 Ağu 2010 13:09

alpayb yazdı:Tarkan Bey, iyi günler.

Bu kodlamayı kullandığımda sayfa içindeki tüm dolgu ve yazı renkleri iptal oluyor. Sorunu halletmek mümkün olabilir mi acaba?

Tarkan VURAL yazdı:Sizin çalışmanız renkli ise bu kodlama sizin için uygun olmaz. [evet]
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 27008
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#18)  alpayb » 17 Ağu 2010 14:27

Tarkan Bey,

Renkli bir çalışma sayfası için bir öneriniz olabilirse çok memnun olurum.
Kullanıcı avatarı
alpayb
 
Adı Soyadı:Alpay Bilgin
Kayıt: 11 May 2010 08:32
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendi

İleti#19)  Tarkan VURAL » 17 Ağu 2010 19:00

alpayb yazdı:Tarkan Bey,

Renkli bir çalışma sayfası için bir öneriniz olabilirse çok memnun olurum.


Örneğinizi eklerseniz, inceleyip yapılabilecekleri tarif edebilirim.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 27008
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Seçili Hücrenin Satır ve Sütunlarını Renklendirme

İleti#20)  Bülent » 18 Ağu 2010 07:56

Eski renkleri korumak istersek şöyle bir mantık geliştirebiliriz;

Kod: Tümünü seç
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


Ancak kodun çalışması ağır olacaktır.
65536 satırda renkli dolgunuz olmayacaksa, koddaki 65536 sayısını, kullandığınız satır sayısı olarak değiştirirseniz, kodların çalışması hızlanacaktır.
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3628
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Sonraki

Forum Örnek Kodlar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe