dogu34
Altın Üye
- Katılım
- 18 Ekim 2020
- Mesajlar
- 71
- Excel Vers. ve Dili
- 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 29-11-2024
Merhaba aşağıdaki kod ile A sütununa ürün kodunu yazarak B sütununa ürün resmini getiriyorum.Fakat bazen binlerce ürün kodu oluyor mevcut kullandığım kod ile en fazla 310 uncu satıra kadar resim geliyor.Bunu sınırsız yapabilmenin veya fazlalaştırmanın bir yolu varmıdır?Kodun düzenlenmesinde yardımcı olursanız sevinirim.Teşekkürler
Dim NoA As Long, i As Long
Dim PicFile As String, PicTop As Integer, PicLeft As Integer, PicW As Integer, PicH As Integer
NoA = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To NoA
PicFile = "C:\Users\dogu\Desktop\hepsi" & Range("A" & i).Text & ".jpg"
If Dir(PicFile) = Empty Then
PicFile = "C:\Users\dogu\Desktop\hepsi\RESİM YOK.jpg"
End If
PicTop = Range("B" & i).Top
PicLeft = Range("B" & i).Left
PicW = Range("B" & i).Width
PicH = Range("B" & i).Height
Set MyPic = ActiveSheet.Shapes.AddPicture(PicFile, True, True, PicLeft, PicTop, PicW, PicH)
ResumeFor:
Next
Dim NoA As Long, i As Long
Dim PicFile As String, PicTop As Integer, PicLeft As Integer, PicW As Integer, PicH As Integer
NoA = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To NoA
PicFile = "C:\Users\dogu\Desktop\hepsi" & Range("A" & i).Text & ".jpg"
If Dir(PicFile) = Empty Then
PicFile = "C:\Users\dogu\Desktop\hepsi\RESİM YOK.jpg"
End If
PicTop = Range("B" & i).Top
PicLeft = Range("B" & i).Left
PicW = Range("B" & i).Width
PicH = Range("B" & i).Height
Set MyPic = ActiveSheet.Shapes.AddPicture(PicFile, True, True, PicLeft, PicTop, PicW, PicH)
ResumeFor:
Next
