Excel'de Hücrelere Otomatik Resim Yerleştirme | VBA Kodu İle Adım Adım Rehber

[@o.turkmen]

Videoyu beğenen 64. Kişiyim hemen her içeriğinizi beğenip yorum yapıyorum udemy den tüm derslerinizi satın aldım fakat sizlere kaç defa udemy den soru sordum ve mail attım bir kere bile olsun bana dönüş yapmadınız bende inadına bütün sorunlarımı tek başıma çözdüm teşekkür ederim….

[@MMUSTAFABOLAT]

Şimdi Udemy’de baktım 8 sorunuza cevap vermişim. Daha ne yapayım 😂 kendiniz çözerseniz kalıcı olur 😉

[@sefikgkara]

Kodlara aklı pek ermeyen biri olarak şu videoyu izledim,harika anlatım sayesinde mükemmel bir bilgi edinmiş oldum.Emeklerinize sağlık.

[@MMUSTAFABOLAT]

Faydalanmanıza sevindim 😊

[@sefikgkara]

@@MMUSTAFABOLAT Faydalanmamak mümkün değil ki...Personel listesi,ürün listesi gibi çalışmalarda personellerin ya da ürünlerin resimlerini excel'e bir kerede aktarmanın en kolay yolu bu olsa gerek.

[@ersanefiloglu988]

Yana dogru 4 hucreli yapabilmek icin fomulde nasil bir degisiklik yapmam lazim B1 den yada c 1den baslayarak ​asagi dogru devam edecek sekilde @@MMUSTAFABOLAT

[@tercumanozbek]

Çok ama çok faydalı oldu. Teşekkür ederim. Harika bir paylaşım. Takibinizdeyim. Saygılarımla

[@saiddos5580]

Yemin ediyorum tam aradığım bir video ve yaptım oldu. fazladan kullanacağım zamanı bana verdiğin için teşekkür ederim

[@eversut1]

Hocam, eğer şunu yaparsan o pelerini her gün yıkar ütülerim: Ürün No sütununda bir ürünün kodunu girince yandaki boş (resim sütunu) hücreye belli bir klasördeki aynı kod isimli resim gelsin. Yani hücredeki ürün kodunu belli bir klasörde arayarak resmi yandaki boş hücreye getirsin.

[@ahbibaqwer]

Private Sub Worksheet_Change(ByVal Target As Range) Dim DosyaYolu As String Dim DosyaAdı As String Dim SatırNo As Long ' B sütununda değişiklik yapıldıysa If Not Intersect(Target, Me.Columns("B")) Is Nothing Then ' Değişiklik yapılan hücrenin değerini al Dim Aranan As String Aranan = Target.Value ' Kapaklar klasörünün dosya yolu DosyaYolu = "C:\Resimler\" 'Klasör yolunu kendi dosya yolunuzla değiştirin ' Klasör içindeki dosyaları kontrol et DosyaAdı = Dir(DosyaYolu & Aranan & ".*") ' Dosya adı bulunana kadar döngüyü devam ettir Do While DosyaAdı "" ' Eğer dosya adı bulunduysa If DosyaAdı "" Then ' Satır numarasını bul SatırNo = Target.Row ' Resim ekleme işlemi Dim Resim As Picture Set Resim = Sheets("Sayfa1").Pictures.Insert(DosyaYolu & DosyaAdı) ' Resmi hücrenin sağ üst köşesine yerleştir With Resim .Left = Sheets("Sayfa1").Range("A" & SatırNo).Left .Top = Sheets("Sayfa1").Range("A" & SatırNo).Top .Width = 100 ' Resmin genişliğini istediğiniz değere ayarlayın .Height = 100 ' Resmin yüksekliğini istediğiniz değere ayarlayın End With End If ' Bir sonraki dosya adını al DosyaAdı = Dir Loop End If End Sub Bu kodu kullanabilirsin, Bu kodu modüller içerisinde çalışma sayfasının değişmesi durumunda kullanılmak adına yazıldı. Yani B sütununa 1024 yazdığında, C sürücüsü içerisindeki Resimler klasöründe olan dosyalar kontrol edilerek 1024.jpg gibi bir dosyayı alıp A sütununa ekler.

[@ahbibaqwer]

