• DİKKAT

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

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

T

Tarikkk_

Altın Üye
Katılım
5 Ocak 2020
Mesajlar
407
Excel Vers. ve Dili
Excel 2019
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
 

Ekli dosyalar

Tarikkk_' Alıntı:
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
Genişletmek için tıkla ...
Deneyiniz
 

Ekli dosyalar

metin_0606' Alıntı:
Deneyiniz
Genişletmek için tıkla ...
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
 
Tarikkk_' Alıntı:
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
Genişletmek için tıkla ...
Ç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
 

Ekli dosyalar

metin_0606' Alıntı:
Ç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
Genişletmek için tıkla ...
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
 
leguminosea' Alıntı:
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 www.dosya.tc
Genişletmek için tıkla ...
ç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
 
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' Alıntı:
tablo dışında boş bir hücreye çift tık, sonra tablodaki esas hücreye tıklayın sorun kalmaz
Genişletmek için tıkla ...
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
 
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.
 
leguminosea' Alıntı:
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.
Genişletmek için tıkla ...
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
 
Alternatif;

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

C++: 
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
 
Korhan Ayhan' Alıntı:
Alternatif;

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

C++: 
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
Genişletmek için tıkla ...
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
 
Aktif hücreyi de gri olacak şekilde revize ettim. Son halini denersiniz.
 
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.
 
Korhan Ayhan' Alıntı:
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.
Genişletmek için tıkla ...
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
 

Ekli dosyalar

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