Fotoğraflı Personel Listesi (Aynı Sayfada)

vincevince · 26 Şubat 2013

Arkadaşlar merhaba;
nerdeyse bütün sayfaları formu inceledim ama istediğim şeyin yapıldığı bir örnek ve çözüm bulamadım.

İstediğim dosyayı ekledim. Yapmak istediğim şey şu.

800 tane personelin olduğu bir işyeri var ve personelin fotoğrafları sicil numarası ile tamamı kayıtlı.

Şimdi yapmak istediğim şey 800 personelin bilgilerinin bulunduğu sayfada bütün personelin fotoğraflarının bulunması. Tek tek fotoğrafları excele aktarmam çok zor ve meşakkatli olacağı için image nesneden faydalanmayı düşündüm.

Sonuç olarak filtreleme kullanarak istediğim kriterdeki personelin fotoğraflarıyla beraber gözükmesini istiyorum. Ama bunu başaramadım.

ikinci ve diğer nesnelere bir türlü resimleri çekemedim. çekebilsem bile FİLTRELEME yaptığımda fotolar üst üste geliyor birbirlerini engelliyor.

örnek dosyayı ekledim.

Yardımlarınız için şimdiden teşekkür ederim.

muygun · 26 Şubat 2013

Merhaba;
Açıklama sayfasını okuyup FORM sayfasını deneyin.
İyi çalışmalar.

Necdet · 26 Şubat 2013

Merhaba,

Resimlerin seçip özellikler bölümünden hücrelerle taşı ve boyutlandır dediğinizde süzme işleminde sıkıntı oluşturmuyor.

Paylaşayım dedim.

vincevince · 27 Şubat 2013

muygun' Alıntı:
Merhaba;
Açıklama sayfasını okuyup FORM sayfasını deneyin.
İyi çalışmalar.

dostum çok teşekkür ederim emeğine sağlık. Yalnız şöyle bir sorun var.
Yeni foto eklediğimde, yolunu v.s. yazdıktan sonra ilgili hücrelere N1 hücresine tıklatıyorum tüm fotoları (yeni eklediklerimde dahil olmak üzere) b2-b3 hücresi arasında bir yerde üst üste topluyor.

Herhangi bir foto eklemeden önce hali hazırdaki senin gönderdiğin dosyada da aynı şekilde N1 hücresine tıklattığımda da aynı sonuç oluyor. Tüm fotoları b2 ile b3 hücresi arasında üst üste topluyor.

Necdet Yeşertener' Alıntı:
Merhaba,

Resimlerin seçip özellikler bölümünden hücrelerle taşı ve boyutlandır dediğinizde süzme işleminde sıkıntı oluşturmuyor.

Paylaşayım dedim.

Dostum dediğini yaptım evet filtreleme yaptığımızda üst üste toplamıyor fotoğrafları. Yalnız @muygun nun yapmış olduğu sistemde ufak bir sorun var onuda aşabilirsek çok şahane olacak. Fotoları kilitlesem bile yeni foto eklediğimde yada N1 hücresine tıklattığımda bütün resimleri ilgili yerlerden alıp b2-b3 hücresinde topluyor.

muygun · 27 Şubat 2013

Merhaba;
1-Otomatik süz seçeneklerinin tamamını pasif (tümü) yapın.
2-gerekli eklemelerinizi yapın.
3-çift tıklayarak resimleri yenileyin.
Sonra istediğiniz şekilde süz yaparak deneyin.
Eğer hala istediğiniz sonucu alamadıysanız hangi sütunları hangi kritere göre süzdüğünüzü yazın. Başka bir çözüm bulmaya çalışalım.
İyi çalışmalar.

vincevince · 27 Şubat 2013

muygun' Alıntı:
Merhaba;
1-Otomatik süz seçeneklerinin tamamını pasif (tümü) yapın.
2-gerekli eklemelerinizi yapın.
3-çift tıklayarak resimleri yenileyin.
Sonra istediğiniz şekilde süz yaparak deneyin.
Eğer hala istediğiniz sonucu alamadıysanız hangi sütunları hangi kritere göre süzdüğünüzü yazın. Başka bir çözüm bulmaya çalışalım.
İyi çalışmalar.

herhangi bir süzme yapmadan hatta filtrelemeyi de kaldırarak. n1 hücresine tıklatıyorum bütün fotoğrafları b2-b3 hücresinde topluyor.

Yeni fotoğraf eklediğimde de aynı sonuç oluyor. sorun süz ile alakalı değil zannedersem.

Yani sizin eklediğiniz dosyada herhangi bir değişiklik dahi yapmadan N1 ' hücresine tıklattığımda da aynı sonuç oluyor

muygun · 27 Şubat 2013

Merhaba;
İlginç bir durum (bende sorunsuz çalışıyor.)
Çok farklı olmasada birde bu eki deneyin. (süzme kriterini kullanın ve çift tıklayın)
Ama ofis 2007 ile ilgili bir sorun ise onu bilemem (ben 2003 kullanıyorum)

Eğer imkanınız varsa Ofis 2003 kurulu bir bilgisayarda deneme yapın.
İyi çalışmalar.