Sub ResimEkle() Dim DosyaYolu As String Dim DosyaAdı As String Dim SatırNo As Long Dim Aranan As String Dim hücre As Range ' Kapaklar klasörünün dosya yolu DosyaYolu = "C:\Resimler\" 'Klasör yolunu kendi dosya yolunuzla değiştirin ' B sütunundaki her bir hücreyi kontrol et For Each hücre In Sheets("Sayfa1").Columns("B").Cells ' Hücre boş değilse devam et If hücre.Value "" Then ' Hücredeki değeri al Aranan = hücre.Value ' Klasör içindeki dosyaları kontrol et DosyaAdı = Dir(DosyaYolu & Aranan & ".*") ' Dosya adı bulunana kadar döngüyü devam ettir Do While DosyaAdı "" ' Eğer dosya adı bulunduysa If DosyaAdı "" Then ' Satır numarasını bul SatırNo = hücre.Row ' A sütununda bulunan hücreye dosya adını ekle Sheets("Sayfa1").Range("A" & SatırNo).Value = DosyaAdı ' Resim ekleme işlemi Dim Resim As Picture Set Resim = Sheets("Sayfa1").Pictures.Insert(DosyaYolu & DosyaAdı) ' Resmi hücrenin sağ üst köşesine yerleştir With Resim .Left = Sheets("Sayfa1").Range("A" & SatırNo).Left .Top = Sheets("Sayfa1").Range("A" & SatırNo).Top .Width = 100 ' Resmin genişliğini istediğiniz değere ayarlayın .Height = 100 ' Resmin yüksekliğini istediğiniz değere ayarlayın End With End If ' Bir sonraki dosya adını al DosyaAdı = Dir Loop End If Next hücre End Sub Bu kodu herhangi bir modül olarak ekleyebilirsin. Hali hazırda olan bir excel dosyan varsa bunu ekleyip modülü çalıştırdığında B sütunundaki değerlere göre C sürücüsündeki Resimler klasörü içerisinde arama yapıp A sütununa resimleri ekleyecektir.

[@BoraKantas]

hocam çok güzel bir paylaşım bu işlemi a ve b sütününa nasıl uygulayabiliriz

[@kadirharas]

Emeğinize sağlık çok işime yaradı.😊

[@ahmetyaman8005]

Çok güzel, pratik ve işlevsel bir komut olmuş. Teşekkürler 🎉

[@muttigen3729]

Hocam elinize sağlık. Peki geliştiriciden eklenen metin kutusunu hücreye sabitlemek için hangi kodu girmemiz gerekir. Çok acil lazım. Yapamadık

[@ahmetatasay9217]

Hocam, Yine siz ve harikalar... Çok Teşekkürler...

[@sedataksakal414]

Teşekkür ederim. Sade, anlaşılır bir kod. UserForm a aynı şekilde yükleme yapabilir miyiz. Ekranda belli bir hücre aralığında oluşturduğumuz verileri (içinde fotoğrafta olabilir) çözünürlüğü yüksek şekilde dışarı nasıl aktarabilir. Uzun zamandır yoktunuz. Özledik. İyisinizdir inşallah. Kolay gelsin.

[@adildegirmenci4551]

Hocam merhaba, Videolarınız çok eğitici ve keyifli sizden bir içerik isteğim olacaktı. Içerik şunu yapacak excel de bulunan bir grafiği veya yazıyı belirli bir word formatına otomatik çalabileceğimiz bir kod. Ne işimize yarayacak bu kod örneğin kopyala yapıştır işlerini ortadan kaldıracak. O işi sürekli yapıyorsak işimizi kolaylaştıracak. Şimdi den teşekkür ederim.

[@hilmilafci447]

Hocam merhaba. Her bir fotoğraf altına Fotoğraf 1, Fotoğraf 2 şeklinde yazma imkanımız var mıdır?

[@altay444]

Müzayede (Açık artırma) için program tasarlamayı gösterir misiniz? Teşekkürler.

[@onur.bulbul]

Bir içerisinde lokasyon olarak belirtip daha sonra belirtilen locasyondara veri ataması yapılması mümkün mü

[@sinanyldrm6211]

Güzel çalışma peki dosya yolları veya linkleri olan resimleri hücleri nasıl ekleriz. Söyleki A stününda linkler var B stününa bu linklerin küçük resimlerini eklemek istiyoruz.

[@AliGöndelen]

