[Yardım]  Hücre rengine bağlı diğer hücrelerin renklendirilmesi.

Excel sayfalarında kullandığımız yerleşik fonksiyonlar ya da kendi yazabileceğiniz fonksiyonlar ile ilgili bilmek istedikleriniz, sorunlar ve çözümleri

Hücre rengine bağlı diğer hücrelerin renklendirilmesi.

İleti#1)  cemalabi » 16 Arl 2020 19:10

Arkadaşlar örnek dosyam incelendiğinde sorunum daha iyi anlaşılacaktır. Özetle; Bir hücrenin rengine göre diğer hücrelerinde renklendirilmesi. Örneğin; A1 hücresi gri renkli ise diğer sayfadaki b8;c8;d8;e8 hücrelerinin sarı olması gibi. Şimdiden teşekkür eder, saygılar sunarım.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
cemalabi
Siteye Alışmış
 
Kayıt: 20 Arl 2017 10:44
Meslek: Kamu Personeli
Yaş: 54
İleti: 117
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: Hücre rengine bağlı diğer hücrelerin renklendirilmesi

İleti#2)  askmadige34 » 16 Arl 2020 21:26

KREDİLERİM sayfasının kod kısmına aşağıdaki kodları ekleyin.
Kod: Tümünü seç
Private Sub Worksheet_Activate()
Dim son As Long
Application.ScreenUpdating = False
son = Sheets("BORÇLAR").Range("H65").End(3).Row
For i = 3 To son
    If Sheets("BORÇLAR").Range("H" & i).Interior.Color = RGB(191, 191, 191) Then
        Range("B" & i + 3 & ":F" & i + 3).Interior.Color = RGB(255, 255, 0)
    End If
Next i
Application.ScreenUpdating = True
End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 40
İleti: 1768
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Hücre rengine bağlı diğer hücrelerin renklendirilmesi

İleti#3)  cemalabi » 17 Arl 2020 07:26

Kardeşim çok teşekkür ederim. Yazmış olduğun kod işime yaradı. Bu kod üzerinden diğer banka kredi taksitini de düzenleyeceğim. Rabbim yâr ve yardımcın olsun.
Kullanıcı avatarı
cemalabi
Siteye Alışmış
 
Kayıt: 20 Arl 2017 10:44
Meslek: Kamu Personeli
Yaş: 54
İleti: 117
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: Hücre rengine bağlı diğer hücrelerin renklendirilmesi

İleti#4)  cemalabi » 17 Arl 2020 07:38

Yalnız şunu farkettim. BORÇLAR sayfasından rengi boşalttığım zaman diğer sayfadaki hücrelerin eski konumunu alması gerekiyor. Bunu da çözümlerseniz çok sevinirim.
Kullanıcı avatarı
cemalabi
Siteye Alışmış
 
Kayıt: 20 Arl 2017 10:44
Meslek: Kamu Personeli
Yaş: 54
İleti: 117
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

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

Cevap: Cevap: Hücre rengine bağlı diğer hücrelerin renklendi

İleti#5)  okutkan » 17 Arl 2020 18:34

cemalabi yazdı:Yalnız şunu farkettim. BORÇLAR sayfasından rengi boşalttığım zaman diğer sayfadaki hücrelerin eski konumunu alması gerekiyor. Bunu da çözümlerseniz çok sevinirim.

Eski koda şunu ekleyin:
Else
Range("B" & i + 3 & ":F" & i + 3).Interior.Color = xlNone

Kod: Tümünü seç
Private Sub Worksheet_Activate()
Dim son As Long
Application.ScreenUpdating = False
son = Sheets("BORÇLAR").Range("H65").End(3).Row
For i = 3 To son
    If Sheets("BORÇLAR").Range("H" & i).Interior.Color = RGB(191, 191, 191) Then
        Range("B" & i + 3 & ":F" & i + 3).Interior.Color = RGB(255, 255, 0)
        Else
        Range("B" & i + 3 & ":F" & i + 3).Interior.Color = xlNone
    End If
Next i
Application.ScreenUpdating = True
End Sub
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
Site Dostu
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 29
İleti: 892
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Hücre rengine bağlı diğer hücrelerin renklendirilmesi

İleti#6)  cemalabi » 17 Arl 2020 19:15

Okutkan kardeşim çok teşekkür ederim. Ellerine sağlık. Problemim çözülmüştür.
Kullanıcı avatarı
cemalabi
Siteye Alışmış
 
Kayıt: 20 Arl 2017 10:44
Meslek: Kamu Personeli
Yaş: 54
İleti: 117
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Kullanıcı Tanımlı Fonksiyonlar ( KTF )

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe