Bilgisayarınızın bir klasöründeki resmin adını yazarak excel sayfasında görüntülenmesinin nasıl yapıldığını gösteren bir video. İçerisinde VBA kodları kullanılmıştır.
Sevgili Mehmet Bey, Sade, özlü ve kaliteli anlatımınız konunun çok güzel anlaşılmasını sağlıyor. Excel konusunda çok değerli bir birikiminiz var. Bunu öğrenmek isteyenlere açmanız takdir edilecek uğraşı. Anlatımınıza sağlık, çok yararlı ve öğretici oldu.Teşekkür ederim.
Arkadaşlar merhabalar, Hocamız son derece güzel bir video paylaşmış, aşağıdaki yorumlarda ise arkadaşlarımızın genel olarak, harici bir klasörden fotoğraf almaya çalıştıklarını gördüm. Bunun için Hocamızın yazdığı kod içerisindeki RESİM YOLU, ögesini şu şekilde değiştiriniz. - ResimYolu = "C:\Users\ddemirtas\Desktop\fotolar" & "\" & Range("e5") & ".jpg" - bu şekilde masa üstünde yer alan "fotolar" adlı klasörünüzden .jpeg resimleri almaya başlayacaksınız.
neredeyse saatlerimi verdim arayayım diye ingilizce türkçe nihayet sizin kanalınız buldum ama nasıl mutlu oldum. ağzınıza sağlık emeğinize bilginize paylaşımıza çoook teşekkür ederim. iyi ki sizin gibi insanlar var..
çok aradığım ama hiçbir yerde bulamadığım bazı püf noktalarını burada yakaladım. sadece bu püf noktaları nedeniyle abone de oldum, kim bilir daha neler vardır da, şimdi heyecanla bitirmem gereken kodları yazmalıyım. paylaşım için çok teşekkürler.
Ellerinize sağlık. Naçizane tavsiyelerim: * ResimYolu için "as string" kullanın. * Change olayında döngü kullanımı (satır sayısına bağlı olarak) zaman alıcı olabilir. Bunun için sadece ilgili satırdaki değişime odaklı kod yazın. * Uygulama dili yabancı olan kullanıcılarda sorun çıkmaması için değişken yazımında Türkçe karakter kullanmayın. Ö: "For satır" değil, "For satir".
Mehmet Bey merhaba, öncelikle bu muhteşem video için çok teşekkür ediyorum. Emeğinize sağlık. Anlatımınızda bana gerekli olan bilgileri tamamen uygulamama rağmen, ilgili hücreye rakamı girdiğimde "Run-time error '1004': Pictures sınıfının Insert özelliği alınamıyor" uyarısı çıkıyor. Bu durumda; "End" butonuna bastığımda resmi doğru hücreye getiriyor; "Debug" butonuna bastığımda ise "Set Resim = ActiveSheet.Pictures.Insert(Resimyolu)" satırını sarıya boyuyor. Sizi yormayacaksam eğer 2 ricam daha olacak. 1- Sizin kodlamayı uyguladığımda, rakamı girdiğim sütundaki hücrelerin her birinde sırayla rakam girmezsem, boş bıraktığım hücrenin altındaki hücrelere rakam girdiğimde yanındaki hücreye istediğim resmi getirmiyor. Benim dosyamda ilgili sütundaki her hücreye rakam girmemem gerekiyor. Bunu nasıl çözerim? (Uğraştım, ancak yapamadım.) 2- Resim boyutlarını sizin kodlamadaki gibi yapmama rağmen az da olsa hücreden taşıyor ve alttaki ile çakışıyor. Bu resimlerin boyutunu biraz daha küçültüp hücre içinde ortalayabilmek için nasıl bir kod yazmam gerekir? Yardımcı olabilirseniz çok sevinirim. Saygılarımla.
Mehmet Bey ellerinize sağlık çok faydalı bir video bir konuyu danışacaktım. aynı satır üzerinde farklı kodlar ile 3 resmi yanyana çıkartmak istersek koda nasıl bi ekleme yapmamız gerekir. kolay gelsin
Hocam çok teşekkürler herşey çok güzel ben böyle ders anlatımı böyle azim ve hiç bir ayrıntı kaçırmadan ders anlatımı görmedim... birde herhangi bir klasörden resim alabilen bir ders yapabilirmisiniz. yani "FOTO EKLE" düğmesi ile bilgisyaardan herhangi bir yerden fotoyu nasıl ekleyebiliriz?
konuyu bu şekilde açıklayarak ve kolayca anlattığınız için teşekkürler öncelikle. benim sorunum şu; liste 8'er blok birleşik satırlar halinde. kodunuzu yazdığımda teker satır halinde çalışıyor ancak 8'er blok atladığında çalıştırmıyor. örnek olarak G10 hücresindeki değerin karşılığı fotoğraftan sonra G18'in değerini alması gerekiyor yani. bunu nasıl sağlayabilirim. teşekkürler
Hocam merhaba renge de Mehmet yazdığımızda debug oluyor bende ve otomatik kapatıyor herşeyi tek tek doğru yapmama rağmen her yerde hata veriyor. Hata vermeyen ilerledikçe yine veriyor.
@Mehmet Gürten Merhaba, ben şimdi bu listedeki verilerden seçili bazılarını başka bir sayfaya katalog formatında kopyalamak istiyorum. Mesela ürün adını kodunu resmini ve özelliklerini içeren bir katalog hazırlamak istiyorum. Yardımcı olabilir misiniz?
Mehmet hocam çok teşekkürler çok faydalı bir model üzerinde çalışmışsınız ziyadesi ile faydalandım. Fakat hocam bazı resimler belirlenen hücrelerin boyutlarının çok dışına çıkıyor. Benim sizden ricam resmin direk ölçülerini cm cinsinden belirleyeceğim bir kod var mıdır yardımcı olabilirseniz çok seviniriz.
Merhaba, ben şimdi bu listedeki verilerden seçili bazılarını başka bir sayfaya katalog formatında kopyalamak istiyorum. Mesela ürün adını kodunu resmini ve özelliklerini içeren bir katalog hazırlamak istiyorum. Yardımcı olabilir misiniz?
ResimYolu = "C:\Users\senag\Desktop\deneme" & "\" & Range("e6") & "1.jpg" şeklinde yazdığımda resim görünüyor ama sayfada örneğin 5 e tıkladığımda da 1.resim görünüyor. "1.jpg" deki 1 i kaldırınca seçtiğim resimlerin gelmesi gerekiyor ama ResimYolu = "C:\Users\senag\Desktop\deneme" & "\" & Range("e6") & ".jpg" yazdığımda hiçbir görsel görünmüyor ve "bağlantılı resim görüntülenemiyor. dosya taşınmış, yeniden adlandırılmış veya silinmiş olabilir. bağlantının doğru dosya ve konuma işaret ettiğini doğrulayın " yazıyor. doğru konum olmasa tek resim seçtiğimde de görünmezdi. nedenini anlayamadım yardımcı olur musunuz?
Hocam boş hücreye resim yok veya şablon resim getirip, alta dolu olan hücrelere resimleri nasıl getirebilirim.Bu nun kodu ne olmalı. İlginiz için teşekkürler
hocam merhaba ben dediklerinizin aynısını yaptım ama ilk 5 satırdan sonrasına resim gelmiyor neden acaba lütfen yazarmısınız? 2 to 1768 yapıyorum hücreye ismi koydugumda ilk hücrede geliyo diğerlerinde gelmiyor
Hocam çok işime yaradı sağolun emeğinize sağlık. Bı sorum olacak fotoğraflari farklı formatta da ekleyebilmek için .pdf .jpeg .png olarak mi yazmamız gerekiyor dosya yoluna
Merhaba bu konuyu epeydir arıyordum bulunca çok sevindim. Ayrıca çok ayrıntılı anlatmışsınız emeğinize sağlık. Anlattığınız gibi sıkıntısız çalıştı. Proforma listede bir şey sormam gerekiyor. Sizin anlatımınızda B sütununa yeni girilen değerin fotoğraflarını sorunsuz getiriyor. Fakat benim ihtiyacım zaten tüm bilgileri girilmiş, hazır olan bir ürün listesindeki B sütunundan değeri alıp klasördeki aynı isimli fotoğrafı getirsin. Kodlarda ne değişiklik yapmam lazım? Sizin verdiğiniz şekilde kullanınca ilk satırda error verdi. Şimdiden teşekkürler.
Hocam emeğiniz için çok teşekkür ederim. Anlattığınız gibi uyguladım ancak excell çalışma sayfam ile görseller aynı klasörde olmasına rağmen resimler gelmiyor. "Bağlantı resim görüntülenemiyor. Dosya taşınmış yeniden adlandırılmış veya silinmiş olabilir" bu şekilde bir uyarı alıyorum.
Hocam bende bir şey sormak istiyorum. D3 hücresini Liste olarak değilde sabit bir hücre ise nasıl kod yazmamız gerekiyor target değişkeni olmasın. Normal D3 hücresinin alt satırlarına kopyala yapıştır yaparak değerler girmek istiyorum. Onun karşısına resimleri getirmek istiyorum. Ayrıca kurs veriyormusunuz
Hocam emeğiniz için teşekkürler. Bende şöyle bir sorun oldu. Sayfamda ActiveX denetim ve form deneyimleri Vardı sayfada bunlarında siliyor. Bunlarında temizliyor. Bu durumu nasıl düzelte bilirim.
merhabalar bu satır döngüsünü yaparken aralık yerine satır belirlemek için ne yapabiliriz acaba For satır = 5 to 20 yerine For satır ="9" "20" "31" "42" gibi birşey tanımlaya bilirmiyiz acaba
Üstad bir sorum olacak aı6:at6 arasi sutunlarda verilerim var. ai6 eğitim tarihi aj6 süre ak6 tarih al6 süre şeklinde ilerleyen bir tablom var.( Tablo yaklaşık 1000 satır) ben bu tabloda Ocak ayında verilen eğitim sayısı ve süresi. Şubat ayında süre ve sayı olacak şekilde 12 ay boyunda başka bir alanda verileri tablolamak istiyorum. Yardımcı olabilir misin teşekkür ederim.
Hocam video da farkederseniz aşağı ve yukarı boyutu satıra uyarlamıyor yani resmin aşağısı ve yukarısı satıra göre boyutlanmıyor onu nasıl yapabiliriz acaba resmin boyutu çok büyük oldugundan mı
hocam ağzınıza elinize sağlık kod ile resim çağırma işlemini hallettim. Gelişmiş filtre özelliği ile fotoğrafları getirebiliyorum. Ancak atadığım makro butonları filreleme ile birlikte kayboluyor. ('Resimleri Sil ActiveSheet.DrawingObjects.Delete) Bu yazılıma ne eklemeliyim ki butonlar silinmesin teşekkürler. iyi çalışmalar.
Merhaba Mehmet hocam, Ellerinize sağlık. Çok güzel bir çalışma olmuş. Fakat yazdığınız kodlar, fotoğraflar aynı bilgisayarda yoksa, hata veriyor. Yaptığımız dosyayı paylaşmam gerekiyor. 1000 adet ürünün bilgileri ve fotoları var. Ben bu dosyada bulunan bazı ürün kodlarını ayrı bir çalışma olarak göndermek istiyorum. Tüm ürünlerin fotosunu değil sadece benim seçtiğim ürünleri göndermek istiyorum. Ama fotoları ayıklamakla uğraşmak istemiyorum. Seçili ürünlerin fotolarını ve bilgilerini dosyaya gömmek gerekiyor. Bu konuda yardımcı olacak bir video, bir bilgi paylaşırsanız memnun oluruz.
Hocam Ellerinize sağlık videolarınız çok işime yaradı ama bir sorum olucak mümkünse tabi arama yapıyorum fakat bende aynı ürün den 2 tane var dolayısıyla hep 1.yi bana getiriyor ama ben 2. yide görmek istiyorum bu mümkünmü yardımınız için şimdiden teşekkürler
Hocam merhaba bir Excel dosyamızda 150 alt sayfa var alt sayfaların hepsine aynı resmi koymak istiyorum kopyala yapıştır yapıyorum Excel hata veriyor yapıştırma işlemi başarısız diyor tek tek kopyalarsak sorun olmuyor oda çok zaman alıyor ve resim değiştirmek istersek baya bir sıkıntı olacak bunun la ilgili bir çözüm öneriniz var mıdır acaba yada sizin yukarda anlattığınız uygulamada resimleri çıktı aldığımızda yazdır ekranında görünüyor mu
elinize sağlık. çok işime yarayacak. bir sorunum var. fotoğraf boyutunda fotoğrafı hücrenin altına uzatmak / kısaltmak için gereken kodu da öğrenebilir miyim. Teşekkürler
Eline, sesine sağlık üstadım... 1 sorum olacak rica ile, (ilk anlatımında "d3" sütunundan alınan resim işlemi) tek satırda yaptınız, bunu birden fazla hücreye nasıl entegre edebilirim. Yardımınız için peşinen teşekkürler.
Kısaca Şöyle; Şu aşağıda yazdığınız J3 -----> f6 ------> h6 olarak nasıl genişletebiliriz. Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [j3]) Is Nothing Then Exit Sub 'Resimleri Sil ActiveSheet.DrawingObjects.Delete 'Hata Kontrolü On Error GoTo çıkış 'Resim Yolunun Bulunması Dim ResimYolu As Variant Dim Resim As Object ResimYolu = ActiveWorkbook.Path & "\" & Range("j3") & ".jpg" 'Resmi Oluştur Set Resim = ActiveSheet.Pictures.Insert(ResimYolu) 'Resim Boyutlandır With Range("j3") Resim.Top = .Top Resim.Left = .Left Resim.Height = .Height Resim.Width = .Width End With çıkış: End Sub
İyi günler ,Mehmet Bey Yardımlarınız için öncelikle çok teşekkür ederim.Bir yardım talebinde bulunacaktım.Resim çağırma konusunda sıkıntılar yaşıyorum activesheet.drawingobject.delete ya da activesheet.pictures.delete komutlarını verince comboboxta siliniyor,bunun bir çözümü var mı?Bunu öğrenmek istemiştim.Şimdiden teşekkür ederim.Sağlıcakla.
Selamlar hocam ; Proformada b sütununda boş hücre görünce hata verip altındaki diğer bütün hücreleri de de boş bırakmasına sebep oluyor. O yüzden çıkış: satırını next satır ibaresinin üzerine taşırsak makromuz çalışmaya devam ediyor. Çok teşekkürler emeğiniz için. Saygılar.
8 ปีที่แล้ว +1
+Hamit Mert KÖPRÜCÜ Orada şöyle bir sıkıntınız olur eğer resim adını bulamazsa hata verir benim oradaki gayem hata verirse mesaj çıkıp prg.ı durdurmasın kendisi direk çıkışa gidip makroyu bitirsin idi.
Bu dosya yolunu başka klasördeki resimlere göre nasıl gösterebiliriz? Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [A:A]) Is Nothing Then Exit Sub ' hata kontrolü 'resimleri Sil ActiveSheet.DrawingObjects.Delete 'resim yolunun bulunması Dim ResimYolu As Variant Dim resim As Object For satır = 2 To 243 ResimYolu = ActiveWorkbook.Path & "\" & Range("a" & satır) & ".jpg" Set resim = ActiveSheet.Pictures.Insert(ResimYolu) 'resmi boyutlandır With Range("l" & satır) resim.Top = .Top resim.Left = .Left resim.Height = .Height resim.Width = .Width End With Next satır Çıkış: End Sub
İyi günler Mehmet bey tam bana lazım olacak bir paylaşım yapmışınız öncelikle elinize sağlık. benim sormak istediğim excel ayarladığım sutuna rakam yazdığımda resimler değişiyor. ancak ben UserForm üzerinden o sutuna rakam girdiğimde bilgiler değişiyor ancak resim değişmiyor bununla ilgili yardımcı olabilir misiniz.
ปีที่แล้ว
Oradaki kodu textbox in change ine koyun olur Yada ayrı bir sub yapın o kodları onun içine koyun hem textbox in change in içine hemde worksheet change in içine call yenisub yapın ikisinde de çalışsın Call yenisub yazın
@ Teşekkürler hocam oldu. Bir sorum daha olacak size resimleri excelin olduğu değilde başka bir klasörden çektire bilir miyiz yani resim yolunu değiştirmek istiyorum çok fazla resim olacak excelle aynı dosya içerisinde olmasın istiyorum
Hocam makro da resim sil kısmına ne yazmalıyızki diğer makro butonlarını silmesin. ActiveSheet.Pictures.Delete yazdım olmuyor. Yardımcı olabilir misiniz. İyi çalışmalar .
hocam kolay gelsin. tum kodlari aklinizda tutuyormusunuz yoksa sizde bir tasarim yaparken dış kaynaklardan yardim aliyormusunuz. bende iyi bir excel kullanıcisiyim ama herseyi bilmiyorum
Hocam Merhaba, ResimYolu = ActiveWorkbook.Path & "\" & Range("b" & satır) & ".png" "\" olan kısma "webadresim.com/urunler/" yazıyorum ama malesef ürün resimlerini çekmiyor browserdan kontrol ettiğimde webadresim.com/urunler/1.png şeklinde resmi görüntüleyebiliyorum. Birde Farklı uzantıları tanımasını nasıl sağlayabiliriz. 1.jpg dosya ismi 2.png dosya ismi 3.bmp olursa nasıl bir kod ilavesi yapmalıyız. Teşekkürler Başarılar
Hocam ellerinze sağlık anlatım ve çalışma çok güzel olmuş, müsadenizle bir sorum olacak hazırladığımız excel ve resimler ayrı klasörler içerisindeyse nereye ve nasıl bir komut yazmamız gerekmektedir. Yardımcı olabilirmisiniz.
8 ปีที่แล้ว
+jack bauer Teşekkürler Resimyolu değişkenine yolu belirtmeniz yeterli benim örneğimde activeworkbook.path dediğim yer bu dosyanın olduğu klasör buradan yönlendirebilirsiniz örneğin bu dosyanın olduğu klasörün içinde resimler diye bir klasör olduğunu varsayarsak activeworkbook.path&"\Resimler\" şeklinde yapabilirsiniz
Hocam Allah için bir örnek istiyoruz. "Klasörden resim çağırmayı ancak öncesi ve sonrası şeklinde. Yani butona basınca a sütununa yukarıdan aşağıya bir olaya ait eski resimler B sütununa ise yeni resimler gelsin. Ama resim sayısı deisken olacak misal A2 den A150 ye kadar. Çağırılan resimler aynı klasörde olacak misal 257e 257y gibi. Valla çıkamadım işin içinden Allah için yardım edin.
Elinize sağlık hocam , yalnız sayfada activex buton varsa videodaki kodlarla resim çağırınca butonu da siliyor, ayrıca veri doğrulama ile yapmak yerine hücreye dinamik formül yazınca formül çalışıp hücre içindeki veri değişmesine rağmen resim çağırmıyor. Bu konuları çözmek için kodda nasıl bir değişiklik yapabiliriz?
@ hocam öylede denedim ama sayfalar arası geçiş için kullandığım activex butonunu yine siliyor.
Private Sub Worksheet_Change(ByVal Target As Range) 'logoları sil ActiveSheet.Pictures.Delete If Intersect(Target, [b3]) Is Nothing Then Exit Sub 'hata kontrolü On Error GoTo çıkış 'logo yolunun bulunması Dim logoyolu As Variant Dim logo As Picture logoyolu = ActiveWorkbook.Path & "\" & Range("b3") & ".jpg" 'logo oluştur Set logo = ActiveSheet.Pictures.Insert(logoyolu) 'logo boyutlandır With Range("c3") logo.Top = .Top logo.Left = .Left logo.Height = .Height logo.Width = .Width End With çıkış: End Sub
3 ปีที่แล้ว
@@Mr_Kose61 bana dosyanızı mail atın bı boşlukta bakayım
hocam yine ben ve üşengeç sorularım :) hocam şimdi ben yukarıdaki videoda bana lazım olan bir tek proforma listesine oto resim eklemek hücrelere. lakin sizin yazdığınız kodların hepsini birebir baka baka yaptım ama beceremedim .
yani ne demeliyim şimdi demekki aynısı değil aynısı ise çalışması lazım ya resim adlarınız farklidir ya hücre farklıdır yada resmin uzantısı jpg değildir aklıma gelenler
+Mehmet Gürten RESİMLERİM JPG VBA KODLARI DA EMİNİM BİREBİR 4 CÜ DEFA YAZDIM DÜŞEY ARAYI DA SAĞ OLUN SİZDEN GAYET İYİ ÖĞRENDİK ONDA PROBLEM YOK SADECE BU VBA KODUNUN BAŞINDA İLK SATIRDA PROBLEM ÇIKIYOR If intersect (targe,3 .......... >>>>then
hocam resimleri silme kısmına geldim. hücreyi değiştirince ne kadar macrolu buton v.s varsa siliniyor. ne yapmam lazım. ayrıca elinize dilinize sağlık
9 ปีที่แล้ว +1
Siler çünkü biz nesnelerin tamamını sildiriyoruz orada nesnesel değilde resimleri sil derseniz sadece resimleri siler ActiveSheet.DrawingObjects.Delete yerine ActiveSheet.Pictures.Delete yazarsanız sadece resimleri siler
Hocam Uzun zamandır aradığım bir konuydu emeğinize sağlık tam olarak istediğim gibi oldu teklif formu için oluşturdum, 2 adet sorum olacak 1. - eklenen resimi hücreye alttan üstten sağdan soldan ortalamak için ne yapılabilir 2. - eklenen bazı resimler hücreden taşıyor, taşmayı engellemek için resimi otomatik boyutlandıracak bir kod varmıdır ?
Hocam çok iyi anlatım tebrikler. Sorum şu ... A1 hücresindeki değere göre B1 hücresine Resim Çağırabiliyorum. Peki bunun devamında aynı sayfada C1 hücresinin değerine göre D1 hücresine ve bu şekilde yatay olarak nasıl resim çağırabilirim. (Personel için Yaka kartı yapıyorum ve excelde bir sayfamda 3x3=9 personel var, resimlerinin gelmesini istediğim hücrenin bi önündeki hücreye sicillerini yazdığımda resimleri gelsin istiyorum ama sadece ilk sütunu bu anlatıma göre yapabiliyorum diğerleri için nasıl bi kod yazmalıyım)
+Beytullah Hayran aynı sorunu yaşıyorum. Hocam yardımcı olur musunuz?
8 ปีที่แล้ว
+Beytullah Hayran Yani onu burada yazarak anlatamam ama a1 için yapabildiyseniz çıkıştan önce aynı kodları (delete hariç) kopyalayıp sadece sütunları değiştirirseniz olur
+Mehmet Gürten Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [a:a]) Is Nothing Then Exit Sub On Error GoTo çıkış ActiveSheet.DrawingObjects.Delete Dim ResimYolu As Variant Dim resim As Object For satır = 1 To 1100 ResimYolu = ActiveWorkbook.Path & "\" & Range("a" & satır) & ".jpg" Set resim = ActiveSheet.Pictures.Insert(ResimYolu) With Range("d" & satır) resim.Top = .Top resim.Height = .Height resim.Left = .Left resim.Width = .Width End With Next satır If Intersect(Target, [e:e]) Is Nothing Then Exit Sub On Error GoTo çıkış Dim ResimYolu1 As Variant Dim resim1 As Object For satırr = 1 To 1100 ResimYolu1 = ActiveWorkbook.Path & "\" & Range("e" & satırr) & ".jpg" Set resim1 = ActiveSheet.Pictures.Insert(ResimYolu1) With Range("g" & satırr) resim.Top = .Top resim.Height = .Height resim.Left = .Left resim.Width = .Width End With Next satırr çıkış: End Sub
hocam çok teşekkür ediyorum gerçekten çok faydalı bir video elinize sağlık.. Benim ufak bir problemim var.. evrakı D klasörü içinde oluşturuyorum.. Ve yine aynı D klasörü içerisinde FOTO olarak kaydettiğim bir klasör gerisinden fotoğraf almak istiyorum ancak sürekli hata veriyor.. fotoğraf yolum nasıl yazılmalı?
8 ปีที่แล้ว +1
o klasorun icine bir resim koyun sonra onun uzerinde sag tusa basip ozelliklerden dosyanin yoluna bakin dosya adindan onceki yeri kopyalayip vba nin icindeki yola yapistirin
8 ปีที่แล้ว +1
o klasorun icine bir resim koyun sonra onun uzerinde sag tusa basip ozelliklerden dosyanin yoluna bakin dosya adindan onceki yeri kopyalayip vba nin icindeki yola yapistirin
23:53 e kadar herşey düzgün gitti son değişikliği yapınca resim getirmemeye başladı. Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [d7]) Is Nothing Then Exit Sub ' hata kontrolü On Error GoTo Çıkış 'resimleri Sil ActiveSheet.DrawingObjects.Delete 'resim yolunun bulunması Dim ResimYolu As Variant Dim resim As Object ResimYolu = ActiveWorkbook.Path & "\" & Range("d7") & ".jpg" Set resim = ActiveSheet.Pictures.Insert(ResimYolu) 'resmi boyutlandır With Range("D7") resim.Top = .Top resim.Left = .Left resim.Height = .Height resim.Width = .Width End With Çıkış: End Sub
resimler hücrede, yukarı sağa-sola yanaşıyor fakat alt uzun kalıyor.
8 ปีที่แล้ว +1
+Ahmet Kılavuz Resimleri ölçeklendirirken orantılı bir şekilde ölçülendirdiği için bu sıkıntınız olur resimlerin ölçüsü aynı olursa bu sıkıntınız olmaz.
8 ปีที่แล้ว
+Mehmet Gürten teşekkürler, o haliyle bile işimi çok rahatlattı :)
walla level atladım sanırım ben geçen sürede :=) beyefendiye bi soru sordum cevapladı 2.yi sordum sallamadı. ben de derdimi google efendiye açtım. derken in design da bi kaç harekette excelden bin sayfalık katalog oluşturma durumuna ulaştım. :=)
Sevgili Mehmet Bey,
Sade, özlü ve kaliteli anlatımınız konunun çok güzel anlaşılmasını sağlıyor. Excel konusunda çok değerli bir birikiminiz var. Bunu öğrenmek isteyenlere açmanız takdir edilecek uğraşı. Anlatımınıza sağlık, çok yararlı ve öğretici oldu.Teşekkür ederim.
Muhteşemsiniz , yıllarca uğraşıp bulamadığım veya kullanışlı bir içerik bulamamıştım taki sizin videonuza rastlayana kadar. Çok teşekkürler
ÇOK ÇOK TESEKKUR EDERİM SEVGİLİ HOCAM UZUN ZAMANDIR YAPMAK İSTEDİĞİM BİR ŞEY BU İŞLKERİMİ O KADAR KOLAYLAŞTIRACAK Kİ
Tebrik ederim, çok net basit ve bilmeyen birinin anlayabileceği şekilde anlatmışsınız.
Arkadaşlar merhabalar, Hocamız son derece güzel bir video paylaşmış, aşağıdaki yorumlarda ise arkadaşlarımızın genel olarak, harici bir klasörden fotoğraf almaya çalıştıklarını gördüm. Bunun için Hocamızın yazdığı kod içerisindeki RESİM YOLU, ögesini şu şekilde değiştiriniz. - ResimYolu = "C:\Users\ddemirtas\Desktop\fotolar" & "\" & Range("e5") & ".jpg" -
bu şekilde masa üstünde yer alan "fotolar" adlı klasörünüzden .jpeg resimleri almaya başlayacaksınız.
bu kodun yazılmıs hali yok mu=?
Teşekkürler
Yaraya merhem oldunuz hocam yıllardır nasıl yapabilirim diye kafa patlattığım konuları anlatıyorsunuz ellerinize, emeğinize sağlık
Kadir Gülcemal Teşekkürler
Efendim çok hoş anlatım olmuş. Zevkle heyecanla dersi takip ettim. Çok faidelendim...Allahu teala razı olsun.
neredeyse saatlerimi verdim arayayım diye ingilizce türkçe nihayet sizin kanalınız buldum ama nasıl mutlu oldum. ağzınıza sağlık emeğinize bilginize paylaşımıza çoook teşekkür ederim. iyi ki sizin gibi insanlar var..
tesekkurler
Mükemmel bir anlatım, teşekkürler. Mantık anlaşıldı. Herşeye uydurulur artık..
Harika anlatim, sagolun.
dosya yolu belirlemeyi keşke biraz daha ayrıntılı anlatsaydınız o çok eksik kalmışki :) en önemli konu oydu :)
Çok teşekkür ederim Hocam . O kadarr güzel anlatıyorsunuz ki.. Kutlarım.
teşekkürler
Mehmet Hocam Mükemmelsiniz ALLAH razı Olsun
Hocam elinize ve silinir sağlık. Allah razı olsun. Çok faydalı videolar hazırlıyorsunuz.
çok aradığım ama hiçbir yerde bulamadığım bazı püf noktalarını burada yakaladım. sadece bu püf noktaları nedeniyle abone de oldum, kim bilir daha neler vardır da, şimdi heyecanla bitirmem gereken kodları yazmalıyım. paylaşım için çok teşekkürler.
Emeğinize sağlık. Çok faydalı oldu.
Hocam emeğinize sağlık. Paylaşımınız müthiş işe yaradı. Teşekkür ederim
Çok yararlı bir anlatım teşekkürler hocam.
Emeğinize sağlık teşekkürler
Sen müthiş bir adamsın. Teşekkürler hocam
hocam ellerinize sağlık çok faydalı bir kayıt oluş tamda ihtiyacım olan bir anlatımdı çok teşekkür ederim ...
rica ederim
Elinize sağlık çok yararlı oldu benim için teşekkür ederim.
Hocam çok teşekkürler Allah razı olsun tek kelimeyle mükemmel ve çalışıyor
mehmet hocam selamlar pictures sınıfının insert özelliği alınamıyor Run Time error:1004 hatası alıyorum yardımcı olursanız cok sevinirim
teşekkürler
Elinize sağlık. Çok yararlı oldu. Tekrar tekrar teşekkürler.
Ellerinize sağlık. Naçizane tavsiyelerim:
* ResimYolu için "as string" kullanın.
* Change olayında döngü kullanımı (satır sayısına bağlı olarak) zaman alıcı olabilir. Bunun için sadece ilgili satırdaki değişime odaklı kod yazın.
* Uygulama dili yabancı olan kullanıcılarda sorun çıkmaması için değişken yazımında Türkçe karakter kullanmayın. Ö: "For satır" değil, "For satir".
Mehmet Bey merhaba, öncelikle bu muhteşem video için çok teşekkür ediyorum. Emeğinize sağlık. Anlatımınızda bana gerekli olan bilgileri tamamen uygulamama rağmen, ilgili hücreye rakamı girdiğimde
"Run-time error '1004':
Pictures sınıfının Insert özelliği alınamıyor"
uyarısı çıkıyor.
Bu durumda;
"End" butonuna bastığımda resmi doğru hücreye getiriyor;
"Debug" butonuna bastığımda ise "Set Resim = ActiveSheet.Pictures.Insert(Resimyolu)" satırını sarıya boyuyor.
Sizi yormayacaksam eğer 2 ricam daha olacak.
1- Sizin kodlamayı uyguladığımda, rakamı girdiğim sütundaki hücrelerin her birinde sırayla rakam girmezsem, boş bıraktığım hücrenin altındaki hücrelere rakam girdiğimde yanındaki hücreye istediğim resmi getirmiyor. Benim dosyamda ilgili sütundaki her hücreye rakam girmemem gerekiyor. Bunu nasıl çözerim? (Uğraştım, ancak yapamadım.)
2- Resim boyutlarını sizin kodlamadaki gibi yapmama rağmen az da olsa hücreden taşıyor ve alttaki ile çakışıyor. Bu resimlerin boyutunu biraz daha küçültüp hücre içinde ortalayabilmek için nasıl bir kod yazmam gerekir?
Yardımcı olabilirseniz çok sevinirim.
Saygılarımla.
Run-time error 1004
Method renge of object _worksheet’ failed
Hatası veriyor hocam yardımcı olur musunuz
Emeğinize sağlık güzel video olmuş
Özenli anlatım için teşekkürler.
Mehmet Bey ellerinize sağlık çok faydalı bir video bir konuyu danışacaktım.
aynı satır üzerinde farklı kodlar ile 3 resmi yanyana çıkartmak istersek koda nasıl bi ekleme yapmamız gerekir.
kolay gelsin
teşekkürler hocam harika bir video olmuş
harikasınız. elinize emeğinize sağlık
Hocam emeğinize sağlık çok güzel bir bilgi sağolun
Hocam çok teşekkürler herşey çok güzel ben böyle ders anlatımı böyle azim ve hiç bir ayrıntı kaçırmadan ders anlatımı görmedim...
birde herhangi bir klasörden resim alabilen bir ders yapabilirmisiniz.
yani "FOTO EKLE" düğmesi ile bilgisyaardan herhangi bir yerden fotoyu nasıl ekleyebiliriz?
Çok çok teşekkür ederim !!!
konuyu bu şekilde açıklayarak ve kolayca anlattığınız için teşekkürler öncelikle.
benim sorunum şu;
liste 8'er blok birleşik satırlar halinde.
kodunuzu yazdığımda teker satır halinde çalışıyor ancak 8'er blok atladığında çalıştırmıyor.
örnek olarak G10 hücresindeki değerin karşılığı fotoğraftan sonra G18'in değerini alması gerekiyor yani.
bunu nasıl sağlayabilirim.
teşekkürler
Hocam merhaba renge de Mehmet yazdığımızda debug oluyor bende ve otomatik kapatıyor herşeyi tek tek doğru yapmama rağmen her yerde hata veriyor. Hata vermeyen ilerledikçe yine veriyor.
Merhabalar 2.yazdığınız makroda for döngüsünü step 5 ile yapmak istiyorum ama olmuyor. Yardımcı olursanız çok sevirinirim.Teşekkürler.
@Mehmet Gürten Merhaba, ben şimdi bu listedeki verilerden seçili bazılarını başka bir sayfaya katalog formatında kopyalamak istiyorum. Mesela ürün adını kodunu resmini ve özelliklerini içeren bir katalog hazırlamak istiyorum. Yardımcı olabilir misiniz?
Mehmet hocam çok teşekkürler çok faydalı bir model üzerinde çalışmışsınız ziyadesi ile faydalandım.
Fakat hocam bazı resimler belirlenen hücrelerin boyutlarının çok dışına çıkıyor. Benim sizden ricam resmin direk ölçülerini cm cinsinden belirleyeceğim bir kod var mıdır yardımcı olabilirseniz çok seviniriz.
Merhaba, ben şimdi bu listedeki verilerden seçili bazılarını başka bir sayfaya katalog formatında kopyalamak istiyorum. Mesela ürün adını kodunu resmini ve özelliklerini içeren bir katalog hazırlamak istiyorum. Yardımcı olabilir misiniz?
ResimYolu = "C:\Users\senag\Desktop\deneme" & "\" & Range("e6") & "1.jpg"
şeklinde yazdığımda resim görünüyor ama sayfada örneğin 5 e tıkladığımda da 1.resim görünüyor.
"1.jpg" deki 1 i kaldırınca seçtiğim resimlerin gelmesi gerekiyor ama ResimYolu = "C:\Users\senag\Desktop\deneme" & "\" & Range("e6") & ".jpg" yazdığımda hiçbir görsel görünmüyor ve "bağlantılı resim görüntülenemiyor. dosya taşınmış, yeniden adlandırılmış veya silinmiş olabilir. bağlantının doğru dosya ve konuma işaret ettiğini doğrulayın " yazıyor. doğru konum olmasa tek resim seçtiğimde de görünmezdi. nedenini anlayamadım yardımcı olur musunuz?
Hocam boş hücreye resim yok veya şablon resim getirip, alta dolu olan hücrelere resimleri nasıl getirebilirim.Bu nun kodu ne olmalı. İlginiz için teşekkürler
hocam merhaba ben dediklerinizin aynısını yaptım ama ilk 5 satırdan sonrasına resim gelmiyor neden acaba lütfen yazarmısınız? 2 to 1768 yapıyorum hücreye ismi koydugumda ilk hücrede geliyo diğerlerinde gelmiyor
Hocam çok işime yaradı sağolun emeğinize sağlık. Bı sorum olacak fotoğraflari farklı formatta da ekleyebilmek için .pdf .jpeg .png olarak mi yazmamız gerekiyor dosya yoluna
Mehmet Gürten Bey Bu Programlamayı Open Office 4.1.6 da nasıl yapılacağını gösterirseniz çok sevinirim.
Merhaba bu konuyu epeydir arıyordum bulunca çok sevindim. Ayrıca çok ayrıntılı anlatmışsınız emeğinize sağlık. Anlattığınız gibi sıkıntısız çalıştı. Proforma listede bir şey sormam gerekiyor. Sizin anlatımınızda B sütununa yeni girilen değerin fotoğraflarını sorunsuz getiriyor. Fakat benim ihtiyacım zaten tüm bilgileri girilmiş, hazır olan bir ürün listesindeki B sütunundan değeri alıp klasördeki aynı isimli fotoğrafı getirsin. Kodlarda ne değişiklik yapmam lazım? Sizin verdiğiniz şekilde kullanınca ilk satırda error verdi. Şimdiden teşekkürler.
süper bir çalışma olmuş....
Hocam emeğiniz için çok teşekkür ederim. Anlattığınız gibi uyguladım ancak excell çalışma sayfam ile görseller aynı klasörde olmasına rağmen resimler gelmiyor. "Bağlantı resim görüntülenemiyor. Dosya taşınmış yeniden adlandırılmış veya silinmiş olabilir" bu şekilde bir uyarı alıyorum.
Hocam bende bir şey sormak istiyorum. D3 hücresini Liste olarak değilde sabit bir hücre ise nasıl kod yazmamız gerekiyor target değişkeni olmasın. Normal D3 hücresinin alt satırlarına kopyala yapıştır yaparak değerler girmek istiyorum. Onun karşısına resimleri getirmek istiyorum. Ayrıca kurs veriyormusunuz
çok tşk çok yararlandım sadece resmin yüksekliğini yapmıyor sizdede yapmadı siz hücreyi ayarladınız.
Hocam emeğiniz için teşekkürler.
Bende şöyle bir sorun oldu.
Sayfamda ActiveX denetim ve form deneyimleri Vardı sayfada bunlarında siliyor. Bunlarında temizliyor. Bu durumu nasıl düzelte bilirim.
merhabalar bu satır döngüsünü yaparken aralık yerine satır belirlemek için ne yapabiliriz acaba For satır = 5 to 20 yerine For satır ="9" "20" "31" "42" gibi birşey tanımlaya bilirmiyiz acaba
süper olmuş yüreğine sağlık döktürmüşsün gene
ömer kurnaz Teşekkürler
Üstad bir sorum olacak
aı6:at6 arasi sutunlarda verilerim var. ai6 eğitim tarihi aj6 süre ak6 tarih al6 süre şeklinde ilerleyen bir tablom var.( Tablo yaklaşık 1000 satır) ben bu tabloda Ocak ayında verilen eğitim sayısı ve süresi. Şubat ayında süre ve sayı olacak şekilde 12 ay boyunda başka bir alanda verileri tablolamak istiyorum. Yardımcı olabilir misin teşekkür ederim.
Merhaba hocam Proforma dosyasini paylasima actigimda makro calismiyor foto lar gelmiyor.paylasimda cikarinca makro calisiyor.Paylasimda makroyu nasil calistirabilirim? Bilgi verebilirmisiniz. Tesekkurler.
Semih Bagcioglu aynı sorun bende de mevcut
Hocam video da farkederseniz aşağı ve yukarı boyutu satıra uyarlamıyor yani resmin aşağısı ve yukarısı satıra göre boyutlanmıyor onu nasıl yapabiliriz acaba resmin boyutu çok büyük oldugundan mı
hocam ağzınıza sağlık tek sormak istediğim ben fotosu olmayan satırdan sonra fotosu olanı koymuyor onu atlatmak için bir kod var mı
Hocam çok teşekkür ederim ancak proforma da bir üstte resim olmadı mı aşağıya resim vermiyor nasıl yapabilirim
hocam ağzınıza elinize sağlık
kod ile resim çağırma işlemini hallettim. Gelişmiş filtre özelliği ile fotoğrafları getirebiliyorum. Ancak atadığım makro butonları filreleme ile birlikte kayboluyor. ('Resimleri Sil ActiveSheet.DrawingObjects.Delete) Bu yazılıma ne eklemeliyim ki butonlar silinmesin teşekkürler. iyi çalışmalar.
hocam merhaba, farklı sütunlara da resim çağırmak istiyorum yardımcı olabilirmisiniz
hocam ben makrodan tuş atıyorum obları dahil siliyor nasıl engellerim
Merhaba Mehmet hocam,
Ellerinize sağlık. Çok güzel bir çalışma olmuş. Fakat yazdığınız kodlar, fotoğraflar aynı bilgisayarda yoksa, hata veriyor. Yaptığımız dosyayı paylaşmam gerekiyor. 1000 adet ürünün bilgileri ve fotoları var. Ben bu dosyada bulunan bazı ürün kodlarını ayrı bir çalışma olarak göndermek istiyorum. Tüm ürünlerin fotosunu değil sadece benim seçtiğim ürünleri göndermek istiyorum. Ama fotoları ayıklamakla uğraşmak istemiyorum. Seçili ürünlerin fotolarını ve bilgilerini dosyaya gömmek gerekiyor. Bu konuda yardımcı olacak bir video, bir bilgi paylaşırsanız memnun oluruz.
Hocam Ellerinize sağlık videolarınız çok işime yaradı ama bir sorum olucak mümkünse tabi arama yapıyorum fakat bende aynı ürün den 2 tane var dolayısıyla hep 1.yi bana getiriyor ama ben 2. yide görmek istiyorum bu mümkünmü yardımınız için şimdiden teşekkürler
Hocam merhaba bir Excel dosyamızda 150 alt sayfa var alt sayfaların hepsine aynı resmi koymak istiyorum kopyala yapıştır yapıyorum Excel hata veriyor yapıştırma işlemi başarısız diyor tek tek kopyalarsak sorun olmuyor oda çok zaman alıyor ve resim değiştirmek istersek baya bir sıkıntı olacak bunun la ilgili bir çözüm öneriniz var mıdır acaba yada sizin yukarda anlattığınız uygulamada resimleri çıktı aldığımızda yazdır ekranında görünüyor mu
merhaba yapıtıgım kodlama dogru oldugunu umuyorum ama nedense resimleri üst üste atıyor
elinize sağlık. çok işime yarayacak. bir sorunum var. fotoğraf boyutunda fotoğrafı hücrenin altına uzatmak / kısaltmak için gereken kodu da öğrenebilir miyim.
Teşekkürler
+Bülent Tuna Göktuğ Height
Eline, sesine sağlık üstadım...
1 sorum olacak rica ile,
(ilk anlatımında "d3" sütunundan alınan resim işlemi) tek satırda yaptınız, bunu birden fazla hücreye nasıl entegre edebilirim. Yardımınız için peşinen teşekkürler.
Kısaca Şöyle; Şu aşağıda yazdığınız J3 -----> f6 ------> h6 olarak nasıl genişletebiliriz.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [j3]) Is Nothing Then Exit Sub
'Resimleri Sil
ActiveSheet.DrawingObjects.Delete
'Hata Kontrolü
On Error GoTo çıkış
'Resim Yolunun Bulunması
Dim ResimYolu As Variant
Dim Resim As Object
ResimYolu = ActiveWorkbook.Path & "\" & Range("j3") & ".jpg"
'Resmi Oluştur
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)
'Resim Boyutlandır
With Range("j3")
Resim.Top = .Top
Resim.Left = .Left
Resim.Height = .Height
Resim.Width = .Width
End With
çıkış:
End Sub
İyi günler ,Mehmet Bey
Yardımlarınız için öncelikle çok teşekkür ederim.Bir yardım talebinde bulunacaktım.Resim çağırma konusunda sıkıntılar yaşıyorum activesheet.drawingobject.delete ya da activesheet.pictures.delete komutlarını verince comboboxta siliniyor,bunun bir çözümü var mı?Bunu öğrenmek istemiştim.Şimdiden teşekkür ederim.Sağlıcakla.
Selamlar hocam ;
Proformada b sütununda boş hücre görünce hata verip altındaki diğer bütün hücreleri de de boş bırakmasına sebep oluyor.
O yüzden çıkış: satırını next satır ibaresinin üzerine taşırsak makromuz çalışmaya devam ediyor.
Çok teşekkürler emeğiniz için.
Saygılar.
+Hamit Mert KÖPRÜCÜ Orada şöyle bir sıkıntınız olur eğer resim adını bulamazsa hata verir benim oradaki gayem hata verirse mesaj çıkıp prg.ı durdurmasın kendisi direk çıkışa gidip makroyu bitirsin idi.
Bu dosya yolunu başka klasördeki resimlere göre nasıl gösterebiliriz?
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
' hata kontrolü
'resimleri Sil
ActiveSheet.DrawingObjects.Delete
'resim yolunun bulunması
Dim ResimYolu As Variant
Dim resim As Object
For satır = 2 To 243
ResimYolu = ActiveWorkbook.Path & "\" & Range("a" & satır) & ".jpg"
Set resim = ActiveSheet.Pictures.Insert(ResimYolu)
'resmi boyutlandır
With Range("l" & satır)
resim.Top = .Top
resim.Left = .Left
resim.Height = .Height
resim.Width = .Width
End With
Next satır
Çıkış:
End Sub
Teşekkürler makro kodlarını yorum olarak yazarsanız sevinirim
Hocam teşekkürler. bir sorum olacaktı. kaynak görseller için masaüstünden bir klasörü seçmek istesem resim yoluna ne yazmam gerekirdi
Faruk Karaçay masaüstünde ki dosyanın üzerinde sağ tuşa tıklayıp özellikler e girin oradan yoluna bakın aynı yolu koda yazın
İyi günler Mehmet bey tam bana lazım olacak bir paylaşım yapmışınız öncelikle elinize sağlık. benim sormak istediğim excel ayarladığım sutuna rakam yazdığımda resimler değişiyor. ancak ben UserForm üzerinden o sutuna rakam girdiğimde bilgiler değişiyor ancak resim değişmiyor bununla ilgili yardımcı olabilir misiniz.
Oradaki kodu textbox in change ine koyun olur
Yada ayrı bir sub yapın o kodları onun içine koyun hem textbox in change in içine hemde worksheet change in içine call yenisub yapın ikisinde de çalışsın
Call yenisub yazın
@ Teşekkürler hocam oldu. Bir sorum daha olacak size resimleri excelin olduğu değilde başka bir klasörden çektire bilir miyiz yani resim yolunu değiştirmek istiyorum çok fazla resim olacak excelle aynı dosya içerisinde olmasın istiyorum
range işlemini yapınca "Run-time error '28': Out of stack space" hatası veriyor. Ne olabilir?
Çözüm Bulabildiniz mi. Anadolulu03@gmail.com
Hocam makro da resim sil kısmına ne yazmalıyızki diğer makro butonlarını silmesin. ActiveSheet.Pictures.Delete yazdım olmuyor. Yardımcı olabilir misiniz. İyi çalışmalar .
Hocam ya da sadece resmin bulunduğu hücreye silme işlemini nasıl uygulayabiliriz
hocam kolay gelsin. tum kodlari aklinizda tutuyormusunuz yoksa sizde bir tasarim yaparken dış kaynaklardan yardim aliyormusunuz. bende iyi bir excel kullanıcisiyim ama herseyi bilmiyorum
Aklında tutmayıp ezbere yaptığı çok belli, bir de ders verecek uyanık. Attığımız mesaja bile dönüş yapmıyo çakal Carlos
👍
Hocam Merhaba, ResimYolu = ActiveWorkbook.Path & "\" & Range("b" & satır) & ".png" "\" olan kısma "webadresim.com/urunler/" yazıyorum ama malesef ürün resimlerini çekmiyor browserdan kontrol ettiğimde webadresim.com/urunler/1.png şeklinde resmi görüntüleyebiliyorum. Birde Farklı uzantıları tanımasını nasıl sağlayabiliriz. 1.jpg dosya ismi 2.png dosya ismi 3.bmp olursa nasıl bir kod ilavesi yapmalıyız. Teşekkürler Başarılar
Hocam ellerinze sağlık anlatım ve çalışma çok güzel olmuş, müsadenizle bir sorum olacak hazırladığımız excel ve resimler ayrı klasörler içerisindeyse nereye ve nasıl bir komut yazmamız gerekmektedir. Yardımcı olabilirmisiniz.
+jack bauer
Teşekkürler
Resimyolu değişkenine yolu belirtmeniz yeterli benim örneğimde activeworkbook.path dediğim yer bu dosyanın olduğu klasör buradan yönlendirebilirsiniz örneğin bu dosyanın olduğu klasörün içinde resimler diye bir klasör olduğunu varsayarsak
activeworkbook.path&"\Resimler\" şeklinde yapabilirsiniz
+Mehmet Gürten yanıt için teşekkür ederim.
Hocam Allah için bir örnek istiyoruz. "Klasörden resim çağırmayı ancak öncesi ve sonrası şeklinde. Yani butona basınca a sütununa yukarıdan aşağıya bir olaya ait eski resimler B sütununa ise yeni resimler gelsin. Ama resim sayısı deisken olacak misal A2 den A150 ye kadar. Çağırılan resimler aynı klasörde olacak misal 257e 257y gibi. Valla çıkamadım işin içinden Allah için yardım edin.
Elinize sağlık hocam , yalnız sayfada activex buton varsa videodaki kodlarla resim çağırınca butonu da siliyor, ayrıca veri doğrulama ile yapmak yerine hücreye dinamik formül yazınca formül çalışıp hücre içindeki veri değişmesine rağmen resim çağırmıyor. Bu konuları çözmek için kodda nasıl bir değişiklik yapabiliriz?
Object yerine pictures i delete edin
@ hocam öylede denedim ama sayfalar arası geçiş için kullandığım activex butonunu yine siliyor.
Private Sub Worksheet_Change(ByVal Target As Range)
'logoları sil
ActiveSheet.Pictures.Delete
If Intersect(Target, [b3]) Is Nothing Then Exit Sub
'hata kontrolü
On Error GoTo çıkış
'logo yolunun bulunması
Dim logoyolu As Variant
Dim logo As Picture
logoyolu = ActiveWorkbook.Path & "\" & Range("b3") & ".jpg"
'logo oluştur
Set logo = ActiveSheet.Pictures.Insert(logoyolu)
'logo boyutlandır
With Range("c3")
logo.Top = .Top
logo.Left = .Left
logo.Height = .Height
logo.Width = .Width
End With
çıkış:
End Sub
@@Mr_Kose61 bana dosyanızı mail atın bı boşlukta bakayım
@ teşekkürler hocam maili gönderdim.
hocam yine ben ve üşengeç sorularım :) hocam şimdi ben yukarıdaki videoda bana lazım olan bir tek proforma listesine oto resim eklemek hücrelere. lakin sizin yazdığınız kodların hepsini birebir baka baka yaptım ama beceremedim .
+Mehmet Gürten NASIL YAPICAZ HOCAM :)
yani ne demeliyim şimdi demekki aynısı değil aynısı ise çalışması lazım ya resim adlarınız farklidir ya hücre farklıdır yada resmin uzantısı jpg değildir aklıma gelenler
+Mehmet Gürten RESİMLERİM JPG VBA KODLARI DA EMİNİM BİREBİR 4 CÜ DEFA YAZDIM DÜŞEY ARAYI DA SAĞ OLUN SİZDEN GAYET İYİ ÖĞRENDİK ONDA PROBLEM YOK SADECE BU VBA KODUNUN BAŞINDA İLK SATIRDA PROBLEM ÇIKIYOR If intersect (targe,3 .......... >>>>then
+Yavuz çakır hata olan satırı buraya aynen yazin
+Mehmet Gürten tam olarak bu şekilde yazdım hocam If Intersect (Target, [d3]) Is Nothing Then Exit Sub
hocam resimleri silme kısmına geldim. hücreyi değiştirince ne kadar macrolu buton v.s varsa siliniyor. ne yapmam lazım.
ayrıca elinize dilinize sağlık
Siler çünkü biz nesnelerin tamamını sildiriyoruz orada nesnesel değilde resimleri sil derseniz sadece resimleri siler
ActiveSheet.DrawingObjects.Delete
yerine
ActiveSheet.Pictures.Delete
yazarsanız sadece resimleri siler
Mehmet Gürten MEHMET HOCAM TAM OLARAK NASIL YAPMAM LAZIM BİRAZ DAHA AÇABİLİR MİSİN?
+Mehmet Gürten teşekkürler, sadece resmi sildirebildim fakat, Combobox larıda siliyor bu şekilde de. bunu nasıl düzeltebiliriz?
Hocam Uzun zamandır aradığım bir konuydu emeğinize sağlık tam olarak istediğim gibi oldu teklif formu için oluşturdum, 2 adet sorum olacak 1. - eklenen resimi hücreye alttan üstten sağdan soldan ortalamak için ne yapılabilir 2. - eklenen bazı resimler hücreden taşıyor, taşmayı engellemek için resimi otomatik boyutlandıracak bir kod varmıdır ?
iletişim kurabilir misiniz anadolulu03@gmail.com
bende çalışmıyor
bu resimleri hücreden çağırmak münkünmü?
Hocam çok iyi anlatım tebrikler. Sorum şu ...
A1 hücresindeki değere göre B1 hücresine Resim Çağırabiliyorum. Peki bunun devamında aynı sayfada C1 hücresinin değerine göre D1 hücresine ve bu şekilde yatay olarak nasıl resim çağırabilirim. (Personel için Yaka kartı yapıyorum ve excelde bir sayfamda 3x3=9 personel var, resimlerinin gelmesini istediğim hücrenin bi önündeki hücreye sicillerini yazdığımda resimleri gelsin istiyorum ama sadece ilk sütunu bu anlatıma göre yapabiliyorum diğerleri için nasıl bi kod yazmalıyım)
+Beytullah Hayran Arkadaşım iyi günler, aynı sorunu ben de yaşıyorum, siz çözebildiniz mi? bana da yardımcı olabilirmisiniz?...
+Beytullah Hayran aynı sorunu yaşıyorum. Hocam yardımcı olur musunuz?
+Beytullah Hayran Yani onu burada yazarak anlatamam ama a1 için yapabildiyseniz çıkıştan önce aynı kodları (delete hariç) kopyalayıp sadece sütunları değiştirirseniz olur
+Mehmet Gürten Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
On Error GoTo çıkış
ActiveSheet.DrawingObjects.Delete
Dim ResimYolu As Variant
Dim resim As Object
For satır = 1 To 1100
ResimYolu = ActiveWorkbook.Path & "\" & Range("a" & satır) & ".jpg"
Set resim = ActiveSheet.Pictures.Insert(ResimYolu)
With Range("d" & satır)
resim.Top = .Top
resim.Height = .Height
resim.Left = .Left
resim.Width = .Width
End With
Next satır
If Intersect(Target, [e:e]) Is Nothing Then Exit Sub
On Error GoTo çıkış
Dim ResimYolu1 As Variant
Dim resim1 As Object
For satırr = 1 To 1100
ResimYolu1 = ActiveWorkbook.Path & "\" & Range("e" & satırr) & ".jpg"
Set resim1 = ActiveSheet.Pictures.Insert(ResimYolu1)
With Range("g" & satırr)
resim.Top = .Top
resim.Height = .Height
resim.Left = .Left
resim.Width = .Width
End With
Next satırr
çıkış:
End Sub
+Mehmet Gürten bu şekilde yaptım ama yine çalışmıyor hocam :)
kod yazmadan başka yolla resim ekleyebiliyor muyuz mesela vlookupla?
+İrade Kerimova İndis ile yapabilirsiniz videolarım arasında dinamik resim ekleme şeklinde bir video hazırlamıştım ondan faydalanabilirsiniz.
hocam çok teşekkür ediyorum gerçekten çok faydalı bir video elinize sağlık..
Benim ufak bir problemim var.. evrakı D klasörü içinde oluşturuyorum.. Ve yine aynı D klasörü içerisinde FOTO olarak kaydettiğim bir klasör gerisinden fotoğraf almak istiyorum ancak sürekli hata veriyor.. fotoğraf yolum nasıl yazılmalı?
o klasorun icine bir resim koyun sonra onun uzerinde sag tusa basip ozelliklerden dosyanin yoluna bakin dosya adindan onceki yeri kopyalayip vba nin icindeki yola yapistirin
o klasorun icine bir resim koyun sonra onun uzerinde sag tusa basip ozelliklerden dosyanin yoluna bakin dosya adindan onceki yeri kopyalayip vba nin icindeki yola yapistirin
23:53 e kadar herşey düzgün gitti son değişikliği yapınca resim getirmemeye başladı.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d7]) Is Nothing Then Exit Sub
' hata kontrolü
On Error GoTo Çıkış
'resimleri Sil
ActiveSheet.DrawingObjects.Delete
'resim yolunun bulunması
Dim ResimYolu As Variant
Dim resim As Object
ResimYolu = ActiveWorkbook.Path & "\" & Range("d7") & ".jpg"
Set resim = ActiveSheet.Pictures.Insert(ResimYolu)
'resmi boyutlandır
With Range("D7")
resim.Top = .Top
resim.Left = .Left
resim.Height = .Height
resim.Width = .Width
End With
Çıkış:
End Sub
Mehmet Bey,
Güzel paylaşım olmuş sanırım ben beceremedim.
Pdf'den kopyaladığım resmi jpg formatına çevirdim, hata vermiyor ama resimi de çağırmıyor.
aynısını yaptıysanız çalışması lazım isterseniz yaptığınız dosyayı resimlerle beraber zipleyip bana mail atın bir bakayım
aynısını yaptıysanız çalışması lazım isterseniz yaptığınız dosyayı resimlerle beraber zipleyip bana mail atın bir bakayım
+Mehmet Gürten bey.
Sadece resmin ismini yanlış vermişim.
Teşekkür ederim.
Çalışmalarınızda başarılar dilerim.
hocam yaptım test ettim çalışıyor ama resimler gelmiyor. Çünkü resim yolunu Empty Gösteriyor. neden olabilir ? Teşekkürler
resimyolu değişkenine yolu atamamissiniz
nasıl yapabilirim hocam
Soner Şeneken Video da 14:20 den itibaren olan bölümü kontrol edin
Kaola mı?
resimler hücrede, yukarı sağa-sola yanaşıyor fakat alt uzun kalıyor.
+Ahmet Kılavuz Resimleri ölçeklendirirken orantılı bir şekilde ölçülendirdiği için bu sıkıntınız olur resimlerin ölçüsü aynı olursa bu sıkıntınız olmaz.
+Mehmet Gürten teşekkürler, o haliyle bile işimi çok rahatlattı :)
resim yerleştirmede dışarı taşma oluyor bunu nasıl ayarlayabiliriz
sütun ayarları ile yapabilirsiniz genişletin veya daraltın
Nasıl yapabilirim hocam
sizin activesheet hatanızın olduğu aynı yerde hata verdi, sizin hatanızı düzeltilmiş halindede hata verdi
'Resimleri Sil
ActiveSheet.DravingObjects.Delete
drav değil draw olarak düzelttiniz mi? Ben de orada hata yapıyordum da. :)
walla level atladım sanırım ben geçen sürede :=) beyefendiye bi soru sordum cevapladı 2.yi sordum sallamadı. ben de derdimi google efendiye açtım. derken in design da bi kaç harekette excelden bin sayfalık katalog oluşturma durumuna ulaştım. :=)
Tebrikler. :) Indesign ile kare kod oluşturulabiliyor mu peki?
kaola :D
çok güzzel elinize sağlık o hayvan Koala
teşekkürler isim de dogrusunuz sonra fark ettim sırf onun içinde videoyu yeniden cekmege değmez
+Mehmet Gürten koskaca faydali videoda nasıl dikkatimi cektiyse espiri olsun die yazdım elinize emeğinize saglik.
kaan filiz Estağfurullah ama bu güzel bir alışkanlık bir çok şey ince ayrıntılarda gizlidir bunları görebilmek bence bir ayrıcalıktır.