Userformu renklendirme

[mars2]

İyi Günler;
Userform üzerinde bulunan combobox'taki renk isimlerine göre, userformun renki değişmekte. Ancak exceli veya userformu kapatıp açtığımda belirlenen renki olmasının istemekteyim.
Yardım

 

[mars2]

Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "Yeşil"
UserForm1.BackColor = &HC0C000
Label1.BackColor = &HC0C000
Case "Kırmızı"
UserForm1.BackColor = &HFF&
Label1.BackColor = &HFF&
Case "Mavi"
UserForm1.BackColor = &H8000000D
Label1.BackColor = &H8000000D
Case "Açık Yeşil"
UserForm1.BackColor = &H80FF80
Label1.BackColor = &H80FF80
Case "Mor"
UserForm1.BackColor = &HFF8080
Label1.BackColor = &HFF8080
Case "Lacivert"
UserForm1.BackColor = &H8000000D
Label1.BackColor = &H8000000D
Case "Gri"
UserForm1.BackColor = &H80000003
Label1.BackColor = &H80000003
End Select
End Sub

 

[hamitcan]

Combo içindeki renk kodlarını Excel'de bir sayfa içine kaydedip sonra çağırabilirsiniz.

 

[mars2]

Sayın hamitcan;
renkleri çağırma değil, userformdaki comboboxtaki belirlediğim renkin exceşi kapatıp tekrar açtığımda o renkle açılmasını istiyorum.
Yukardaki kodla userformun renkini değiştiyorum, örneğin sarı renk seçtiğimde exceliş kapatıp tekrar açınca userform sarı renk olsun tekrar değiştirmek istediğimde ise o renk kalsın

 

[Korhan Ayhan]

Rengi değiştirdikten sonra renk kdunu bir sayfaya yazdırıp sonrasında form açılışında ilgili hücreyi sorgulayıp renk ataması yapabilirsiniz.