[Yardım]  Aktif Hücre Renklendirme Hk.

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Aktif Hücre Renklendirme Hk.

İleti#1)  nasrullah » 11 Oca 2021 11:07

Merhabalar,
Excel üzerinde aktif sayfamda seçtiğim hücreyi renklendirme ile ilgili bir sorun yaşamaktayım. Bir tablom mevcut ve kişiselleştirilmiş dolgulu olan bu tablo aşağıdaki belirtilen kodu yazdığımda tablomun başlıklar kısmında bulunan renklendirmemi de bozuyor. Bunu düzeltmek yada engellemek için ne yapabilirim, yardımlarınızı bekliyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireColumn.Interior.ColorIndex = 19 'Sütun Rengi
ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
End Sub
Kullanıcı avatarı
nasrullah
Yeni Başlamış
 
Kayıt: 19 Oca 2020 18:53
Meslek: muhasebe
Yaş: 28
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/şişli

Cevap: Aktif Hücre Renklendirme Hk.

İleti#2)  nasrullah » 11 Oca 2021 11:16

nasrullah yazdı:Merhabalar,
Excel üzerinde aktif sayfamda seçtiğim hücreyi renklendirme ile ilgili bir sorun yaşamaktayım. Bir tablom mevcut ve kişiselleştirilmiş dolgulu olan bu tablo aşağıdaki belirtilen kodu yazdığımda tablomun başlıklar kısmında bulunan renklendirmemi de bozuyor. Bunu düzeltmek yada engellemek için ne yapabilirim, yardımlarınızı bekliyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireColumn.Interior.ColorIndex = 19 'Sütun Rengi
ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
End Sub


Bu formülü 2 satırdan itibaren kullanmam gerekiyor sadece ilk iki satırda bu formülün uygulanmaması gerekiyor.
Kullanıcı avatarı
nasrullah
Yeni Başlamış
 
Kayıt: 19 Oca 2020 18:53
Meslek: muhasebe
Yaş: 28
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/şişli

Cevap: Aktif Hücre Renklendirme Hk.

İleti#3)  okutkan » 11 Oca 2021 12:38

Hangi hücreleri bu renklendirme kodundan muaf tutmanız gerekiyor?
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Siteye Alışmış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 396
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Aktif Hücre Renklendirme Hk.

İleti#4)  Miraç CAN » 11 Oca 2021 13:14

Deneyin:
Kod: Tümünü seç
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Rows("2:" & Rows.Count).Interior.ColorIndex = xlColorIndexNone
If Target.Row < 2 Then Exit Sub
Range(Cells(2, ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column)).Interior.ColorIndex = 19 'Sütun Rengi
ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
End Sub
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 911
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Aktif Hücre Renklendirme Hk.

İleti#5)  Miraç CAN » 11 Oca 2021 13:16

İlk iki satıra uygulanmasın istiyormuşsunuz; Burada ki 2 leri 3 yapın.
Kod: Tümünü seç
If Target.Row < 2 Then Exit Sub
Range(Cells(2, ActiveCell.Column)...
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 911
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Cevap: Aktif Hücre Renklendirme Hk.

İleti#6)  nasrullah » 11 Oca 2021 13:32

Miraç CAN yazdı:İlk iki satıra uygulanmasın istiyormuşsunuz; Burada ki 2 leri 3 yapın.
Kod: Tümünü seç
If Target.Row < 2 Then Exit Sub
Range(Cells(2, ActiveCell.Column)...


Miraç Bey Merhabalar,
Öncelikle yardımınız için teşekkür ederim. Formül çalıştı, ilk iki satırda herhangi bir işlem yapmıyor ancak yine de tablo içerisinde bir yere tıkladığımda başlıklarımın renklendirmesini siliyor.
Kullanıcı avatarı
nasrullah
Yeni Başlamış
 
Kayıt: 19 Oca 2020 18:53
Meslek: muhasebe
Yaş: 28
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/şişli

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Aktif Hücre Renklendirme Hk.

İleti#7)  Miraç CAN » 11 Oca 2021 14:46

Burada ki değişikliği yazmayı unutmuşuz; Rows("2:" & Rows.Count)... buradaki 2 de 3 olacak.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 911
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Cevap: Aktif Hücre Renklendirme Hk.

İleti#8)  nasrullah » 11 Oca 2021 16:23

Miraç CAN yazdı:Burada ki değişikliği yazmayı unutmuşuz; Rows("2:" & Rows.Count)... buradaki 2 de 3 olacak.


Miraç Bey, elinize sağlık. Tam istediğim gibi oldu, çok teşekkür ederim.
Kullanıcı avatarı
nasrullah
Yeni Başlamış
 
Kayıt: 19 Oca 2020 18:53
Meslek: muhasebe
Yaş: 28
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/şişli


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 4 misafir

Bumerang - Yazarkafe