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

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...

Eyvallah hocam eline sağlık. Ben cevap gelmeyince umudu kesmiştim sonra çözümü başka taraftan halletmiştim. Bu koduda deneyeceğim. Emeğine sağlık

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...

Sub resim_71() Son = 3 ReDim uzanti(Son) 'uzanti(1) = ".bmp" uzanti(2) = ".jpg" 'uzanti(3) = ".gif" With Application .DisplayAlerts = False: .ScreenUpdating = False: .Calculation = xlCalculationAutomatic End With Klasor = "H:\Resimler\" Set fso = CreateObject("Scripting.FileSystemObject") For...

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...

Private Sub Worksheet_Change(ByVal Target As Range) son = 3 ReDim uzanti(son) uzanti(1) = ".png" uzanti(2) = ".jpg" uzanti(3) = ".gif" With Application .DisplayAlerts = False: .ScreenUpdating = False: .Calculation = xlCalculationAutomatic End With Sheets("LİSTE").Pictures.Delete Klasor =...

@halit3 Bey Merhaba, Nasılsınız umarım iyisinizdir. Geçen yıl destek verip yardımcı olduğunuz ve ortaya çok güzel bir çalışma çıkarttığınız sizler için küçük fakat bizim için önemli ve zaman konusunda bizleri oldukca tasarruf ettiren resim birleştirme makrosu konusunda sizlerin tekrardan...

Merhaba, Excel dosyasının bulunduğu Aktif klasör içerisinde “Resimlerim1” klasörü olduğunu varsayalım. Resimlerim klasörü içerisinde bulunan resimlerden (jpg) ismini yazdığım resmi istediğim herhangi bir excel hücresine mevcut hücre genişliğine uyacak şekilde getirmek istiyorum. Bu işlemi...