Klasördeki Resimleri Excel Sayfasına Otomatik Alma

[rızay]

Merhaba arkadaşlar,
Hepinize en derin sevgilerimle,
Benim siz yönetici ve site kullanıcı arkadaşlara sorum şu: Ekte gönderdiğim dosyada 1-visual basic kodu ile fotoğrafları excel sayfasına otomatik almak istiyorum.2- Combobox tekli makrosuna basmadan açılır kutu çalışsın istiyorum.Yani açılır kutudan bunu halletmek istiyorum.Çok acil yardımcı olacaklara şimdiden teşekkür ediyorum.Dosya ekliyorum.Resimlerin bulunduğu Klasör D:\APer_Memur\Resim_Mem\tckimlikno.jpg

 

[Merhum İdris SERDAR]

.

Buradaki örnekleri inceleyiniz:

http://www.excel.web.tr/f136/personel-bilgileri-resimli-3-rnek-dosya-t22790.html

.

 

[rızay]

Merhaba Yurttaş bey cevabın için çok teşekkür ederim.
Sizden Allah razı olsun.Ben yapamadım eklediğim dosyada siz yapar mısınız?
İşyerinde lazım oldu. Çok sağolun.

 

[rızay]

Merhaba Yurttaş Bey ve Diğer site yöneticisi uzman arkadaşlar.
Ben yapamadım herhalde kodda döngü kullanılacak. Yukarıda eklediğim dosyaya kod sayfasına ekleyerek gönderir misiniz?.Bu konuyu bilen yokmu? yardımcı arkadaşlara teşekkür ederim. Fotoğrafları tabloya getirmek istiyorum.Selamlar hepinize bekliyorum.Diğer bölümlere baktım halledemedim.Eklediğim dosyada yapıp göndermenizi rica ediyorum.

 

[Korhan Ayhan]

Merhaba,

ComboBox1 nesnesine ait kodu aşağıdaki şekilde değiştirip deneyiniz.

Yani TANITIM sayfa adı üzerinde sağ klik yapın ve "Kod görüntüle" seçeneğini seçin. Açılan penceredeki kodu silip benim verdiğim kodu uygulayın.

Option Explicit
 
Private Sub ComboBox1_Change()
    Dim ts, kaplan, yol, resim
 
    Application.ScreenUpdating = False
 
    Range("B9,A11:F65536").ClearContents
    Range("A11:A65536").RowHeight = 45
    kaplan = 11
    yol = "D:\APersonel\Resim\"
 
    For Each resim In ActiveSheet.Shapes
       If resim.Type = msoPicture Then resim.Delete
    Next
 
    For ts = 2 To Sheets("DATABASE").Cells(65536, "F").End(xlUp).Row
        If Sheets("DATABASE").Cells(ts, "G") = ComboBox1.Value Then
            Cells(kaplan, "A") = Sheets("DATABASE").Cells(ts, "B")
            Cells(kaplan, "B") = Sheets("DATABASE").Cells(ts, "C")
            Cells(kaplan, "C") = Sheets("DATABASE").Cells(ts, "D")
            Cells(kaplan, "D") = Sheets("DATABASE").Cells(ts, "H")
            Cells(kaplan, "E") = Sheets("DATABASE").Cells(ts, "I")
            Cells(kaplan, "F") = Sheets("DATABASE").Cells(ts, "E")
            Cells(kaplan, "G").Select
 
            On Error Resume Next
            ActiveSheet.Pictures.Insert(yol & Cells(kaplan, "F") & ".jpg").Select
            With Selection
                .Top = Cells(kaplan, "G").Top
                .Left = Cells(kaplan, "G").Left
                .Width = Cells(kaplan, "G").Width
                .Height = Cells(kaplan, "G").Height
            End With
            On Error GoTo 0
 
            Range("B9") = ComboBox1
            Range("B9").Select
            kaplan = kaplan + 1
        End If
    Next
 
    Application.ScreenUpdating = True
End Sub

 

[rızay]

Merhaba Korhan bey size çok teşekkür ederim.
Size ne kadar teşekkür etsem azdır.Gecenin o saatinde cevap verdiğiniz için.Gönderdiğim dosyada çalıştı.
Size ayrıca bu dosya için şunu sormak istiyorum: Burada hiç makro kullanmadan(teklik adlı makro) dosyayı ilk açtığımda ilk makroyu tıklamam gerekiyor,tıklamasam Combobox(açılır kutu ) çalışmıyor.Sadece Combobox' u(açılır kutuyu ) seçtiğimde, tabloya ilgili verileri fotoğraflar ile birlikte eklesin istiyorum. Yani iki ayrı iş yapmadan makroyu tıklamadan açılır kutu ile bunu yapmak istiyorum.Lütfen kodlarda dosyada yapıp bana gönderirseniz çok memnun olurum.Selamlar,Sağ olun var olun.İyiki varsınız.

 

[rızay]

Merhaba Korhan Bey,
Yukarıda dosya için sorduğum son soruya cevap alamadım.Cevaplarsanız çok memnun olurum.Makro kullanmadan sayfadaki Combobox dan yapmak istiyorum.Diğer hepsi tamam sağ olun.Hayırlı akşamlar.Allah sizden razı olsun.