• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Soru Sicil numarası ile resim çağırma

teyadih

Gold Üye
Katılım
13 Ağu 2021
Mesajlar
701
Çözümler
3
Aldığı beğeni
136
Excel V
Office 2016 EN
Gold Bitiş
8 Mayıs 2026
Konu Sahibi
Merhaba arkadaşlar.
Başkanlık Klasöründeki Sorgulama çalışma kitabındaki C3 hücresine sicil numarasını yazdığım kişinin Albüm klasöründeki resmini C2 ye sığacak şekilde getirecek makroya ihtiyacım var.
Başkanlık klasörü bilgisayarda D klasöründe, Albüm ise D:\PAYLAŞIM\BELGELER\1.PERSONEL\ALBÜM klasöründe bulunuyor.
Sayfa koruma şifresi 7895123
Teşekkür ederim.
 

Ekli dosyalar

teyadih Bey merhaba,
Soru sormak için yüklediğiniz excel dosyalarının sayfalarına şifre koymanıza gerek yoktur. Çözüm için arkadaşlar sayfanın şifresini kaldırmak zorunda kalıyor. Basit bir işlem fakat gereksiz.
 
Konu Sahibi
Teşekkür Ali bey. Sayfa1-Çalışma Kitabı-Modül1 e ekledim ama çalışmadı maalesef. Nerede hata yapıyorum acaba?
Sayfa korumasını kaldırarak yeniden yükledim dosyayı
 

Ekli dosyalar

Benim ilettiğim kod modülde değil sayfa prosedüründe çalışır.Siz makro olarak mı istiyorsunuz ?
Vba ekranında sayfa1 e çift tıklayın açılan pencereye yapıştırın
 
Konu Sahibi
Yolu düzelttiğimde çalıştı Ali bey. Elinize sağlık teşekkür ederim. Ancak sicil değiştiğinde önceki resmi kaldırmayıp üstüne ekliyor.
Önceki resmi silip yeni resmi ekleyebilir mi?
 
Kod zaten önceki resmi silip yenisini getiriyor.Ancak yapıda değişiklik varsa bilemem

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Kodun bu kısmı c2 hücresinin sol ve üst ebatlarını kontrol edip eşleşiyorsa siliyor.
İlk başta mevcutta olan türkan şoray resmini silip öyle deneyin.
 
Konu Sahibi
Günaydın Ali Bey. İlk resmi silip kayıt ettikten sonra 1 den 7 ye kadar sorguladım ve resimde de görüldüğü üzere tüm resimleri öncekini silmeden ekledi maalesef. Ben sadece resimleri alacak yolu düzelttim.
1751607092056.png
 
Silme kodu için
Eğer sayfanızda logo, düğme... gibi başka shape yoksa tüm shapeleri siler
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Başka shapeler varsa ve eklediğiniz resim hep resim sonuncu shape olacaksa
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
kullanın
 
Son düzenleme:
Konu Sahibi
Bu haliyle tamam Ali bey teşekkür ederim elinize sağlık.

Resmi eğer birleştirmiş C2 ve D2 hücresine aldırmak istesem c2 olan yerleri c2:D2 olarak mı değiştirmem gerekecek
 
Konu Sahibi
Birleştirilmiş hücrede de çalıştı Ali bey elinize sağlık teşekkür ederim
 
Alternatif
C2 hücre boyutlarını ayarlayın, Makro1 i bir defa çalıştırın, Image1 nesnesini oluşturacaktır, daha sonra bu makroyu silebilirsiniz.
C3 hücresindeki resim adı değiştirdikçe resim değişecektir.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Son düzenleme:
Konu Sahibi
Bu şekilde deneyin.
HTML: Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target.Value = "" Then Exit Sub If Target.Address <> "$C$3" Then Exit Sub On Error GoTo hata For i = 1 To ActiveSheet.Shapes.Count ActiveSheet.Shapes(i).Delete Next hata: On Error GoTo son Set fso = VBA.CreateObject("scripting.filesystemobject") If fso.fileexists("C:\Users\ali.os\Downloads\Downloads\ALBÜM\" & Target.Value & ".jfif") Then ActiveSheet.Pictures.Insert("C:\Users\ali.os\Downloads\Downloads\ALBÜM\" & Target & ".jfif").Select Selection.Top = Range("c2").Top Selection.Left = Range("c2").Left Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = Range("c2").Height Selection.ShapeRange.Width = Range("c2").Width End If son: Application.ScreenUpdating = True End Sub

Teşekkür ederim Ali bey bu kod işimi gördü ancak sayfa koruması yaptığımda degup hatası verdi.
Formülle bilgi aldığımdan silinmemesi için sayfa koruması yapmam gerekiyor.
Onun için ilk istediğimde de özellikle sayfa korumalı göndermiştim.
Size zahmet alıntı yaptığım mesajdaki kodu sayfa koruması olduğunda da çalışacak şekilde düzenleyebilir misiz?
 
Geri
Üst