Aktif Hücre Renklendirme Sadece Tek Bir Satırda - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Aktif Hücre Renklendirme Sadece Tek Bir Satırda (/konu-aktif-hucre-renklendirme-sadece-tek-bir-satirda.html) |
Aktif Hücre Renklendirme Sadece Tek Bir Satırda - Oğuz Türkyılmaz - 11/12/2021 Merhaba Aşağıdaki kod bloğuyla Excel Çalışma Sayfasında aktif hücreyi renklendiriyorum. Fakat benim bulmaya çalıştığım cevap bu işlemin sadece tek bir satırda gerçekleşmesi. Yani Örnek olarak sadece 1.satırdaki hücrelere tıklandığında aktif tıklanan hücrenin rengi değişsin diğer satırlardaki hücrelere tıklandığında bu kod çalışmasın. Normalde koşullu biçimlendirmeyle de yapılabilir diye düşünüyordum ama orda aktif cell olayını çözemedim. Yardımlarınız için şimdiden teşekkür ederim. Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) RE: Aktif Hücre Renklendirme Sadece Tek Bir Satırda - berduş - 11/12/2021 benzeri bir kod olabilir denemedim tahmini
RE: Aktif Hücre Renklendirme Sadece Tek Bir Satırda - Oğuz Türkyılmaz - 11/12/2021 @berduş hocam Teşekkür ederim bu şekilde çalışıyor. Bu kodu sabit belli hücrelerde çalışması için nasıl revize etmeli. Yani sadece F1 - G1 - J1 e tıklandığında. G1 sütun için aşağıdaki gibi 3-5 deneme yaptım ama çalışmadı. Activecell.colum kodu ile birlikte kullanmak gerekiyor sanırım ama nasıl Kod:
If ActiveCell(1, 7) Then ActiveCell.Cells.Interior.ColorIndex = 4 RE: Aktif Hücre Renklendirme Sadece Tek Bir Satırda - berduş - 11/12/2021 Sadece 3 hücre içinse if target.address="f1" or ... gibi birşeyler deneyebilirsiniz yada Kod:
If not Intersect(Target, Range("f1,g1,j1")) Is Nothing Then RE: Aktif Hücre Renklendirme Sadece Tek Bir Satırda - Oğuz Türkyılmaz - 11/12/2021 (11/12/2021, 18:21)berduş yazdı: Sadece 3 hücre içinse if target.address="f1" or ... gibi birşeyler deneyebilirsiniz yada If not Intersect(Target, Range("f1,g1,j1")) Is Nothing Then ...... @berduş hocam bu kod oldu çok teşekkür ederim. RE: Aktif Hücre Renklendirme Sadece Tek Bir Satırda - berduş - 11/12/2021 Rica ederim İyi çalışmalar |