Userform backdround

[zulfuernek]

Userform background rengini radio butınlarla değiştiriyor. Fakat userformu kapatıp açınca seçtiğim renkte açmıyor. Userformu kapatıp açsam dahi userformun arka plan rengi radio butonda seçili olan ekran rengiyle açılmasını istiyorum.
Saygılar

 

[Ömer BARAN]

Merhaba.

Bence basit düşünmek iyidir.
Kullanılan renk kodu'nu, OptionButton seçimi üzerinden, sayfada uygun bir hücreye yazdırırsınız,
UserForm_Initalize kodlarında da renk kodunu sayfadan aldırırsınız.
.

 

[zulfuernek]

çok mantuıklı hocam.

benim de zihnimde bu canlanmıştı fakat

şimdi ben bişey desem inanmazsınız. optionbuttonu sayfaya işleme konusunda zayıfım ilk kez kullanıcam programda.

 

[Ömer BARAN]

OptionButton'ların kendi arkaplan renklerini VBA tasarım ekranında elle zevkinize göre ayarlarsanız.
Sonra da;
-- OptionButton Click olayına:
If OptionButton1=True Then Sheets("....").[A1]=OptionButton1.BackColor
-- UserForm_Initalize kodlarının başına da:
Me.BackColor = Sheets("....").[A1]
Me.OptionButton1 = True
satırlarını eklersiniz.
.

 

[zulfuernek]

ömer hocam verdiğin kodlar çok işime yaradı. bende bira ekleme yaptım. command buttona basınca anında ekran üzerindede görebilimek için. emeğine sağlık.

kodları paylaşıyorum ömer hocam

Private Sub OptionButton1_Click()
Me.BackColor = OptionButton1.BackColor
If OptionButton1 = True Then Sheets("Sayfa2").[A1] = OptionButton1.BackColor
End Sub

Private Sub OptionButton2_Click()
Me.BackColor = OptionButton2.BackColor
If OptionButton2 = True Then Sheets("Sayfa2").[A1] = OptionButton2.BackColor
End Sub

Private Sub OptionButton3_Click()
Me.BackColor = OptionButton3.BackColor
If OptionButton3 = True Then Sheets("Sayfa2").[A1] = OptionButton3.BackColor
End Sub

Private Sub OptionButton4_Click()
Me.BackColor = OptionButton4.BackColor
If OptionButton4 = True Then Sheets("Sayfa2").[A1] = OptionButton4.BackColor
End Sub

Private Sub UserForm_Initialize()
Me.BackColor = Sheets("Sayfa2").[A1]
End Sub

 

[Ömer BARAN]

Sadece UserForm_Initialize kod blokunda, sayfadan alınan renk bilgisi hangi OptionButton kaynaklı ise,
o OptionButton'un, form açıldığında seçili olmasını sağlayacak ilave yerinde ve mantıklı olur bence.

Bunun için;
-- ya sayfaya sadece renk bilgisini değil, kaynağı olan optionbutton'un adını da yazdırıp bilgiyi oradan almak,
-- ya da küçük bir For...Next döngüsü ile rengin ait olduğu optionbutton'un adını bulmak
çözüm olur.
.

 

[zulfuernek]

Aynen ömer hocam o da benim dikkatimi çekti. Buton seçili gelmiyordu. Onun içinde bir yol deneyecem umarım başarılı olurum. Dediğiniz yöntemi uygulayarak. Başarısız olmaö durumunda sizden yardım rica ederim.

 

[Ömer BARAN]

Estağfurullah.

Desteğe ihtiyaç duyanlar için, hazır durumda birçok FORUM üyesi burada.
Mutlaka bir üye destek verecektir.
.

 

[zulfuernek]

hocam hangi optionbuttonu seçtiğimi userform açılınca aktif halde gelmesini nasıl sağlarım. beceremedim bi türlü((