userform pozisyonu ?

[Gorarr]

İyi akşamlar. userform pozisyonu için kullandığım kodu combobox_change olayına bağladım ancak işe yaramıyor. yardımcı olabilimisiniz.


Yardımlarınız için şimdiden teşekkür ederim.

 

[Mustafa MUTLU]

UserForm_Initialize
Bölümüne yazın kodunuzu..

 

[Gorarr]

Orayada yazdım combobox değişince pozisyon değişsin istiyordum onu yapamadım.

 

[bmutlu966]

Orayada yazdım combobox değişince pozisyon değişsin istiyordum onu yapamadım.

Private Sub ComboBox1_Change()
Unload UserForm1
UserForm1.StartUpPosition = 3
UserForm1.Show
End Sub

 

[Gorarr]

Hocam teşekkür ederim. Fakat hata veriyor aceba alternatif yöntem varmı.

 

[bmutlu966]

Dosya bende çalışıyor.

 

[Gorarr]

hocam ben sade haliyle denemiştim. bendeki orjinal dosya ile hata veriyor sanırım. örnek dosyayı orjinali ile değiştirdim. tekrar bakmanız mümkünmü sanırım çakışma oluyor.

 

[bmutlu966]

Private Sub ComboBox1_Change()

Unload UserForm1
UserForm1.StartUpPosition = 3
UserForm1.Show
yol = ComboBox1.Text
ALBUM

End Sub

olarak deneyin. Ancak sizin ALBUM makronuz hata veriyor.

 

[Gorarr]

Aynı o şekilde yaptım ama bendede olmadı. Kodların orjinali başka amaçla Levent Menteşoğlu hocamız yazmıştı. bilmiyorum bir çözüm bulamadım. klasör yollarında resim de olması gerekiyor bende oda var ama userform boyut değiştirme kodları işe karışınca kod çalışmıyor. uğraştığınız için teşekkür ederim. birazdaha uğraşıp kod arayacağım. olmazsa yeni haliyle tekrar sorarım.

 

[bmutlu966]

Ok kolay gelsin.