- Katılım
- 10 Mayıs 2012
- Mesajlar
- 7
- Excel Vers. ve Dili
- OFİS 2007
arkadaşlar tıkladıgım hucreye ait olan resmi acan bir makrom var sorunum şu resimler sayfada sabit yere geliyor ben 100. satıra indiğimde resme bakmak için sayfa basına donuyorum istediğim ben hangi hucrede isem onun karsısına getirsin. kod asagıdadır şimdiden tesekkurler..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$" & ActiveCell.Row And Target.Value <> Empty Then
If ActiveSheet.Shapes.Count > 0 Then ActiveSheet.Shapes(1).Delete
Dosya = "\\B2dtsql\tumurunler\" & Target.Value & ".jpg"
If IsError(Len(Dir(Dosya))) = False And Len(Dir(Dosya)) > 1 Then
ActiveSheet.Shapes.AddPicture Dosya, True, True, 500, 0, 250, 250
Else
a = MsgBox(Dosya & " bulunamadı", vbExclamation)
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$" & ActiveCell.Row And Target.Value <> Empty Then
If ActiveSheet.Shapes.Count > 0 Then ActiveSheet.Shapes(1).Delete
Dosya = "\\B2dtsql\tumurunler\" & Target.Value & ".jpg"
If IsError(Len(Dir(Dosya))) = False And Len(Dir(Dosya)) > 1 Then
ActiveSheet.Shapes.AddPicture Dosya, True, True, 500, 0, 250, 250
Else
a = MsgBox(Dosya & " bulunamadı", vbExclamation)
End If
End If
End Sub