Soru Userformda image getirilen resmi sabitleme

[vuranoğlu]

Merhaba
Userform üzerinde bulunan image nesnesine
ComboBox1 ile gelen resmin formdan çıkıldıktan
sonra da kalmasını sağlayamadım.
Resim değiştiğinde de yeni şekli ile kalacak.
Konu hakkında yardımcı olan arkadaşlara
şimdiden teşekkürler.

 

[ÖmerBey]

Merhaba,
Form1 üzerinden Form2'yi açarken kullandığınız kodlarda Unload Me yerine Me.Hide kullanınız.

 

[vuranoğlu]

Merhaba,
Teşekkürler
Formları kapatıp açtığımızda resimleri sabitlemeyi,
nasıl sağlarız?

 

[ÖmerBey]

Formu kapattığınızda form sıfırlanır. Aynı veriyi kullanmak için ilgili veriyi önce bir yere kaydedip sonra yeniden çağırmanız gerekiyor. Basit şekilde örneklendirmek gerekirse örnek dosyanızdaki UserForm1'in ilgili kodlarının sonuna aşağıdaki eklemeleri yapıp deneyiniz.

Private Sub ComboBox1_Change()
.
.
.
Sheets("PERSONEL").Range("B1") = ComboBox1.ListIndex
End Sub

Private Sub UserForm_Initialize()
.
.
.
ComboBox1.ListIndex = Sheets("PERSONEL").Range("B1")
End Sub

 

[vuranoğlu]

Merhaba
Sheets("PERSONEL").Range("B1") = ComboBox1.ListIndex
bu satırda hata veriyor.

 

[ÖmerBey]

Sheets("PERSONEL").Range("B1") = ComboBox1.ListIndex
bu satırda hata veriyor.

Örnek dosyanızda denediğimde sorun olmamıştı.
Userform1 üzerindeki Combobox1 nesnesinin adını değiştirmiş ya da kodu Userform1 dışından çalıştırıyor olabilir misiniz?

 

[vuranoğlu]

Merhaba
Birkaç kez denedikten sonra hataya düşüyor.
"Nesne gerekli "mesajına düşüyor.

 

[ÖmerBey]

Önce çalışıp sonra hata vermesi de ilginç.
ComboBox1.ListIndex ifadesini Me.ComboBox1.ListIndex ya da UserForm1.ComboBox1.ListIndex şeklinde değiştirip dener misiniz?

 

[vuranoğlu]

Merhaba
ÖmerBey
Me.ComboBox1.ListIndex
şeklinde değişiklik yaptım
hata giderildi teşekkürler.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...