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

Klasor = ThisWorkbook.Path & "\" klasör yolunu bu şekilde değiştiriniz. resimlerle excel dosyası stoklar klasörünün içinde olacak. Bu şekilde stoklar klasörünü hangi bilgisayara atarsanız atın çalışacaktır. Resimlerin üst üste gelmesi olayınde ben kendi pc de denediğim böyle sorun vermiyor...

Sayın metin_0606 ilginize teşekkür ederim. Dosya yolunu uyarlayınca kodlar çalıştı. Ancak Dosya değişik bilgisayarlarda kullanılacağı için sabit dosya yolu yerine excel dosyasının bulunduğu klasördeki STOKLAR isimli klasörden almalı. Bunun için klasör yolu nasıl tanımlanmalı. Bir de sizin...

Deneyiniz Klasör yolunu kendinize göre uyarlayınız 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...

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Resim As OLEObject, Yeni_Resim As OLEObject, Resim_Adres As Range, Yol As String, Resim_Adı As String If Intersect(Target, [B12]) Is Nothing Then Exit Sub ' hedef B12 hücresi değilse çık...

Merhaba değerli forum kullanıcıları İlgili problemim hakkında bulunan kaynaklardan yararlanamadığım için sizlerden problemime çözüm bulmanızı rica ederim. B sütunundaki ürün kodlarının karşılığı olan ilgili klasördeki fotoğrafları A sütununa makro ile çekmek istiyorum.Aynı zamanda resimlerin...

Merhabalar, Excel kitabınızın olduğu yere bir tane ÜRÜNLER klasörü açın ( klasör adı büyük harf ve türkçe karakter olmalı) ve resimleri ÜRÜNLER klasörünün içine atın. Ayrıca klasörde RESİM YOK isimli resim olmalı (ekteki resim gibi) ve alttaki kodları Userformun içine kaydedin. Dikkat...

Kullanılan kod; Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Resim As OLEObject, Yeni_Resim As OLEObject, Resim_Adres As Range, Yol As String, Resim_Adı As String If Intersect(Target, [D:D]) Is Nothing Then Exit Sub If Target = "" Then Exit Sub...

Öncelikle bu resimlerin her birini ayrı olarak bir klasör içinde saklamanız gerekecektir. bu görselleri, Excel dosyasının bulunduğu klasör içine Resim adında bir klasör açarak, resim dosyalarını Liste kutusunda yazan şekliyle isimlendirmeniz gerekecek. sonra Hikaye adındaki Form içerisine...

Hocam ilginiz için teşekkür ederim. Köprüleme de yapabilir miyiz. Sonrasında artık bu geliştirmeye uygun bir yapı oldu. Zamanı olan ilgilenebilecek ustalar için mümkünse bir iki rica da bulunmak istiyorum. Örneğin listelemenin bir üst satında, yine klasör ve dosya yapısı sabit kalmak...

İdris hocam merhaba benim eklemeye çalıştığım resim userform üzerinde bulunan image nesnesi. Eklemek isrediğim resmi excel dosyası içinden değil klasör içinden alıp yapıştıracak.

Numan Hocam Günaydın Hayırlı Sabahlar; Hocam Mesaj 24 deki çalışmanızı indirdim bugün nasip oldu denemek. Elinize sağlık çok güzel bir çalışma oldu. Ağ üzerinden veri çekme de kusursuz çalışıyor. Şöyleki örneğin Elif listesinde belirli bir aralığı süzmüş o şekil de çalışmasını kapatmış. Ağ...

Hocam bunun cevabını şöyle vereyim bu evimdeki bilgisayar ve size iki resim atıyorum. biri adres satırı diğeri adres satırı yok ismiyle. Evde sizin kodlardan AĞ ı görebiliyorum ancak kurumda merkezden bazı kısıtlamalar olduğu için AĞ bağlantısı simgesini masaüstüne getiremiyoruz ve ona müdahele...

textbox isimleri Textbox8, Textbox9 Textbox10 Textbox11 Textbox12 Textbox13 şeklinde Ayrıca sabitler B3 de belirtilen yolDa klasor yok diye mailden sonra dosyalari atmıyor. https://www.dosyaupload.com/ftNT resim https://www.dosyaupload.com/75w0 video

Daha öncesinde sitemiz üzerinden Ömer hocamın yardımları ile bir Saha Takip programı hazırlamıştım. Yeni bir iş ve olmayan zaman nedeni ile programı tamamlayamadım. Sizden bir konu hakkında yardım rica ediyorum. Ekli klasör içerisinde "Referans_Kod" isimli bir klasör bulunuyor. "Saha_Takip_BRN3"...

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B2:B1000")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If Target <> "" Then Dim Resim, adress, ResimAdi, Sayfa, Dosya, Yol Application.ScreenUpdating =...

Cevaplarınız çok yardımcı oldu teşekkür ederim. Bir sorum daha olacaktı resim çağırma kodunda resimler ilgili excel ile aynı dizinde olunca görünüyor. Aynı klasör içinde(index kısmı) resimlerin /resimler klasörü içinden çağrılmasını nasıl sağlayabilirim ?

İki ayrı program ile binlerce fotoğraf içinden belirlenen fotoğrafların belirlenen bir klasöre kopyalanmasını sağlar. Fotoğrafçılar çekimler sırasında oluşan 1000 lerce resimi müşteriye gönderir. Müşteri bu resimlerden belirlenen adet kadar seçim yapar ve bu resimleri bir klasöre kopyalar. Daha...

Sayın plint hocam Benim getirdigim fotolar TC kimlik numarasına göre isimlendirilmiş

Merhaba Kodlarınız; "else" satırından önce; "Foto" adlı klasörü hücredeki ismin fotoğrafı varmı diye kontrol ediyor varsa getiriyor, eğer yoksa "d.jpg" diye bir resmi getiriyor ek teki örnek dosya gibi resmi olamayanın karşısına siyah resim gelecektir https://www.dosyaupload.com/bawr...

aşağıdaki makro ile 4000 personelin resimlerini çalışma sayfama 4 dk da getirtiyorum acaba bu makro revize edilerek süre dahada kısaltılabilirmi. Yardımlarınız için şimdiden teşekkürler Sub resim_71() Son = 3 ReDim uzanti(Son) uzanti(1) = ".bmp" uzanti(2) = ".jpg" uzanti(3) = ".gif" With...