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

**#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.

**#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

**#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.

**#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.

**#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

**#6)** **cemalabi** » 17 Arl 2020 19:15

Okutkan kardeşim çok teşekkür ederim. Ellerine sağlık. Problemim çözülmüştür.

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