Sorgu için arama sonuçları: klasör+resim

Merhabalar. Konu çözüldümü bilmüyorum ama alternatif olarak bu formülüde kullanabilirsiniz. Kendi dosyanıza ve adres yolunuza uygulamanız lazım. Değişmeniz ve dikkat etmeniz gerekenleride aşağıda listeledim Aşağıdaki koda göre ; B sütunundaki kod ile resmin adı aynı olmalı B23-B80 arasına...

Korhan Hocam sizin makroyu kendime uyarladım. Bir sorunum var eğer aranan resim yok ise klasör içindeki "RESİM YOK" resmini çağırabilirmiyiz. Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect If Intersect(Target, [N1]) Is Nothing Then Exit Sub On Error...

Merhabalar, Farklı kategorilerde yüzlerce ürün resmim var. Bu resimleri ve resim adlarını excel dosyama aldım ancak resimlerin ait olduğu klasör adlarını da aynı excel dosyasına almak istiyorum. Aşağıdaki 1. Linkte ürün resimlerimin ve adlarının toplandığı, ürünler isimli excel dosyasını...

Merhaba bir arkadaşımız makroyu bu şekilde revize edip, tüm satırları dolduracak hale getirmişti. Şimdi sizin yazdığınız değişikliği nasıl revize edeceğimi bilemedim. Bu makroda düzeltebilir misiniz. Teşekkürler. Dim klasor As String Sub resimleriGetir() Belirli_Bir_Alandaki_Resimleri_Sil...

Aşağıdaki kodu ( resimEkle ) önceki ile değiştirerek deneyiniz. Bu yine ilk satır (A2) için geçerli, siz diğer satırlara uyarlarsınız. Sub resimEkle(Resim As String, sutun As Integer) 'resimlerin bulunduğu klasörü yazıyoruz. Dim resimyolu resimyolu = klasor & Resim & ".png" 'Resim...

Öncelikle çok teşekkür ederim. resimleri koyduğumuz klasör makroya bu şekilde kaydettim. klasor = "C:\Users\Bülent Esen\Desktop\resim\" Makroyu çalıştırdım bu hatayı verdi. resimler(STR) = Replace(DSY, Right(DSY, Len(DSY) - _ .Find("*", .Substitute(DSY, ".", "*", Len(DSY) - Len( _...

Sizin örneğinizde A2 hücresindeki ürün numarasına göre istediğiniz işlemi aşağıdaki kodlarla yapabilirsiniz. Sadece ana ürün numarası yeterli. xxx_1 , xxx_2 gibi diğer ürünleri kendisi ayarlıyor. En fazla 50 yan ürün olur diye bir dizi belirledim. Onu ihtiyaca göre düzenlersiniz. Klasörü ve...

Ekte çalıştırılmış hali mevcut. B stunu ürün kodları T stunu resimlerin benzersiz adları (excel otomatik atıyor bu isimleri) (RESIM_SIL komutu için gerekli) G stunu resimlerin geldiği stunu C:\Users\BEYAZ\Desktop\PROFORMA\RESIMLER\" & Range("B" & pSatir).Value & ".jpg --> jpg formatındaki...

Merhabalar Ekteki dosyamda veri doğrulama hk açılmış bu KONU da @Korhan Ayhan Beyin #9 mesajındaki örneği kullandım. Lakin oradakinden farklı olarak şu hataları alıyorum 1- örnekte C stununda çift tıkladığımızda user form açılıyor. Lakin benimkinde direk hücreye giriyor yazmak için. Bunu nasıl...

Arkadaşlar hepinize merhaba, Şu sayfada bulunan konu içerisinde destek ekibinden Emre Bey makro ile bir sayfadan diğerine resim çekebilmek için bir kod vermiş. Ben bu kodu kendi excel dosyama uygulamak istiyorum ancak boyutlandırma konusunda oran problemi söz konusu. Benim istediğim şey, ekteki...

Korhan Bey, Sanırım karıştırdınız ya da ben karıştırdım. Resimle ilgili bir isteğim yoktu benim Sanırım sevensuleymana yazacaktınız.

Söylediğiniz gibi excell dosyamı kayank klasörüme içerisnne ekleyip çalıştırdım. klasörler oluşuyor.fakat resimler kopyalanmıyor.

@SeviLmeyen, KAYNAK KLASÖR'ünüz bu makroyu kullanacağınız dosya ile aynı bölümde olsun. Ya da Aranan_Klasor yolunu kendinize göre düzenleyiniz. Option Explicit Sub Mamul_Koduna_Gore_Resimleri_Klasorlere_Aktar() Dim Dizi As Object, Alan As Range, Veri As Range, S1 As Worksheet, Resim As...

resimleri biz excell dosysının içerisinden değil klasörden alacagız durum farklı anlaşıldı galiba. bileşen orjinal resimleri C:\RESIMABC\Yeni klasör bu dosya yolunda mevcut. excelde yapmış oldugunuz gibi bu klasörden bileşen resimlerini alıp mamulkodu açılan klasörün içerisine aktarmak...

Sayın @byfika iki kere yazılmış olan [resimYol = "C:\Users\PC\Desktop\personelfoto\personelfoto\" ] satırında ikinciyi sildikten ve PC adını yazınca ve textbox31 içinde tc yazınca hatasız olarak resmi getirdi. Buraya kadar sorun yok. Ancak hazırlaması bittiğinde bu çalışmayı teslim edeceğim...

Sayın Korhan Ayhan , Bir kaç şekilde ve kodla var olan fotoları userform üzerindeki image1 üzerine getirsem de , kişinin resmi olmadığında ya hata verdi ya da bir önceki resim kaldırılmadığından görünmeye devam etti. Eminim, göremediğim bir şey var ancak denemekten kodlar kafamda balon oldu...

Metin bey çok teşekkür ederim bilginizi paylaştığınız için.

Private Sub Worksheet_Change(ByVal Target As Range) Son = 3 ReDim uzanti(Son) uzanti(1) = ".bmp" uzanti(2) = ".jpg" uzanti(3) = ".gif" With Application .DisplayAlerts = False: .ScreenUpdating = False: .Calculation = xlCalculationAutomatic End With ActiveSheet.DrawingObjects.Delete Klasor...

Aşağıdaki kodu boş bir modüle ekleyip çalıştırın. Kodu çalıştırdığınızda sizden resimlerin olduğu klasörü seçmenizi isteyecek. Yaptığınız seçime göre liste oluşacaktır. Option Explicit Dim Sayfa As Worksheet, Klasor As Variant, Zaman As Double Dim Dosyalar As Object, Dosya As Object...

Arkadaşlar Merhaba Sayın Askm'nin son verdiği kod üzerinde nasıl bir değişiklik yapılmalı ki İnternet adresi olmayan satırlar için resim dosyaları oluşturmasın? Saygılar. https://dosya.co/2jez349cip9q/RESİM_İNDİRME.xlsm.html (dosyanın bulunduğu yerde RESİMLER isinli bir klasör var)