Mouse ile tıkladığımız hücreyi renklendirmek

[Tarikkk_]

merhabalar bu konuda internette bazı örnekler var ama tam olarak aradığım şeyi bulamadım. çalışma kitabımda 5-6 sayfa var ve tüm sayfaları tablo olarak kullanmaktayım.
tam olarak yapmayı istediğim şey tablodaki herhangi bir hücreye tıkladığımda dikine ve genişliğine tabloyu taşmayacak şekilde tüm sütun ve tüm satırı renklendirmek istiyorum ve bunu tüm çalışma sayfalarıma uygulamak istiyorum. mümkünse yardımlarınızı bekliyorum şimdiden çok teşekkür ederim. örnek ektedir

 

[metin_0606]

merhabalar bu konuda internette bazı örnekler var ama tam olarak aradığım şeyi bulamadım. çalışma kitabımda 5-6 sayfa var ve tüm sayfaları tablo olarak kullanmaktayım.
tam olarak yapmayı istediğim şey tablodaki herhangi bir hücreye tıkladığımda dikine ve genişliğine tabloyu taşmayacak şekilde tüm sütun ve tüm satırı renklendirmek istiyorum ve bunu tüm çalışma sayfalarıma uygulamak istiyorum. mümkünse yardımlarınızı bekliyorum şimdiden çok teşekkür ederim. örnek ektedir

Deneyiniz

 

[Tarikkk_]

Deneyiniz

metin bey ilginizden dolayı çok teşekkür ederim. tam olarak istediğim şey fakat yazmayı unuttuğum bir şey var tabloya yeni satır yada sütun eklediğimizde veya alttan tutup sürükleyerek tabloyu büyüttüğümüzde formülün yeni satır ve sütunlarda çalışması mümkün mü birde mouse ile tıkladığımız hücre farklı bir renk olabilir mi

 

[leguminosea]

Alternatif olsun.

satır sütun renklendir.xlsx

dosyayı indir, full download - satır sütun renklendir.xlsx

www.dosyaupload.com

 

[Tarikkk_]

Alternatif olsun.

satır sütun renklendir.xlsx

dosyayı indir, full download - satır sütun renklendir.xlsx

www.dosyaupload.com

link hata veriyor

 

[metin_0606]

metin bey ilginizden dolayı çok teşekkür ederim. tam olarak istediğim şey fakat yazmayı unuttuğum bir şey var tabloya yeni satır yada sütun eklediğimizde veya alttan tutup sürükleyerek tabloyu büyüttüğümüzde formülün yeni satır ve sütunlarda çalışması mümkün mü birde mouse ile tıkladığımız hücre farklı bir renk olabilir mi

Çalışmanızın satır ve sütun sayısı değişirse makroyu ona göre revize etmeniz gerekir. Makronun içerisine açıklama ekledim dosyayı güncelledim

 

[leguminosea]

Koşullu biçimlendirmede uygulama hedefini toblonuza göre ayarlayın.

satir_sutun_renklendir.xlsx dosyasını indir - download

satir_sutun_renklendir.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Tarikkk_]

Çalışmanızın satır ve sütun sayısı değişirse makroyu ona göre revize etmeniz gerekir. Makronun içerisine açıklama ekledim dosyayı güncelledim

hocam tablo boyutu değişken olduğu için sık sık revize etmek gerekir onun yerine şöyle birşey yapabilirmiyiz sadece tıkladığımız hücre renkli olabilirmi ama tabloyu büyütsekte küçültsekte herhangi birşey yapmaya gerek duymadan hatta tüm sayfada olabilir

 

[Tarikkk_]

Koşullu biçimlendirmede uygulama hedefini toblonuza göre ayarlayın.

satir_sutun_renklendir.xlsx dosyasını indir - download

satir_sutun_renklendir.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

çalışmanızın mantığı çok güzel tabloyu büyütüncede otomatik olarak tabloya göre ayarlanıyor tek sorun hücreye 2 defa tıklamak zorunda kalmak hücrede veri varsa silinmesinden çekinebiliriz tek tıklama yada başka birşey yapılamazmı acaba

 

[leguminosea]

tablo dışında boş bir hücreye çift tık, sonra tablodaki esas hücreye tıklayın sorun kalmaz

 

[Tarikkk_]

her esas hücreye tıklamadan önce tabloda veya tablo dışında herhangi bir hücreye 2 kez tıklamamız gerekiyor aksi taktirde renklendirme yapmıyor

 

[Tarikkk_]

