herkese merhaba. A1 hücresine plakayı yazarak o ille alakalı bir resim getirmek istiyorum. ama öncesinde açılır liste ekledim. Liste açıldığında 1, 7, 22, 34 vb plakalar yer alıyor. Birini seçtiğimde farklı bir hücrede ADANA, ANTALYA vb. yazacak şekilde düzenledim. (İNDİS, DÜŞEYARA vb komutlarla.). Aşağıda yazdığım kodda A1 e 1 yazıldığında, istediğim resim geliyor ama, ben A1 deki veriyi önceki düzenekten + ile çekmeye çalıştığımda formül çalışmıyor. hücreyi seçerek direkt olarak 1 veya 7 yazdığımda fotoğraf geliyor. ama + ile çekiyorum, açılır listeden seçtiğim herhangi bir plaka otomatikman A1 e gidiyor ancak, o şekilde çalışmıyor. Umarım anlatabilmişimdir. Ne yapabilirim acaba yardımlarınızı bekliyorum...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim res As String
Dim a As Shape
Dim B4 As Range
If Target = "" Or Target.Address <> "$A$1" Then Exit Sub
If Target.Count > 1 Then Exit Sub
Set B4 = Range("B4")
For Each a In Shapes
a.Delete
Next a
B4.ClearContents
res = "C:\Resimler\" & Target & ".jpg"
If Dir(res) = "" Then
B4 = "RESİM YOK"
Else
With ActiveSheet.Pictures.Insert(res)
.Left = B4.Left
.Top = B4.Top
.Height = B4.Height
.Width = B4.Width
End With
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim res As String
Dim a As Shape
Dim B4 As Range
If Target = "" Or Target.Address <> "$A$1" Then Exit Sub
If Target.Count > 1 Then Exit Sub
Set B4 = Range("B4")
For Each a In Shapes
a.Delete
Next a
B4.ClearContents
res = "C:\Resimler\" & Target & ".jpg"
If Dir(res) = "" Then
B4 = "RESİM YOK"
Else
With ActiveSheet.Pictures.Insert(res)
.Left = B4.Left
.Top = B4.Top
.Height = B4.Height
.Width = B4.Width
End With
End If
End Sub