Hocam öncelikle desteğiniz için teşekkür ederim,
1-Önce bir klasör açtım excel dosyamı onun içine attım
2-Sonra aynı klasörün içinde yeni bir klasör açıp ismini Ürün Resimleri olarak isimlendirdim ve stok kodu ile eşleşen bir resim ekledim
3-Dosyanın kod kısmının en altına inip yazmış...
Merhaba.
Hücre kendisi yerine hücre açıklamalarına eklemek daha kullanışlı olacaktır. Çünkü resim boyutuna göre hücreyi genişletseniz tablonuz biçimsiz olacaktır.
Sayfanın kod kısmına aşağıdaki kodu kopyalayın.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KlasorYolu As String...
Gemini'nin öneresi
Google E-Tablo Aralığı Nasıl JPG'ye Dönüştürülür ve Google Drive'a Kaydedilir
İşlem, istenen aralığın "ekran görüntüsünü" almayı, bunu bir resim biçimine dönüştürmeyi (genellikle önce PNG, gerekirse daha sonra JPG, ancak PNG genellikle iyi desteklenir) ve ardından bu resmi...
Selamlar herkese,
Excelde bir dosyam var sizin destekleriniz ile makro yazılmıştı. Belli bir hücredeki isim ile aynı isme sahip bilgisayarda belirttiğim klasör içinde bulunan resimleri excele bir buton sayesınde çağırabiliyorum. Herşey süper istediğim hücre içine tam oturuyor vs ama daha sonra...
Herkese merhabalar.. Aşağıdaki kod ile dosya içerisinde sayfa1 isimli sayfada bulunan fotoğrafı dışarıya aktaramıyorum.
Aslında daha doğrusu şöyle makroyu adım adım oynattığım zaman .Export Dosya alanınını işleyince aktarıyor ancak makroyu hızlı çalıştırdığı zaman aktaramıyorum.
Acaba nasıl bir...
Revize kodlar.
Sub DosyalariTariheGoreTasima()
Dim fd As FileDialog
Dim klasorYolu As String
Dim dosyaAdi As String
Dim dosyaYolu As String
Dim hedefKlasor As String
Dim dosyaTarihi As String
Dim dosyaGunGun As String
Dim fso As Object
Dim yeniDosyaAdi As...
Merhaba,
Normal fotoğraf makinaları ile çekilmiş fotolar da EXIF meta bilgilerine göre Tarih bakılıyor
ama sanırım sizin fotolar normal foto değil
Dosya Değiştirilme tarihine göre taşıma sanırım işinize yarayabilir.
Yıl Yıl yapmisim siz Gün Gün ayarlarsiniz...
Sub DosyalariTariheGoreTasima()...
Merhabalar,
Bir klasör içindeki kapalı excel dosyalarının içindeki verileri aşağıdaki kodlarla birleştiriyorum. Sorunum bu kapalı dosyalarının her birinde J3 hücresinde firmaların logoları bulunmakta.(resim formatında)
Ben bu logolarıda getirmek istiyorum.
Konu hakkında yardımcı olursanız...
Merhaba değerli hocalarımız,
C:\Users\hakki\Desktop\ana klasör\resim.jpg
Üstteki dizin adresindeki, en sondaki resim.jpg'yi alacak formül oluşturabilir miyiz?
Hatta eğer yapılabiliyorsa hem formül hem de makrolu halini denemek isterim.
Veriler A sütununda ve A2'den itibaren başlıyor...
Merhaba,
Mağza (AVM, Belediye... ) isimlerinin olduğu Klasörlerin için de
Aday veya Aktif veya Pasif ismin de Resim dosyaları var
B sütünün da Mağza isimleri var
Sonuçları H hücresinde görmek istiyorsunuz.
Doğru anladıysam.
Private Sub Worksheet_Change(ByVal Target As Range)
' Eğer...
Merhaba,
PdfVBALib.dll ile çözümü
Private Sub CopyPictureToUserForm_Click()
Dim ParcaFolder As String
Dim PdfFile As Variant
ParcaFolder = Environ("TEMP") & "\PDFaraclar"
PdfFile = Environ("TEMP") & "\PDFaraclar\TempPdf.pdf"
' Geçici klasör varsa içini boşalt, yoksa...
form da resim klasör içinde jpg uzantılı dosya adını yazınca geliyor 1234.jpg olarak 2 saatimi aldı daha hala bulamadım resim sol hücreye eklemeyi yardımlarınızı bekliyorum ustadlar.
Merhaba;
Alternatif:
masaüstüne (Yada Bu dosyanın bulunduğu yerde) resim adlı bir klasör açın.
Sayfalarda 1. satırdaki mavi alanlara resim adı yazarak deneyin.
İyi çalışmalar.
Merhaba arkadaşlar.
Burada tam olarak ne yapmak istediğimi anlatamam diye ekte gönderdiğim resim üzerinde anlatmaya çalıştım. Yardımcı olursanız çok sevinirim.
Merhaba,
Excelde bir hücreye buton yardımı ile tıkladığımda açıklama eklesin istiyorum. Fakat butona bastığımda bir klasör açılsın bu klasör içindeki resimlerden birini seçip onayladığımda açıklamada bu resim gözüksün istiyorum.
internette araştırdığımda " Comment.Shape.Fill.UserPicture " bu...
Merhaba arkadaşlar,
Bir klasörü tarayıp içerisindeki tüm dosyaları listeledikten sonra içerisinde belli bir isim geçen dosyaların silinmesini mümkün kılan bir makro mevcut mu?
Örneğin klasör içinde binlerce resim dosyası mevcut ama ben bunların içerisinden sadece isminde bir yerde "thumb"...
kodu sayfanın kod bölümüne yapıştır
5. satıra işlem yapınca kod çalışacaktır.
not: kodun çalışması için dosyanın yanında Resimler klasörü olmalı ve resimlerde bu klasörün içinde olmalı
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target.Rows, [5:5]) Is Nothing Then Exit Sub...
Merhaba arkadaşlar.
Şunu yapmak mümkün mü? (Gerçi işin uzmanlarına mümkün olmayan bir excel işlemi yok gibi :)
Çalışma kitabımda kodu çalıştırdığımda dosya seçme yolu açılacak. Ben aradığım klasör içerisindeki resim formatındaki veriyi seçtiğimde, resmin adını belirlediğim hücreye yazacak...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.