Sadece 15-TL bedelle DEV Excel Arşivine sahip olmak için DEV Excel Arşivi linkine tıklamanız yeterli olacaktır.

Soru Şarta bağlı Userformdaki Commandbuttonları Renklendirmeyi Nasıl Yapabilirim

akınzara

Yeni Üye
Üye
Katılım
23 Kas 2018
Mesajlar
5
En iyi cevap
0
Tepkime puanı
0
Puanları
1
Selamlar ;

Bir Tablom ve bir Userformum var ve içinde yaklaşık 50 commandbutton var.Bu userformdaki commandbuttonları excel sayfamdaki tabloda değişen rakamlara göre renklendirmek istiyorum.Yardımlarınızı rica ederim..Dosyayı ekliyorum
 

Ekli dosyalar

Admin

Kurucu
Yönetici
Kurucu
Katılım
1 Eki 2018
Mesajlar
384
En iyi cevap
0
Tepkime puanı
180
Puanları
43
Konum
Büyükçekmece
Excel Versiyonu, Dili
Excel 2019 EN
Kod:
Private Sub UserForm_Initialize()

Dim P As Object
Dim Alan As Range

For Each P In Me.Controls
    Debug.Print P.Caption
    If Left(P.Name, 13) = "CommandButton" Then
        For Each Alan In Sayfa1.Range("B2:B" & Sayfa1.Range("B" & Sayfa1.Rows.Count).End(xlUp).Row)
            If P.Caption = Alan Then
                If Alan.Offset(0, 6) = Alan.Offset(0, 12) Then
                    P.BackColor = &HFF&
                ElseIf Alan.Offset(0, 12) = 0 Then
                    P.BackColor = &H80FFFF
                ElseIf Alan.Offset(0, 12) > 0 And Alan.Offset(0, 12) < Alan.Offset(0, 6) Then
                    P.BackColor = &H8000&
                End If
            Else
                'Şarta Uymuyorsa
            End If
        Next Alan
    End If
Next P

End Sub
 

Üst