Giyim yardımı Listesindeki verilerle Kupon oluşturmak İstiyorum.

[sedbond]

Arkadaşlar ekteki dosya için yardımınız gerekiyor.yardım edecek arkadaşlara şimdiden teşekkür ederim.

 

[sedbond]

Acil yardım bekliyorum ilgilenenlere teşekkür ederim.

 

[muygun]

Merhaba;
Eki inceleyin.
İyi çalışmalar.

 

[sedbond]

Merhaba;
Eki inceleyin.
İyi çalışmalar.

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

 

[turist]

Ekli dosyayı inceleyiniz.

 

[sedbond]

Merhaba;
Eki inceleyin.
İyi çalışmalar.

Ekli dosyayı inceleyiniz.

ikinizede yardımlarınızdan dolayı teşekkür ederim allah razı olsun.

 

[vahapdogan]

Arkadaş bu ilk sorum olacak sizlere belki sizler için çok kolay olabilir fakat ben bayağı uğraşmama rağmen yapamadım.
Excel sayfamda 33 tane resim var ve bu resim yandaki hücrenin değerine göre değişiyor.

Sayfa3.Image1.Picture = LoadPicture("c:\res\star2.jpg")
Case 30 To 39
Sayfa3.Image1.Picture = LoadPicture("c:\res\star3.jpg")
Case 40 To 49

Yukarıdaki kodu yazdığımda gayet düzgün çalışıyor fakat bu kez image1 image2...... image3 için ayrı ayrı bu şartları tekrar yazmam gerekiyor. Bunu daha kısa bir kodla halledebilirmiyiz
for i = 1 to 33
i=i+1
Sayfa3.Image&i.Picture = LoadPicture("c:\res\star2.jpg")
şeklinde yazdığım kod çalışmadı
Özetlersek image1 image2 isimlerinden sonra gelen 1 ve 2 adlarını otomatik olarak arttırabilirmiyiz.
umarım anlatabilmişimdir. Çözecek olana şimdiden teşekkürler