- Katılım
- 17 Mayıs 2007
- Mesajlar
- 41
- Excel Vers. ve Dili
- Excel 2003 Türkçe
Resimli malzeme fiyat listesi hazırlıyorum. A sütününda malzeme kodları yazılı G sütününda da malzemenin resmi olsun istiyorum. Malzemenin kodu aynı zamanda ürünün resminin adı oluyo. Resimler bir klasör içinde.
İstediğim şey bir tuşa bağlı olarak çalışan makronun, tıklandığında tüm ürünlerin resimlerini G sütününa listelemesi. Excel 2003 de yardımlarınız ile yaptığım kod aşağıdaki gibi. Gayet güzel çalışıyordu. Ama Excel 2007 de çalışmadı nedense. Yardımlarınızı bekliyorum.
(mal sayısı kadar bi döngü içinde her mal için ayrı ayrı resim çağırıp 6.sütüna yani f sütününa yapıştırıyor. Yapıştırıyordu daha doğrusu.)
sub resim()
malsayısı = [h1] + 1
For i = 2 To malsayısı
Cells(i, 1).Select
Selection.Copy
[g1].Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cells(i, 6).Select
ActiveSheet.Pictures.Insert ("e:\Malzeme Resim\Küçük Resim\" & [g1] & ".jpg")
Next i
Range("a2").Select
End Sub
Ayrıca malzemeleri kodlarına göre artan sırada sıralamam mümkün değil. Bunun bi önemi varmıdır.
İstediğim şey bir tuşa bağlı olarak çalışan makronun, tıklandığında tüm ürünlerin resimlerini G sütününa listelemesi. Excel 2003 de yardımlarınız ile yaptığım kod aşağıdaki gibi. Gayet güzel çalışıyordu. Ama Excel 2007 de çalışmadı nedense. Yardımlarınızı bekliyorum.
(mal sayısı kadar bi döngü içinde her mal için ayrı ayrı resim çağırıp 6.sütüna yani f sütününa yapıştırıyor. Yapıştırıyordu daha doğrusu.)
sub resim()
malsayısı = [h1] + 1
For i = 2 To malsayısı
Cells(i, 1).Select
Selection.Copy
[g1].Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cells(i, 6).Select
ActiveSheet.Pictures.Insert ("e:\Malzeme Resim\Küçük Resim\" & [g1] & ".jpg")
Next i
Range("a2").Select
End Sub
Ayrıca malzemeleri kodlarına göre artan sırada sıralamam mümkün değil. Bunun bi önemi varmıdır.