Hücredeki değere göre sürücüde dosya arama

[Bosnalı Yasemin]

Merhabalar. Forumda benzer bir örnek var ama çok karışık. Excelde bir hücredeki değere göre c sürücüsünde belirli bir klasördeki dosyayı nasıl aratabilirim. Örnek dosyası ektedir.

 

[Korhan Ayhan]

Selamlar,

Deneme şansım olmadı ama aşağıdaki kod işinize yarayabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
'sayfadaki hücrelerde bir degisiklik oldugunda foto1 nesnesine Resim çagirir
'MUHTEMELEN BU KODLARDA DEĞİŞİKLİKTE YAPILACAK
       Foto1.Visible = False
        If k4 = "Bu sicil nolu isim yok..." Then
            Foto1.Visible = True
        ElseIf ad4 = "Ayrıldı" Then
            Foto1.Visible = True
        End If
       
       On Error GoTo bitir
        If Dir("C:\Foto\" & ['BilgiFormuYazdir'!u3]) <> "" Then
            Foto1.PictureSizeMode = fmPictureSizeModeZoom
            Foto1.Picture = LoadPicture(['BilgiFormuYazdir'!u3])
        Else
            Foto1.Picture = LoadPicture("")
        End If
bitir:
    Foto1.Visible = True
End Sub

 

[Bosnalı Yasemin]

Maalesef olmadı.