B1 hücresindeki değere göre A1 hücresine resim eklemek istiyorum.

Şöyle ki;

B1: Ankara
B2: İstanbul
B3: İzmir

gibi olacak. A1 hücresine belirli bir klasördeki Ankara.jpg, A2'ye İstanbul.jpg gelecek.

Bunun için Excel image assistant diye bir program buldum ama full'unu bulamadıgım için 3000-4000 satırı tek tek yapmam gerekiyor. Makroyla çözebilecek olan yada program önerebilecek olan var mı?

 

Bir şunu deneyebilirsin:

Sub resim_ekleme()

'1000 satır kabul edildi.

For i = 1 To 1000
Cells(i, 1).Select

If Cells(i, 2) = "Ankara" Then
ActiveSheet.Pictures.Insert("C:\Users\User\Desktop\Capture.JPG").Select

'buraya ankara resminin adresi yazılacak
ElseIf Cells(i, 2) = "İstanbul" Then
ActiveSheet.Pictures.Insert("C:\Users\User\Desktop\Capture.JPG").Select

'buraya istanbul resminin adresi yazılacak
End If

Next i
End Sub

puc

lol böyle kod mu yazılır. 1000 hücre için tek tek ankara istanbul izmir bursa mı yazıcak. 100 lira verirsen yazarım ben.

edit: gibi. i.imgur.com

Mcfly
1

mobil görünümden çık