• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Aktif satırın renklenmesi

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

ASLAN7410

Yeni Üye
Katılım
25 Mar 2021
Mesajlar
300
Çözümler
4
Aldığı beğeni
102
Excel V
Office 2021 TR
Konu Sahibi
Merhaba.

Ekte gönderdiğim excel dosyamda aktif satırın renklendirilmesi kodları mevcut.
Bu kodlar B2:E30 hücreleri tıkladığında çalışıyor.

Yapmak istediğim bu kodların H2:K30- N2:Q30 ve T2:W30 hücrelerinde de çalışmasını istiyorum.
Yani N5 hücresine tıkladığım zaman H5:K5 satırı renklensin istiyorum.

Yardımcı olur musunuz?
 
Deneyiniz.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
Sayın Patron, ilginiz için çok teşekkür ediyorum. Yanlış anlattım galiba, kusura bakmayın.

Yapmak istediğim sütun atlayarak renklendirmek değildi.

Yani kodun aşağıda yazdığım gibi çalışmasını istemiştim.

B ile E sütunundaki hücrelere tıkladığımda sadece bu sütunlardaki satırlar renklensin, diğerlerinde sarı renk iptal olsun.
H ile K sütunundaki hücrelere tıkladığımda sadece bu sütunlardaki satırlar renklensin, diğerlerinde sarı renk iptal olsun.
N ile Q sütunundaki hücrelere tıkladığımda sadece bu sütunlardaki satırlar renklensin, diğerlerinde sarı renk iptal olsun.
T ile W sütunundaki hücrelere tıkladığımda sadece bu sütunlardaki satırlar renklensin, diğerlerinde sarı renk iptal olsun.

Bu şekilde ayarlayabilir misiniz?
 
Çözüm
Konu Sahibi
Sayın Patron, ellerinize sağlık çok teşekkür ediyorum.

Hayırlı günler diliyorum.
 
Konu Sahibi
Sayın Patron, aşağıdaki kod ne anlama geliyor?

sut = (VBA.Int((ActiveCell.Column - 1) / 6) * 6) + 2
 
Konu Sahibi
Sayın Patron, basitçe şöyle yapılabilir mi?

B-E sütunundaki hücrelere tıklayınca Z1 hücresine 1 yazsın ve 1 yazınca bu sütun için kod çalışsın.
H-K sütunundaki hücrelere tıklayınca Z1 hücresine 2 yazsın ve 2 yazınca bu sütun için kod çalışsın.
N-Q sütunundaki hücrelere tıklayınca Z1 hücresine 3 yazsın ve 3 yazınca bu sütun için kod çalışsın.
T-W sütunundaki hücrelere tıklayınca Z1 hücresine 4 yazsın ve 4 yazınca bu sütun için kod çalışsın.
 
Sayın Patron, aşağıdaki kod ne anlama geliyor?

sut = (VBA.Int((ActiveCell.Column - 1) / 6) * 6) + 2
tablolarınız aynı formatta olduğundan (4 sütun tablo+2sütun boşluk)
seçilen hücrenin gri tablolardaki ilk sütun numarasını verir.
 
Konu Sahibi
Sayın Patron, basitçe şöyle yapılabilir mi?

B-E sütunundaki hücrelere tıklayınca Z1 hücresine 1 yazsın ve 1 yazınca bu sütun için kod çalışsın.
H-K sütunundaki hücrelere tıklayınca Z1 hücresine 2 yazsın ve 2 yazınca bu sütun için kod çalışsın.
N-Q sütunundaki hücrelere tıklayınca Z1 hücresine 3 yazsın ve 3 yazınca bu sütun için kod çalışsın.
T-W sütunundaki hücrelere tıklayınca Z1 hücresine 4 yazsın ve 4 yazınca bu sütun için kod çalışsın.


Basitçe kodu bu şekilde düzenleyebilir miyiz?
 
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
bu 2 satır bu dediğiniz işe yarıyor.
Aksi halde her tablo için ayrı ayrı kod yazmak gerekirdi.
 
Konu Sahibi
Aşağıdaki kodu bu şekilde düşündüm ama olmadı, böyle bir şey yapılır mı?

Hangi sütundaki hücreye tıklanırsa o sütuna göre Z1 hücresine sayı yazsın.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst