Excel'de Hücrelere Otomatik Resim Yerleştirme | VBA Kodu İle Adım Adım Rehber
HTML-код
- Опубликовано: 26 май 2023
- Ayrıcalıklardan yararlanmak için bu kanala katılın:
/ @mmustafabolat
Instagram & Linkedin: M. Mustafa BOLAT
Kurumsal Eğitim Talepleri: BYMMB.com
"Merhaba Excel severler! Bu heyecan verici videoyu izleyerek, Excel'de hücrelere VBA kodu kullanarak nasıl otomatik olarak resim yerleştirebileceğinizi öğreneceksiniz. Artık manuel olarak resimleri hücrelere yerleştirmekle vakit kaybetmek zorunda değilsiniz! VBA (Visual Basic for Applications) kodlamasının gücünü kullanarak, hızlı ve verimli bir şekilde resimleri istediğiniz hücrelere yerleştirebilirsiniz.
Bu video size adım adım rehberlik edecek ve kodlama becerilerinizi geliştirirken, Excel'de resim yerleştirmenin kolaylığını keşfedeceksiniz. Hem görsel olarak çarpıcı hem de veri işleme süreçlerinizi optimize eden bu yöntem, projelerinizde size büyük bir avantaj sağlayacak.
Unutmayın, bu videoda size sağladığım VBA kod örneğiyle, resim yerleştirme sürecini nasıl otomatikleştireceğinizi öğreneceksiniz. Kendi projelerinize uyarlayabileceğiniz bu örnek, iş akışınızı hızlandıracak ve zamanınızı verimli bir şekilde kullanmanıza yardımcı olacaktır.
Excel'de hücrelere VBA kodu ile resim yerleştirmenin büyüleyici dünyasına hazır olun! Bu videoyu izleyerek, Excel yeteneklerinizi bir adım öteye taşıyacak ve projelerinizi daha profesyonel ve etkileyici hale getireceksiniz. Hadi başlayalım ve Excel'de resim yerleştirmenin gücünü keşfedelim!"
Videoda yer alan kodlar:
Sub resim_ekle()
Set ws = Sheets("Sayfa1")
dosya = "C:\Users\BYMMB\Desktop\kapaklar"
resimler = Dir(dosya & "\*.*")
satir = 1
Do While resimler ""
uzanti = dosya & "\" & resimler
Set resim = ws.Pictures.Insert(uzanti)
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
satir = satir + 1
resimler = Dir
Loop
End Sub
![DRAGON BALL: Sparking! ZERO - Fused Warriors Trailer [BUDOKAI TENKAICHI Series]](http://i.ytimg.com/vi/84p4Lvyfyes/mqdefault.jpg)
Güzel bir konu, güzel bir anlatım! Teşekkürler!
Çok güzel, pratik ve işlevsel bir komut olmuş. Teşekkürler 🎉
Emeğinize sağlık çok işime yaradı.😊
Gerçekten çok teşekkürler hocam
hocam çok güzel bir paylaşım bu işlemi a ve b sütününa nasıl uygulayabiliriz
Hocam, Yine siz ve harikalar... Çok Teşekkürler...
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.
emeğinize sağlık
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
Çok tşkler hocam
Müzayede (Açık artırma) için program tasarlamayı gösterir misiniz? Teşekkürler.
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.
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.
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.
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
harikasınız
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
Teşekkürler
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?
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
Bir içerisinde lokasyon olarak belirtip daha sonra belirtilen locasyondara veri ataması yapılması mümkün mü
Hocam merhabalar, resimin yukseklik olcusunu deger vererek degistirmek mumkun mudur?
10 numara 5 yıldı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.
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ü
udemy eğitimleri için indirim link paylaşır mısınız ??
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...
Kodlara aklı pek ermeyen biri olarak şu videoyu izledim,harika anlatım sayesinde mükemmel bir bilgi edinmiş oldum.Emeklerinize sağlık.
Faydalanmanıza sevindim 😊
@@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.
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….
Şimdi Udemy’de baktım 8 sorunuza cevap vermişim. Daha ne yapayım 😂 kendiniz çözerseniz kalıcı olur 😉
Peki resmi hücreye sığdırma değilde hücreyi resmin boyutuna göre ayarlama diye bir yol var mı
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
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 ?
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.
Ellerinize sağlık , benim ihtiyacım mesala A'yı hücreye yazınca dosyadan a'nın resmi yan hücreye gelsin.
Birleştirilmiş hücrelere eklemek için ne yapmalı?
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
bu konu ile ilgili python ile birlikte görüntü işleme araçlarına bakmak gerekir.
❤❤❤
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.
Option expilicit ifadesi vardır. Onu silin
@@MMUSTAFABOLAT Teşekkür ederim.
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...
Emrullah bey bunu nasıl yaptığınızı anlatabilir misiniz? Teşekkür ederim.
@@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.
@@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?
Hayır jpg olarak bir klasörde
@@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.
Merhaba.
Kod tekrar çalışınca hücrelerdeki resimleri silme kodu unutulmuş galiba üst üste resimlerin gelmemwsi için.
Tekrar çalıştırdığınızda tüm resimleri sildirmek lazım tabi
@@MMUSTAFABOLAT Bu durumda hangi satıra hangi kodu yazmak silme işlemini gerçekleştirir acaba?
Hata veriyor olmuyor Acil yardım edermisiniz
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?
Cells komutu ile range içindeki A yerine de değer atanabilir
@@MMUSTAFABOLAT Hocam merhaba satir = 1 yazan yere Range("A1:B225).select yazdım, malesef olmadı