vincevince · 27 Şubat 2013

muygun' Alıntı:
Merhaba;
İlginç bir durum (bende sorunsuz çalışıyor.)
Çok farklı olmasada birde bu eki deneyin. (süzme kriterini kullanın ve çift tıklayın)
Ama ofis 2007 ile ilgili bir sorun ise onu bilemem (ben 2003 kullanıyorum)

Eğer imkanınız varsa Ofis 2003 kurulu bir bilgisayarda deneme yapın.
İyi çalışmalar.

evet denedim. gerçekten dediğiniz gibi sürümle alakalı. 2003 te çalışıyor 2007 de çalışmıyor. Olsaydı güzel olurdu ama yinede emeğinize sağlık gerçekten çok işime yaradı şu haliyle dahi.
Vakit ayırıp ilgilendiğiniz için teşekkür ederim.

cengizank · 27 Şubat 2013

Fotoğraflı personel listesiyle ilgili olarak sayfanın sol üst köşesine

1 resim(images) ekleyip.

Resimin alttaki hücrenin üst kısmını kaymasınıda engelleyerek.

Kayıtların üzerinde gezdikçe kişi resmi gelsin ki dosyanızın boyutu artmasın.

Dosyanızın bulunduğu klasörün için \resimler diye klasör oluşturun.

kişi resimlerinin isimlerinide T.C. kimlik numarası verin.

Tavsiye olarak.

vincevince · 27 Şubat 2013

cengizank' Alıntı:
Fotoğraflı personel listesiyle ilgili olarak sayfanın sol üst köşesine

1 resim(images) ekleyip.

Resimin alttaki hücrenin üst kısmını kaymasınıda engelleyerek.

Kayıtların üzerinde gezdikçe kişi resmi gelsin ki dosyanızın boyutu artmasın.

Dosyanızın bulunduğu klasörün için \resimler diye klasör oluşturun.

kişi resimlerinin isimlerinide T.C. kimlik numarası verin.

Tavsiye olarak.

en son @muygun'un göndermiş olduğu dosya üzerinde yaparak gösterebilir misiniz? tam olarak anlayamadım nasıl yapılacağını.
resim dosyaları sicil numarası olarak şuanda hazır zaten 800 kişinin. sicilde sabit değişken oyüzden işimizi görüyor. Ama dediğiniz şeyde iyi olacak gibi uygulamalı gösterirseniz sevinirim.

cengizank · 27 Şubat 2013

yarin bir örnek eklemeye çalışacağım

vincevince · 27 Şubat 2013

cengizank' Alıntı:
yarin bir örnek eklemeye çalışacağım

eyvallah teşekkür ederim dostum bekliyorum.

cengizank · 28 Şubat 2013

Excel sayfasında form üzerinde,
Ayrıyeten kayıtlar üzerinde gezdiğinde o kayda ait resim geliyor.

- Kişilere ait resimler JPG formatında olacak,
- Resim isimleri T.C. Kimlik nosu veya Sicil Nosu yaz.

Takıldığın yer olursa sorabilirsin.

VB kodu

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Err GoTo sonhata1