Mustafa bey merhaba. Tecrübelerinizi bizimle paylaştığınız için öncelikle teşekkür ederim. Resimleri satır seklinde değil de sütun seklinde çağırabiliyor muyuz. Listem a1 a2 a3... hücrelerinde değil a1 b1 c1... şeklinde sıralı. Resimlerin a2 , b2 ve c2 .... şeklinde sıralanmasını istiyorum.

[@hasretdag53]

Programı ilk çalıştırdığımda resimleri hücrenin içine nesne olarak eklemişti ve bu şekilde olması güzel olmuştu. Fakat daha sonra tekrar eklediğimde resimleri hücre üzerine resim olarak ekliyor (hücre içerisine değil), bu da istemediğim bir durum. Bu fark nereden kaynaklanıyor acaba?

[@SonerOtrakci]

Güzel bir konu, güzel bir anlatım! Teşekkürler!

[@KAFASINET]

3 satır birleştrince yapmıyor hocam var mı çözümü hocam C sütunundan başlamak istiyorum aşağı doğru.

[@unalyldrm2046]

udemy eğitimleri için indirim link paylaşır mısınız ??

[@aysegulyildirim7259]

Gerçekten çok teşekkürler hocam

[@aaasss2017]

Hocam bilgisayara fiziksel olarak müdahale ermesini yapay zekaya nasıl öğreteceğiz.yani bilgisayarda bir resim içinde resimi tanımasını resmin şekillerinin boyutunu ölçmesini(karot sandığında karot numunesinin tanıma ve bu karotin hangi kayaçtan oluştuğunu nasıl yapay zekaya öğretip kayacın adını söylettirebiliriz. Yapay zekanın fotoşopu kullanarak fotoğraftaki kayacı nasıl tanıyıp bunun adını ve özelliklerini yazacaktır

[@ahbibaqwer]

bu konu ile ilgili python ile birlikte görüntü işleme araçlarına bakmak gerekir.

[@fuatkarataban1]

Mustafa hocam excel sayfasına paint atamak istiyorum. 2008 dosyalarımda vardı ama kayboldu. 2016 plus kullanıyorum. Nasıl yapabilirim ? Paint ekleme amacım daha iyi çizim yapabilmek...

[@merOmurO-]

Abi Sheets("Sayfa1") olarak sınırladıl aynı resimleri birden fazla sayfaya aynı şekilde yazacaksan kod da sayfa isimleri arasına hangi işareti koymalıyım? Teşekkür

[@peker58]

Hocam teşekkürler kod için ben aynen anlattığınız gibi uyguladım ama çoğu resim A sütununa değilde farklı sütunlara eklendi ve bazılarının boyutlarıda farklı nedeni ne olabilir

[@afyonludeli6403]

Merhaba iyi günler hocam ben sıfırdan baslicam pek bilgim yok ama ondan önce size bişey danışmak istiyorum 4-5 sayfa farklı farklı yemek listesi var ilk listeyi yaptıktan sonra otomatik olarak diğerlerine değiştiren formül varmı nasıl yaparız yardımcı olursanız sevinirim

[@muratyasar740]

Ellerinize sağlık , benim ihtiyacım mesala A'yı hücreye yazınca dosyadan a'nın resmi yan hücreye gelsin.

[@tribungunlukleri3869]

Merhaba bir sorum olacaktı. Excele 365 versiyonu ile sırala formülü gelmiştir. Ben 365 kullanmıyorum. Formül yazarak sıralama işlemini nasıl yapabiliriz?

[@sinepoint]

Hocam merhabalar, resimin yukseklik olcusunu deger vererek degistirmek mumkun mudur?

[@kozmix17]

Peki resmi hücreye sığdırma değilde hücreyi resmin boyutuna göre ayarlama diye bir yol var mı

[@ERTENCELIKTENSENBOBINAJ]

HOCAM ELİNİZE SAĞLIK BEN YAPTIM OLDU WHATSAPTAN FİYATLİSTESİ OLARAK YAPIP YOLLARKEN FOTOLAR GİTMİYOR SORUN NE OLABİLİR

[@bahricangündüz]

Hocam Car Rental sektöründe çalışmaktayım. Data ile yardımcı olsam dashboard yapar mısınız ? Eğitiminizi alıyorum dasboard ile alakalı yeni bir güncelleme gelmiş bence hocam saygılarımı sunarım.

[@agahemrehoplar6093]

merhaba ben ürün koduna göre resim eklemek istiyorum bu şekilde bi kod ile kolaylaştırmak istiyorum yardımcı olma şansınız var mı

[@tayfur2664]

emeğinize sağlık

[@mrz4237]

Çok tşkler hocam

[@ibrahimaydinlikshoes]

merhaba hocam cok güzel bi çalışma olmuş emeğinize sağlık bende farklı bişey yapmıştım ama resimler cuhalınca kasmalar oluyor hocam ben size daha önce mail. atmıştım bu konuyla ilgili udemy de ben ayakkabı işiyle uyraşıyorum her model resmine bi kod veriyorum excel de o koda göre resimleri çekiyorum yani a hücresine kodu yazınca b hücresine resim geliyor bu liste biraz uzayınca baya bi kasmalar olur bunu düzeltmenin bi yolu varmı hocam

[@SümeyyeÇali-p9o]

hocam öncelikle o kadar excel ve kod bilgim olmadığı halde anlayabileceğim şekilde anlattığınız için teşekkür ederim. sorum şu dosyadan alınan resimler dosyada sıralandığı şekilde mi alınacak bu kod ile? yani ben satırları değiştirmek istersem resimler de değişir mi yoksa sabitlenmiş mi oluyor? gelişigüzel 600 e yakın fotoğrafları boyutlandırma ile uğraşmamak ve tek tek almamak için dosyadan almak istiyorum ama bunları bazı özelliklerine göre sıralamam gerekecek dolaysıyla satırlarını değiştirmem gerekecek bu kodu kullansam bile istediğimi yapabilecek miyim? işe yaramıcaksa öneriniz nedir? çok teşekkür ederim :)