tablo dışında boş bir hücreye çift tık, sonra tablodaki esas hücreye tıklayın sorun kalmaz

her esas hücreye tıklamadan önce tabloda veya tablo dışında herhangi bir hücreye 2 kez tıklamamız gerekiyor aksi taktirde renklendirme yapmıyor

 

[leguminosea]

aktif hücre ile seçilen hücrenin satır ve sütun numarasının eşitliği kontrol edilmekte.
çift tık yerine esas hücrenin bir üstündeki hücreye tıklayıp F2 (fonksiyon tuşu) yapıp enter de yapabilirsiniz.

 

[Tarikkk_]

aktif hücre ile seçilen hücrenin satır ve sütun numarasının eşitliği kontrol edilmekte.
çift tık yerine esas hücrenin bir üstündeki hücreye tıklayıp F2 (fonksiyon tuşu) yapıp enter de yapabilirsiniz.

uzun zamandır böyle birşey arıyordum nette benzer bazı hazır makrolar var ama tabloya taşmayan tablo genişliğine göre kendini ayarlayabilen bu tarz bir makro bulamadım tek sorun her seferinde çift tıklamak zorunda kalmamız her farklı hücreye tıkladığımızda renklendirme yapabilseydi keşke

 

[Korhan Ayhan]

Alternatif;

Aşağıdaki kodu "BuÇalışmaKitabı" bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Tablo As Object, Tablo_Adi As String
    
    On Error Resume Next
    
    For Each Tablo In Sh.ListObjects
        Tablo_Adi = Tablo.Name
    Next
    
    Sh.ListObjects(Tablo_Adi).Range.Interior.ColorIndex = Null
    
    If Intersect(Target, Sh.ListObjects(Tablo_Adi).DataBodyRange) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
   
    With Sh.ListObjects(Tablo_Adi)
        .Range.Interior.ColorIndex = Null
        .DataBodyRange.Interior.ColorIndex = Null
        .ListColumns(Target.Column - 4).Range.Interior.ColorIndex = 6
        .ListRows(Target.Row - 6).Range.Interior.ColorIndex = 6
         Target.Interior.ColorIndex = 15
    End With

    Application.EnableEvents = True
End Sub

 

[Tarikkk_]

Alternatif;

Aşağıdaki kodu "BuÇalışmaKitabı" bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Tablo As Object, Tablo_Adi As String
   
    On Error Resume Next
   
    For Each Tablo In Sh.ListObjects
        Tablo_Adi = Tablo.Name
    Next
   
    Sh.ListObjects(Tablo_Adi).Range.Interior.ColorIndex = Null
   
    If Intersect(Target, Sh.ListObjects(Tablo_Adi).DataBodyRange) Is Nothing Then Exit Sub
   
    Application.EnableEvents = False
  
    With Sh.ListObjects(Tablo_Adi)
        .Range.Interior.ColorIndex = Null
        .DataBodyRange.Interior.ColorIndex = Null
        .ListColumns(Target.Column - 4).Range.Interior.ColorIndex = 6
        .ListRows(Target.Row - 6).Range.Interior.ColorIndex = 6
    End With

    Application.EnableEvents = True
End Sub

Korhan Hocam gerçekten harikasınız tam aradığım ve istediğim şey yeni sayfa ekleyip tablo olarak biçimlendirdiğimiz de bile çalışıyor peki bunu örnek dosya yerine farklı bir dosyaya eklemek istersek tam olarak neyi değiştirmemiz gerekiyor

 

[Korhan Ayhan]

Aktif hücreyi de gri olacak şekilde revize ettim. Son halini denersiniz.

 

[Korhan Ayhan]

Tablonuzun başladığı satır ve sütun önem arz ediyor. Bu değerlere göre kod içindeki -4 ve -6 değerleri ile oynayarak ayarlama yapmalısınız.

 

[Tarikkk_]

Tablonuzun başladığı satır ve sütun önem arz ediyor. Bu değerlere göre kod içindeki -4 ve -6 değerleri ile oynayarak ayarlama yapmalısınız.

orjinal tablomada uyguladım gayet güzel çalışıyor sadece şöyle ufak bir sorun var mesela yandaki satır numalarından satır seçtiğimizde satır gri oluyor vazgeçtiğimizde yani başka bir satıra tıkladığımızda bile ilk tıkladığımız satır rengi gri kalıyor. örnek ekliyorum

 

[Tarikkk_]

hocam birde son olarak veriyi yazdırmaya çalıştığımızda seçili hücre renkli görünüyor yazıcıdan aktif hücreyi normal görünmesi mümkünmü