[]
Excel Hücre Değerine Göre Klasörden Resim Ekleme
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ı?
Şö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
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
(03.07.15 11:21:57 ~ 11:22:29)
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
edit: gibi. i.imgur.com
- Mcfly (03.07.15 11:27:02 ~ 11:56:12)
1