[@MMUSTAFABOLAT]

@@SümeyyeÇali-p9o merhaba. Isimlere dikkat etmeniz yeterli

[@MustafaÖztürk-k6q]

harikasınız

[@anlcanuzunoglu6723]

Hocam selamlar, bilgiler için teşekkürler fakat çözemediğim bir sorun mevcut. sorun şu şekilde eklemek istediğim fotoğraf sayısı +300 gibi bir rakam. Fotoğraflar başarılı bir şekilde hücrelere ekleniyor. Fakat ilk 20 resimden sonra resimler hücrelerden alttaki hücrelere taşıyor. Aslında şöyle ilk fotoğraf sizeları 6.32 x 2,45 diyelim ama bir alttaki görsel 6.33 x 2.45 oluyor ve bu şekilde 100. görsel 6.79 x 2.45 olduğundan alttaki hücreye taşıyor. Sizce sebebi ve çözümü nedir acaba ?

Birleştirilmiş hücrelere eklemek için ne yapmalı?

[@gcortuk8523]

Hocam merhaba, resimleri ekletiyorum. Ancak klasörden silince ya da başka bilgisayarda açtığımda gözükmesi için ne yapabilirim?

[@gcortuk8523]

Hocam şu şekilde çözdüm sorunu; Rad = ("C:\ .... .jpg") Set rsm = activesheet.shapes.addpicture(filename:= rad, linktofile:= false, savewithdocument := true, left:= ..., top:= ..., width:= ..., height := ...) ... 'ları yazmadım çok uzun olmasın diye yorum

[@deepingg]

10 numara 5 yıldız

[@aysegulyildirim7259]

Hocam fotoğrafkarı sırası ile almıyor bunun için koda ne eklemem gerekiyor? Üsünler sırası ile olmalı yada fotoğraf karın adını başka bir sütüna eklemek mümkün mü

[@yasinsonmez3093]

Çözdünüz mü ?

[@oguzhan6684]

Hocam sizden bir isteğim olacak bu yapmış olduğunuz format işimi görecek ama resim dosyasının adını sayısal veri olarak düşünün a1 hücresine resim gelecek ama ben b2 hücresine 1 yazdığım zaman 1.png veya 1.jpg resimini getirecek ve bunu ben en az a1den a25 e kadar yapmak istiyorum a25 dahil bu konuda yardımcı olma şansınız varmıdır yararlı video için teşekkkür ederim.

[@erkutkoksal1913]

Teşekkürler

[@azadibrahimserdaroglu8499]

Şimdi yapay zeka hepsini yapacak galiba?

[@zafergun68]

Merhaba. Kod tekrar çalışınca hücrelerdeki resimleri silme kodu unutulmuş galiba üst üste resimlerin gelmemwsi için.

[@MMUSTAFABOLAT]

Tekrar çalıştırdığınızda tüm resimleri sildirmek lazım tabi

