Userform üzerinde değişen klasör bağlantısı ?

[Gorarr]

Selamlar, sorumun başlığını nasıl yazacağımı bilemedim. Userform üzerinde değişen klasör bağlantısı ile ilgili desteğinize ihtiyacım var.

Sorumu nasıl yazacağımı da bilemedim, daha fazla çorba etmemek için örnek dosya üzerinde ayrıntılı yazdım.

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

 

[İhsan Tank]

Selamlar, sorumun başlığını nasıl yazacağımı bilemedim. Userform üzerinde değişen klasör bağlantısı ile ilgili desteğinize ihtiyacım var.

Sorumu nasıl yazacağımı da bilemedim, daha fazla çorba etmemek için örnek dosya üzerinde ayrıntılı yazdım.

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

Merhaba
Userform'un kod bölümündeki kodları bunlar ile değiştirir misiniz_?

Dim sayi()
Dim yol
Private Sub ComboBox1_Change()
yol = ComboBox1.Text
resimlik
End Sub
Private Sub SpinButton1_Change()
Image1.Picture = LoadPicture(yol & sayi(SpinButton1))
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sheet1!C1:C" & Sheets("Sheet1"). _
Range("C" & Rows.Count).End(xlUp).Row
End Sub
Private Sub resimlik()
Set nesne = CreateObject("Scripting.FileSystemObject")
Set klasor = nesne.GetFolder(yol)
say = klasor.Files.Count
ReDim Preserve sayi(say)
For Each dosya In klasor.Files
c = c + 1
sayi(c) = dosya.Name
Next
SpinButton1.Min = 1
SpinButton1.Max = say
End Sub

 

[Gorarr]

İhsan hocam çok çok teşekkür ederim. Ellerinize sağlık. Çok işime yaradı.

 

[İhsan Tank]

İhsan hocam çok çok teşekkür ederim. Ellerinize sağlık. Çok işime yaradı.

Rica ederim
:keyif:

 

[rmznkc]

Resim Ekleme

hocam bir sorum da benim olacak mümkünse. konuyla belki çok alakalı değil ama;
excele resim ekleyebilen bir makro yazdım.excel sayfasına geliyorum,butona tıklayıp formu açıyorum ve daha sonra resmin yükleneceği yeri option button ile seçiyorum,resim yükle butonuna tıklayarak istediğim resmi seçerek yükleme yapıyorum. bu işlem bilgisayarımda kusursuz çalışıyor.fakat işte kullandığım bilgisayarda deneyince şöyle bir hata veriyor; userform açmak için kullandığım buton eklediğim resimle beraber kayıyor. Halbuki benim bilgisayarımda buton sabit.

yardımcı olabilirseniz sevinirim