Userformda yapılan değişik nasıl kaydedilir?

[osmanfenerli1907]

Merhabalar
Ben userformda commandbutton1 e tıklayınca renk paleti çıkıyor.Bu renk paletinde renk seçip tamama tıklayınca bunu listbox1 e uyguluyor.Fakat userform1 i tekrar açınca yine eski haline geri dönüyor.Benim yapmak istediğim seçtiğim renk her zaman uygulansın.Userformu açıp kapattığımda dahi.
İYİ günler...

 

[Kemal Demir]

Private Sub UserForm_Initialize()
UserForm1.BackColor = RGB(10, 50, 70)
End Sub


Yukarıdaki Kod Userform'a Zeytuni Rengi verir.(Eğer Renk Körü Değilsem)

 

[Levent Menteşoğlu]

Merhabalar
Ben userformda commandbutton1 e tıklayınca renk paleti çıkıyor.Bu renk paletinde renk seçip tamama tıklayınca bunu listbox1 e uyguluyor.Fakat userform1 i tekrar açınca yine eski haline geri dönüyor.Benim yapmak istediğim seçtiğim renk her zaman uygulansın.Userformu açıp kapattığımda dahi.

Bu işlemi yapan kodları yazarmısınız.

 

[osmanfenerli1907]

Private Sub CommandButton2_Click()
On Error Resume Next
Application.ScreenUpdating = False
adres = ActiveCell.Address
[HY1].Select
Application.Dialogs(xlDialogPatterns).Show 1
ActiveCell.Value = ActiveCell.Interior.Color
szrenk = ActiveCell.Value
Me.ListBox1.BackColor = szrenk
Range(adres).Select
Application.ScreenUpdating = True
End Sub

 

[veyselemre]

Kodlarınıza aşağıdaki satırları ekleyin.

Private Sub UserForm_Initialize()
Me.ListBox1.BackColor = [hy1]
End Sub

 

[osmanfenerli1907]

Sayın veyselemre
Çok teşekkür ediyorum.Tam benim dediğim gibi oldu..
İYİ akşamlar
kolay gelsin