[@SonerOtrakci]

@@MMUSTAFABOLAT Bu durumda hangi satıra hangi kodu yazmak silme işlemini gerçekleştirir acaba?

[@maydin34]

@@SonerOtrakci AŞAĞIDAKİ kodları Set ws = Sheets("Sayfa1") ardından yazın . Buradaki A:Z, silmek istediğiniz range'i gösterir. Yani A:Z yerine, A:B yazarsanız ilk iki sütun silinir gibi... Dim s As Shape, rng As Range Set rng = Range("A:Z") For Each s In ActiveSheet.Shapes If Intersect(rng, s.TopLeftCell) Is Nothing Then Else s.Delete End If Next s

[@emrullahaydin]

Hocam Selamlar, Ben buna benzer bir proforma sipariş formu hazırlayıp müşterilerime gönderiyorum ama listede örneğin A2 de bulunan stok kodu ile resmin adını aynı yaparak eşleştirip getiriyorum. Gayet güzel çalışıyor. Yapamadığım konu ise şu, yazdırdığım zaman veya müşteriye excel olarak gönderim sağladığım zaman bazı resimlerin gözükmemesi. Bu durum neden olabilir biraz araştırdım ama çözemedim ve peşini bıraktım açıkcası sizin videoyu görünce sormak istedim. Saygılarımla...

[@fizikofisimosmansahin387]

Emrullah bey bunu nasıl yaptığınızı anlatabilir misiniz? Teşekkür ederim.

[@emrullahaydin]

@@fizikofisimosmansahin387 Selamlar biraz hocanın videodan biraz kendimden ekleyerek düzenledim ama mantık şu ürün kodu ile aynı isimde resimleri bir klasöre attım eğer eşleşiyorlarsa resmî ilgili hücreye ekledim.

[@fizikofisimosmansahin387]

@@emrullahaydinEmrullah bey teşekkür ederim. Resimlerin isimleri bir excell sayfasında liste şeklinde mi idi? Yani listenin olduğu excell dosyası ile resimler aynı klasörde mi olmalılar?

[@emrullahaydin]

Hayır jpg olarak bir klasörde

[@fizikofisimosmansahin387]

@@emrullahaydin Jpg resimleri klasörden tek tek mi alıyorsunuz; yoksa istediğiniz sayıda alabiliyor musunuz? Her hücreye ayrı ayrı resimleri hangi formülle alıyorsunuz? Teşekkür ederim.

[@gokerbg]

Emeğinize sağlık. Siz kodlarınızda değişkenleri tanıtmadan yazabiliyorsunuz, benim editörümde örneğin direkt ws= Sheet("Sayfa1") yazsam, ws için tanınmayan değişken hatası veriyor ve Dim ile değişkeni tanıtmam gerekiyor. Bunun sebebi nedir? Şimdiden ilginiz için teşekkür ederim.

[@MMUSTAFABOLAT]

Option expilicit ifadesi vardır. Onu silin

[@gokerbg]

@@MMUSTAFABOLAT Teşekkür ederim.

[@senyurtbastaban5342]

Sayfa yapısına göre yanyana 2 resim sığar, siz satır olarak düşünmüşsünüz. Satır geç yana sonra alta geç nasıl olacak?

[@MMUSTAFABOLAT]

Cells komutu ile range içindeki A yerine de değer atanabilir

[@senyurtbastaban5342]

@@MMUSTAFABOLAT Hocam merhaba satir = 1 yazan yere Range("A1:B225).select yazdım, malesef olmadı

[@subcooling]

Hata veriyor olmuyor Acil yardım edermisiniz

[@futbol.13]

❤❤❤

[@emreoktay7128]

Hocam emeğinize sağlık teşekkürler Ancak eklemek istediğim fotoğrafların boyutu "6x8 cm" ve hücre içine alt ve üstten ortalamasını istiyorum. Bu koşullarda paylaşmış olduğunuz kod üzerinde denediğim tüm yöntemlerde hata alıyorum. Aşağıdaki kısımda hangi düzeltmeleri yapmam lazım acaba? With resim resimSol = ws.Range("A" & satir).Left resimUST = ws.Range("A" & satir).Top resimGenislik = ws.Range("A" & satir).Width resimYukseklik = ws.Range("A" & satir).Height .Left = resimSol .Top = resimUST .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Width = resimGenislik .ShapeRange.Height = resimYukseklik End With