• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Birleştirişmiş Hücreye Stok kodu ile ilgili resmi çağırma

  • Konbuyu başlatan Konbuyu başlatan iharda
  • Başlangıç tarihi Başlangıç tarihi
Katılım
22 Nisan 2017
Mesajlar
19
Excel Vers. ve Dili
2007-2010 türkce
Konu ile ilgili Birleştirilmiş hücreye resim çağırma gibi başlıkları inceledim fakat hiç bir şey anlayamadım istediğim şeyi örnek dosyada gönderiyorum

Sayfa 1' de kod1 stok kodunu yazdığımda Resim sayfasından(yada bağlı bulunduğu dizindeki herhangi bir klasörden) ilgili resmin kodun üstündeki birleştirilmiş hücreye çağırılmasını istiyorum yardım ve emeğiniz için şimdiden teşekkürler
 

Ekli dosyalar

Merhaba;
Dosyanın bulunduğu yere bir klasör açın ve resimleri yerleştirin.
Açtığınız klasörün adını sayfada P1 hücresine yazın ve resim al butonuna basın. (var olan resimler gelecektir.)
İyi çalışmalar.
 

Ekli dosyalar

Hocam Çok teşekkürler geyet iyi olmuş elinize emeğinize sağlık takıldığım yer olursa tekrar size buradan dönüş yaparım.
 
Hocam aynı tasarımı kopyalayıp sayfanın altından devam ettim kopyaladığım alanda da makronun
çalışması için (For i = 17 To 56) değerini (For i = 17 To 1000) olarak değiştirdim makro çalıştı
Fakat Resim Al butonuna bastığımda sonradan eklediğim alanlar üzerine resimler tekrarlanıyor yani
butona ne kadar basar isem o kadar resim ekleniyor.
 
Merhaba;
Set Alan = Range("B8:L52")

satırında 52 sayısını 1000 yapıp deneyin.

Set Alan = Range("B8:L52")
For Each resim In ActiveSheet.Pictures
If Not Intersect(resim.TopLeftCell, Alan) Is Nothing Then
resim.Delete
End If
Next
Set Alan = Nothing

(bu bu alan tanımlamasındaki resimleri silme satırları)

İyi çalışmalar.
 
Tekrar Çok Teşekkür ederim çok işe yaradı.
 
Geri
Üst