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 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.
Yana dogru 4 hucreli yapabilmek icin fomulde nasil bir degisiklik yapmam lazim B1 den yada c 1den baslayarak asagi dogru devam edecek sekilde @@MMUSTAFABOLAT
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.
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?
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.
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.
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.
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.
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
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...
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
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
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?
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ü
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
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 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 ?
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
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.
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.
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 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?
@@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.
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
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 😉
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.
Yana dogru 4 hucreli yapabilmek icin fomulde nasil bir degisiklik yapmam lazim B1 den yada c 1den baslayarak asagi dogru devam edecek sekilde @@MMUSTAFABOLAT
Yemin ediyorum tam aradığım bir video ve yaptım oldu. fazladan kullanacağım zamanı bana verdiğin için teşekkür ederim
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.
hocam çok güzel bir paylaşım bu işlemi a ve b sütününa nasıl uygulayabiliriz
Hocam merhaba. Her bir fotoğraf altına Fotoğraf 1, Fotoğraf 2 şeklinde yazma imkanımız var mıdır?
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
3 satır birleştrince yapmıyor hocam var mı çözümü
hocam C sütunundan başlamak istiyorum aşağı doğru.
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?
Müzayede (Açık artırma) için program tasarlamayı gösterir misiniz? Teşekkürler.
Emeğinize sağlık çok işime yaradı.😊
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.
Çok güzel, pratik ve işlevsel bir komut olmuş. Teşekkürler 🎉
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.
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.
Bir içerisinde lokasyon olarak belirtip daha sonra belirtilen locasyondara veri ataması yapılması mümkün mü
Güzel bir konu, güzel bir anlatım! Teşekkürler!
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.
Hocam merhabalar, resimin yukseklik olcusunu deger vererek degistirmek mumkun mudur?
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
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...
Gerçekten çok teşekkürler hocam
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
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
udemy eğitimleri için indirim link paylaşır mısınız ??
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?
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ü
Çok tşkler hocam
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.
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, Yine siz ve harikalar... Çok Teşekkürler...
emeğinize sağlık
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
Ellerinize sağlık , benim ihtiyacım mesala A'yı hücreye yazınca dosyadan a'nın resmi yan hücreye gelsin.
Peki resmi hücreye sığdırma değilde hücreyi resmin boyutuna göre ayarlama diye bir yol var mı
Birleştirilmiş hücrelere eklemek için ne yapmalı?
Teşekkürler
Hocam merhaba, resimleri ekletiyorum. Ancak klasörden silince ya da başka bilgisayarda açtığımda gözükmesi için ne yapabilirim?
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
harikasınız
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 ?
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
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.
10 numara 5 yıldız
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.
Şimdi yapay zeka hepsini yapacak galiba?
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ı
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?
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.
Hata veriyor olmuyor Acil yardım edermisiniz
❤❤❤
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