Butonların rengini kaydetme

[basaksehirli]

Arkadaşlar userform üzerinde butonlarım var ve bunlara tıkladıkça kırmızı, yeşil gibi renklere sahip oluyor. Text ve Comboboxlara yazılan son veriler, uygulama açıldığında nasıl karşımıza çıkıyorsa çalışma sırasında rengini değiştirdiğimiz butonların rengini de uygulamayı açtığımda son değiştirdiğim renkte nasıl görebilirim. Böyle bir şeyin mümkünatı var mı ?

 

[Korhan Ayhan]

Renk değiştirme sırasında ilgili rengi sayfada bir alana yazdırırsanız form açılırken tekrar hücreden çağırıp formunuzda kullanabilirsiniz.

 

[basaksehirli]

Korhan bey örnek olarak bir kod iletebilir misiniz ? Bunu düşündüm ama nasıl yazmam gerektiğini çıkaramadım.

 

[Korhan Ayhan]

Siz butonlarınızın renk değiştirme kodunu verin. Gerekli revizeyi yapalım.

 

[basaksehirli]

Private Sub CommandButton122_Click()
If CommandButton122.BackColor = vbGreen Then
CommandButton122.BackColor = vbRed


Else
If CommandButton122.BackColor = vbRed Then
CommandButton122.BackColor = vbGrayText


Else
If CommandButton122.BackColor = vbGreen Then
CommandButton122.BackColor = vbRed
Else

If CommandButton122.BackColor = vbGrayText Then

CommandButton122.BackColor = vbBlack
CommandButton122.ForeColor = vbWhite
Else
CommandButton122.BackColor = vbGreen

End If
End If
End If
End If
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub CommandButton122_Click()
    If CommandButton122.BackColor = vbGreen Then
        CommandButton122.BackColor = vbRed
        Range("A1") = CommandButton122.BackColor
    Else
        If CommandButton122.BackColor = vbRed Then
            CommandButton122.BackColor = vbGrayText
            Range("A1") = CommandButton122.BackColor
        Else
            If CommandButton122.BackColor = vbGreen Then
                CommandButton122.BackColor = vbRed
                Range("A1") = CommandButton122.BackColor
            Else
                If CommandButton122.BackColor = vbGrayText Then
                    CommandButton122.BackColor = vbBlack
                    CommandButton122.ForeColor = vbWhite
                    Range("A1") = CommandButton122.BackColor
                Else
                    CommandButton122.BackColor = vbGreen
                    Range("A1") = CommandButton122.BackColor
                End If
            End If
        End If
    End If
End Sub

Private Sub UserForm_Initialize()
    CommandButton122.BackColor = Range("A1")
End Sub

 

[basaksehirli]

Hemen deniyorum Korhan bey.

 

[basaksehirli]

Oldu çok teşekkür ediyorum. Hayırlı geceler Korhan bey.