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

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

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

İleti#41)  semsur » 14 Tem 2011 16:15

emeğinize sağlık teşekkürler
Kullanıcı avatarı
semsur
 
Adı Soyadı:cem ozkan
Kayıt: 14 Tem 2011 16:10
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: papau yeni gine

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

İleti#42)  nilay_i_zmir » 11 Ekm 2012 14:46

Merhabalar, Şirkette Yıl sonu satış tablosu oluşturuyoruz. Ürün çeşidi fazla olduğu için zor oluyor. Belirli kod aralıklarını -isim bazında da olabilir- başka bir sayfada otomatik adet bazında toplayabileceğimiz bir yol var.Kullandığımız muhasebe programı çok işlevli değil malesef.
Yardımcı olursanız çok sevinirim.
Kullanıcı avatarı
nilay_i_zmir
 
Adı Soyadı:NİLAY AKPINAR
Kayıt: 03 Ekm 2012 13:04
Yaş: 33
İleti: 7
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR

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

İleti#43)  Murat OSMA » 11 Ekm 2012 14:50

Merhaba Nilay Hanım, örnek bir dosya eklerseniz yardımcı olmaya çalışırım.
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: 14326
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

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

İleti#44)  hasar » 05 Şub 2017 00:35

Bülent yazdı: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.




Bu kodun çalışma alanı belirlenebilir mi? Örnek:(A1:M100) gibi
Ayrıca kodun çalışması ve durdurulması için kısa yol tuşu atanabilir mi?

Teşekkür ler.
Kullanıcı avatarı
hasar
Yeni Başlamış
 
Kayıt: 30 May 2016 22:06
Meslek: Emekli
Yaş: 58
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kadıköy/İST

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

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

İleti#45)  feraz » 05 Şub 2017 05:20

Eğer A1:M100 aralığında koşullu biçimlendirme varsa silinir.Buraya dikkat etmek gerek.

Kod: Tümünü seç
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("A1:M100")) Is Nothing Then

   [A1:M100].FormatConditions.Delete

    Set satir = Range("A" & Target.Row, "M" & Target.Row)
    Set sütun = Range(Cells(1, Target.Column), Cells(100, Target.Column))
    Set feraz = Union(satir, sütun)
   
 
    feraz.FormatConditions.Add Type:=xlExpression, Formula1:="1"
    feraz.FormatConditions(1).Interior.ColorIndex = 4 'yesil renk

Else
    [A1:M100].FormatConditions(1).Interior.ColorIndex = 0
End If

End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5747
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#46)  devran59 » 24 Nis 2017 10:41

Merhaba Murat Bey;

Gerçekten verdiğiniz bilgiler çok işime yaradı ben daha yeni üye oldum sitenize.

Emeğinize sağlık.

Teşekkürler şkşk şkşk
Kullanıcı avatarı
devran59
 
Kayıt: 24 Nis 2017 10:19
Meslek: üretim raporlama
Yaş: 34
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

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

İleti#47)  Tarkan VURAL » 26 Nis 2017 15:11

devran59 yazdı:Merhaba Murat Bey;


Size de merhaba, hoş geldiniz. :)
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: 26934
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

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

İleti#48)  Murat OSMA » 27 Nis 2017 13:33

Merhaba Devran Bey, hoş geldiniz. :) --)(

Faydalı olabildiysek ne mutlu bize. [evet]
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: 14326
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

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

İleti#49)  alirizacicek » 12 Ağu 2018 12:42

Merhabalar, sayfada sadece belirleyeceğimiz sütünda seçili olan hücrenin rengini değiştirmek istiyorum. Bu konuda yardımlarınızı bekliyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
alirizacicek
 
Kayıt: 10 Ağu 2018 10:34
Meslek: muhasebe
Yaş: 38
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Önceki

Forum Örnek Kodlar

Online Kullanıcılar

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

Bumerang - Yazarkafe