Skip to main content

AccessTr.neT


Aktif Hücre Renklendirme Sadece Tek Bir Satırda

Oğuz Türkyılmaz
Oğuz Türkyılmaz
5
654

Aktif Hücre Renklendirme Sadece Tek Bir Satırda

Çözüldü #1
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)

Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.Cells.Interior.ColorIndex = 4

End Sub

[Resim: do.php?img=11417]
.zip Hücre Renklendir.zip (Dosya Boyutu: 19,32 KB | İndirme Sayısı: 1)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
if ActiveCell.row=SatırNoNeİse then ActiveCell.Cells.Interior.ColorIndex = 4
benzeri bir kod olabilir denemedim tahmini
Cevapla
#3
@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
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 11/12/2021, 18:13, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#4
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
gibi bir kod olabilir emin değilim
Cevapla
#5
(11/12/2021, 18:21)berduş yazdı: 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
gibi bir kod olabilir emin değilim

If not Intersect(Target, Range("f1,g1,j1")) Is Nothing Then ......

@berduş hocam bu kod oldu çok teşekkür ederim.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#6
Rica ederim
İyi çalışmalar
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task