1 sayfadan 1. sayfa

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

İletiTarih: 16 Arl 2020 19:10
cemalabi
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.

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

İletiTarih: 16 Arl 2020 21:26
askmadige34
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

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

İletiTarih: 17 Arl 2020 07:26
cemalabi
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.

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

İletiTarih: 17 Arl 2020 07:38
cemalabi
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.

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

İletiTarih: 17 Arl 2020 18:34
okutkan
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

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

İletiTarih: 17 Arl 2020 19:15
cemalabi
Okutkan kardeşim çok teşekkür ederim. Ellerine sağlık. Problemim çözülmüştür.