Dim sut As Integer
Dim sat As Integer
Dim a As Integer

 
sut = Selection.Cells.Column
sat = Selection.Cells.Row

  
    Image2.PictureSizeMode = fmPictureSizeModeStretch
    
    If IsError(Range("B" & sat).Value) Then
     Exit Sub
     End If

          If Dir$(ThisWorkbook.Path & "\perresim\" & Range("B" & sat).Value & ".jpg") = "" Then

        
             Image2.Visible = False
   
              Exit Sub
                  

                 
                  Else
                  Image2.Visible = True
                     Image2.Picture = LoadPicture(ThisWorkbook.Path & "\perresim\" & Range("B" & sat) & ".jpg")
        
                   End If
  

    Exit Sub
sonhata1:
   Exit Sub
    Resume
    


End Sub

vincevince · 28 Şubat 2013

Dostum bu tamda aradığım şey. Mükemmel ötesi.:hiho::hiho::bravo::bravo:

Yani fotoları ilgili klasöre atıyorum, sürücü klasör yolu belirtmeme dahi gerek kalmıyor. Aynı zamanda uygulama çok hızlı beklem v.s. yok.
hertürlü filtrelemeye rağmen sorunsuz çalışıyor.
Daha ne olsun. Çok teşekkür ederim emeğine sağlık.

Sadece senin değil ilgilenen diğer arkadaşlarada teşekkürler çok işime yaradı eyvallah.
Hiç bir eksiği yok takır takır çalışıyor.

cengizank' Alıntı:

Excel sayfasında form üzerinde,
Ayrıyeten kayıtlar üzerinde gezdiğinde o kayda ait resim geliyor.

- Kişilere ait resimler JPG formatında olacak,
- Resim isimleri T.C. Kimlik nosu veya Sicil Nosu yaz.

Takıldığın yer olursa sorabilirsin.

VB kodu

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Err GoTo sonhata1

Dim sut As Integer
Dim sat As Integer
Dim a As Integer

 
sut = Selection.Cells.Column
sat = Selection.Cells.Row

  
    Image2.PictureSizeMode = fmPictureSizeModeStretch
    
    If IsError(Range("B" & sat).Value) Then
     Exit Sub
     End If

          If Dir$(ThisWorkbook.Path & "\perresim\" & Range("B" & sat).Value & ".jpg") = "" Then

        
             Image2.Visible = False
   
              Exit Sub
                  

                 
                  Else
                  Image2.Visible = True
                     Image2.Picture = LoadPicture(ThisWorkbook.Path & "\perresim\" & Range("B" & sat) & ".jpg")
        
                   End If
  

    Exit Sub
sonhata1:
   Exit Sub
    Resume
    


End Sub

vincevince · 28 Şubat 2013

@cengizank dostum tek merak ettiğim şey şu.

Bu zamana kadar konulan örnek dosyalarda mutlaka fotoğrafın bulunduğu yolun değiştirilmesi düzeltilmesi gerekiyordu kullanılacak olan bilgisayara göre.

seninki ise perresim klasöründen otomatik olarak çekiyor. bu klasör ve dosya nerede olursa olsun. Bunu nasıl yapmayı başardın?

cengizank · 28 Şubat 2013

vincevince' Alıntı:
@cengizank dostum tek merak ettiğim şey şu.

Bu zamana kadar konulan örnek dosyalarda mutlaka fotoğrafın bulunduğu yolun değiştirilmesi düzeltilmesi gerekiyordu kullanılacak olan bilgisayara göre.

seninki ise perresim klasöründen otomatik olarak çekiyor. bu klasör ve dosya nerede olursa olsun. Bunu nasıl yapmayı başardın?

yukarıdaki koda

sat = Selection.Cells.Row hangi satır olduğunu bulan kod
Image2.Picture = LoadPicture(ThisWorkbook.Path & "\perresim\" & Range("B" & sat) & ".jpg") Then

ThisWorkbook.Path excel dosyanın bulunduğu klasörün yolunu buluyor

Range("B" & sat)

burada ise hangi hücrede adresine bakılacağını gösteriyor. yani B sütunu sat ise hangi satır olduğunu söylüyor yani B11 buradanda Value komutuda içerindeki değeri alarak T.C. kimlik no dosya ismi olarak belirtiyor sonra .jpg de dosya uzantısı olmuş oluyor

dosya yolunu bulan koddur. kısaca nereye koyarsan koy bulunduğu klasörde perresim klasörün içinden alır resimleri

vincevince · 28 Şubat 2013

süper konu içinde pek çok şey öğrendim

k::
üşenmeden tek tek anlattığın için ayrıca teşekkür ederim eyvallah dostum.

cengizank' Alıntı:
yukarıdaki koda

sat = Selection.Cells.Row hangi satır olduğunu bulan kod
Image2.Picture = LoadPicture(ThisWorkbook.Path & "\perresim\" & Range("B" & sat) & ".jpg") Then

ThisWorkbook.Path excel dosyanın bulunduğu klasörün yolunu buluyor

Range("B" & sat)

burada ise hangi hücrede adresine bakılacağını gösteriyor. yani B sütunu sat ise hangi satır olduğunu söylüyor yani B11 buradanda Value komutuda içerindeki değeri alarak T.C. kimlik no dosya ismi olarak belirtiyor sonra .jpg de dosya uzantısı olmuş oluyor

dosya yolunu bulan koddur. kısaca nereye koyarsan koy bulunduğu klasörde perresim klasörün içinden alır resimleri

Baggwell · 7 Aralık 2013

Mükemmel paylaşım, emeğinize sağlık, çok faydası dokundu

Bir de yaptığımız işlemleri geri alma (ctrl + z) aktif değil.

bunu engellemenizin nedenini öğrenebilirmiyim.

çünkü hata yaptığımda işlemi geri alamıyorum dosyayı kapatıp tekrar açmak zorunda kalıyorum

cengizank · 12 Ocak 2014

Baggwell' Alıntı:
Mükemmel paylaşım, emeğinize sağlık, çok faydası dokundu

Bir de yaptığımız işlemleri geri alma (ctrl + z) aktif değil.

bunu engellemenizin nedenini öğrenebilirmiyim.

çünkü hata yaptığımda işlemi geri alamıyorum dosyayı kapatıp tekrar açmak zorunda kalıyorum

her hangi bir engelleme yapmadım

ne işlem yaptınız ki geri alma işleminiz de sıkıntı var

makrolu işlemler Ctrl+Z çalışmaz

Temizkaya · 16 Ocak 2014

eline sağlıl güzel paylaşımm

Fotoğraflı Personel Listesi (Aynı Sayfada)

vincevince

Ekli dosyalar

muygun

Özel Üye

Ekli dosyalar

Necdet

Moderatör

vincevince

Ekli dosyalar

muygun

Özel Üye

vincevince

muygun

Özel Üye

Ekli dosyalar

vincevince

cengizank

vincevince

cengizank

vincevince

cengizank

Ekli dosyalar

vincevince

vincevince

cengizank

vincevince

Baggwell

cengizank

Temizkaya