• 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.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Sicil numarası ile resim çağırma

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
T

teyadih

Gold Üye
Katılım
13 Ağu 2021
Mesajlar
703
Çö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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
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.
 
Olumlu oy 0 Negatif oyla
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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 0 Negatif oyla
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?
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 0 Negatif oyla
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:
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Birleştirilmiş hücrede de çalıştı Ali bey elinize sağlık teşekkür ederim
 
Olumlu oy 0 Negatif oyla
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:
Olumlu oy 0 Negatif oyla
Konu Sahibi
Ali ÖZ' Alıntı:
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
Genişletmek için tıkla...

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?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
teyadih' Alıntı:
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?
Genişletmek için tıkla...
Merhaba Ali bey sayfa koruması ile ilgili talebime bakabildiniz mi?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Tamamdır Ali bey elinize sağlık teşekkür ederim.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst