Private Sub ComboBox1_Change()
Sheets("sayfa1").Select
Dim bak As Range
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A500")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select
'*******************
foto = ActiveCell.Offset(0, 0).Value
On Error Resume Next 'GoTo hata
If foto <> False Then
Image1.Picture = LoadPicture("E:\Office\WINDOWS\Resim\" & foto & ".bmp") 'BU SATIRIN ÇALIŞMASI İÇİN "C" BÖLÜMÜNE "Resim" adında bir klasör açıp içine resimleri kişilerin kendi isimleriyle kaydedin.
Image1.PictureSizeMode = fmPictureSizeModeStretch
End If
End If
Next bak
End Sub
arkadaşlar bu makroda eğer Resim isimli klasörde o kişiye ait resim yoksa imagenin boş olması nasıl sağlanabilir? yardımcı olursanız sevinirim herkese selamlar.....
Sheets("sayfa1").Select
Dim bak As Range
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A500")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select
'*******************
foto = ActiveCell.Offset(0, 0).Value
On Error Resume Next 'GoTo hata
If foto <> False Then
Image1.Picture = LoadPicture("E:\Office\WINDOWS\Resim\" & foto & ".bmp") 'BU SATIRIN ÇALIŞMASI İÇİN "C" BÖLÜMÜNE "Resim" adında bir klasör açıp içine resimleri kişilerin kendi isimleriyle kaydedin.
Image1.PictureSizeMode = fmPictureSizeModeStretch
End If
End If
Next bak
End Sub
arkadaşlar bu makroda eğer Resim isimli klasörde o kişiye ait resim yoksa imagenin boş olması nasıl sağlanabilir? yardımcı olursanız sevinirim herkese selamlar.....