Resim getirme

[quantum32]

Merhabalar,

Konu ile ilgili bir çok uygulama var ancak bunları kendime göre düzeltemedim. Sorum şu şekilde:

Masaüstünde bir resim klasörüm var. A sütununda malzeme numaralarım yazıyor. Bir makro çalıştırdığım zaman B sütununa A sütununda yazan malzeme numarasına karşı gelen resmi klasörden getirmesi.

Yardımlarınız için teşekkürler.

 

[İhsan Tank]

Merhaba
Resimleri ve dosyanızı ekleseniz ona göre yardımcı olsak

 

[Murat OSMA]

Ek'teki dosyayı inceleyiniz...

■ Workbook_Open kodları;

Private Sub Workbook_Open()
    Sheets("Sayfa1").Select
    Range("A1").Select
    Sayfa1.Image1.Visible = False
End Sub

■ Sayfa1 kod sayfasına yazılacak kodlar;

Private Sub Image1_Click()
    Image1.Visible = False
    Range("C1").ClearContents
    Range("A1").Select
    Image1.Picture = LoadPicture("")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then
    Image1_Click
    Exit Sub
    ElseIf Target.Address = "$A$" & ActiveCell.Row Then
    Range("C1").Value = ActiveCell.Value
    Image1.Visible = True
    Image1.Top = ActiveCell.Top
    Image1.Left = ActiveCell.Offset(0, 2).Left
    End If
    On Local Error Resume Next
    Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Resimler\" & _
    Range("C1").Value & ".jpg")
    If Err Then Image1.Picture = LoadPicture(ThisWorkbook.Path & _
    "\Resimler\Yok.jpg")
End Sub

 

[Murat OSMA]

İhsan Bey, mesaj üzerinde düzenleme yapıyordum yazdığınızı görmedim...

 

[İhsan Tank]

İhsan Bey, mesaj üzerinde düzenleme yapıyordum yazdığını görmedim...

Önemli değil sitedeki çözümler için teşekkür ederim.

 

[Murat OSMA]

Rica ederim, iyi geceler...