Soru Excel'de veri doğrulama ile yapılabilir mi

[istanbulcahan]

Merhabalar.

D1 hücresinde ilan numarası olmalı veri doğrulama seçtikten sonra , D1 hücresi D5-D9 hücre aralığını ilan numaraları yazılı olan ve E5-E9 hücre aralığı iilannumarası.jpg adları olan listeyi seçiyorum.
Module den aşağıdaki kodu yapıştırıp, CTRL S ile kaydedip VBA' dan çıkıyorum. Dosyaydı xlsm olarak kaydedip kapatıp tekrar açıyorum.
D1 deki dropdown listede herhangi bir ilanı seçiyorum, ancak D5-D9, E5-E9,F5-F9,G5-G9 hücrbhe aralığında birleşitirlmiş hücrede ilanın resmi gözükmüyor.
Örnek dosya ektedir. Çalışma form sheetinde dir.
İyi çalışmalar.

 

[Muzaffer Ali]

Merhaba.

Kodlar "Form" sayfasının kod kısmında olmalı siz kodları Module yazmışsınız.

Kodda düzenlemeler yaptım aşağıdaki kodu "Form" sayfasının kod kısmına kopyalayarak deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ilanNo As String
    Dim resimYolu As String
    Dim resim As Picture
  
    If Target.Address = "$D$1" Then
        Range("D5") = ""
        ilanNo = Target.Value
        resimYolu = "C:\daire_form\" & ilanNo & ".jpg"
        On Error GoTo NoResim
        If Me.Pictures.Count = 1 Then
            Me.Pictures(1).Delete
        End If
      
        Set resim = Me.Pictures.Insert(resimYolu)
        With resim
            .Left = Me.Range("D5").Left
            .Top = Me.Range("D5").Top
            .Width = Me.Range("D5:G9").Width * 0.8
            .Height = Me.Range("D5:G9").Height * 0.8
            .BringToFront  ' Resmi öne getir
        End With
        Exit Sub
NoResim:
        Me.Range("D5").Value = "Resim hatası: " & Err.Description & vbCrLf & "Yol: " & resimYolu
        ' Alan beyaz kalmasın diye hata mesajı yaz
    End If
End Sub