Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

Excel VBA kodlamaları ile yapılmış örnek dosyaları burdan izleyebilir ve paylaşabilirsiniz.

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#1)  Tarkan VURAL » 15 Ekm 2008 20:50

Forumda sorulan bir soruya karşılık bir örnek dosya hazırladım.
Dosyada 3 adet UserForm var

Bütün olay UserForm1 üzerinde dönüyor.
UserForm1 'i açtığınızda ComboBox' tan bir kişi adı seçiyorsunuz ve bu kişinin veri detayları ile resmini görebiliyorsunuz. Personel tabloları kullan üyelerimize faydalı bir kayn olacağına eminim. Yeni kişi eklerken verileri girdikten sonra Kaydet tıkladığınızda kişiye resim ataması yapabilmek için bir pencere açılıyor ve bu pencereden eklemek istediğiniz remi seçiyorsunuz. İlgili resim UserForm2 üzerinde depolanıyor. Böylece dosyanızı nereye taşırsanız taşıyın, kayıt edilmiş kişilerin resimlerini her defasında LoadPicture sorunu yaşamadan görüntüleyebiliyorsunuz.

Kullanımı :

Makrolarınız etkin ise dosyayı açın, UserForm ( ana çalışma formu ) ile karşılaşacaksınız. Burda Combodan isim seçip bul tıklayın, kişi verileri ile birlikte resmi de görüntülenecek.
Yeni kişi eklemek için Combobox'a kişi adını yazın ve diğer bilgilerini de doldurduktan sonra kaydet tuşuna basın. Diğer bilgileri yazmazsanız Kaydet tuşuna bassanız dahi işlem devam etmeyecek, eksik verileri girmeniz beklenecektir.
Eksik veri olmadığına emin olduğunuzda Kaydet tuşuna bastığınızda bilgisayarınızın dosya aç penceresi açılacak ve kodlarda tanımlı dosya türleri olan resim dosyaları ( klasör içinde var ise ) görüntülenecek. Bir resmi seçtikten sonra ya çift tıklatın ya da pencerenin sağ alt köşesindeki aç tuşuna basın. İlgili resim artık UserForm2 üzerine kodla eklenmiş olan bir image nesnesinin picture ' ı oldu ve UserForm1 üzerinde görüntülendi.

Bu soruyu soran sayın skat adlı üyemize bizi bu projede geliştirmeye teşvik ettiği için teşekkür ediyorum.

İlgili Dosyayayı indirdiğinizde bilgisayarınızdaki herhangi bir yere klasör olarak açınız, Excel dosyasını çalıştırınz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27421
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#2)  skat » 15 Ekm 2008 23:45

Sayın Tarkan VURAL Hocam;
Verdiğiniz örnek gerçekten benim için çok değerli ve önemli
çünkü emek ve ilgi var teşekkür ederim.Elimde 8000 personelin resmi ve bilgileri var
bilgileri girdim fakat resimleri kaydetmemiştim bu örnekte tam istediğim gibi.
Birde kayıt edeceğim resimlerin bayotları önemlimi acaba
Allah Razı Olsun
Kullanıcı avatarı
skat
Siteye Alışmış
 
Adı Soyadı:SITKI YAĞCI
Kayıt: 15 Haz 2008 00:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 46
İleti: 231
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kdz.Ereğli

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#3)  Tarkan VURAL » 15 Ekm 2008 23:58

Yazmayı atlamışım :) Bu örnekte bilgiler var ama resim yoksa Bul tuşu ile verileri alıp sonrasında Resim Yükle Tuşu ile mevcut verilere resim de ekleyebiliyorsunuz.

Resim boyutları oldukça önemli. Aslında 8000 personel çok fazla. Durum böyle olunca boyut çok daha önem kazanıyor.
Kabaca bir hesap yapalım :
Her resmin boyutu 1 kb bile olsa 8000 resim demek 8 mb demek olur. Resmin çözünürlüğü ve boyutu da göz önüne alındığında bir resmin olması gereken boyutu tahminen 10kb gibidir. 10 x 8000 = 80.000
80.000 kb / 1000 kb = 80 mb gibi devasa bir dosya oluşturmanıza sebep olur.

Bu kadar çok personel resminiz var ise en mantıklısı LoadPicture yöntemini kullanmaktır ve gereksiz yere dosyanız şişmemiş olur.

Ama siz yine de bu UserForm üzerine resim gömme yöntemini kullanacağım diyorsanız, o zaman resimlerin boyutunu oldukça ufaltın en azından 10-15 mb lık bir dosyanız olur. Bu da biraz yavaş açılıp kapanır, geç kaydeder ama çözüm yoksa elden gelen bir şey de yoktur. :)

İki seçeneğiniz var, ya dosyanız büyük olacak ya da resimleri ayrı bir yerden alacaksınız.

İyi çalışmalar.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27421
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#4)  skat » 16 Ekm 2008 20:03

Tarkan VURAl Bey
Gerçekten çok teşekkür ederim
Allah yolunuzu açık etsin
Kullanıcı avatarı
skat
Siteye Alışmış
 
Adı Soyadı:SITKI YAĞCI
Kayıt: 15 Haz 2008 00:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 46
İleti: 231
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kdz.Ereğli

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#5)  aliosman » 13 Arl 2008 17:40

Süper bir dosya ve özellikle resim seçebilip ekleyebilmek harika.
Teşekkürler.
Kullanıcı avatarı
aliosman
İstenmeyen Üye
 
Adı Soyadı:ramazan vardar
Kayıt: 13 Arl 2008 16:38
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: taksim

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#6)  levo » 16 Arl 2008 02:21

tarkan vural bey ben aslında veri tabanından anlamıyorum ama bu göndermis oldugunuz ekte adı soyadı görevi konumu yazıyo resımlerıde bende eklemıyo tıme error verıyo artı ben bunlara nasıl ekleme yapabılırım mesela dogum tarıhını ve adresını felan eklemek kaldırmayı nasıl yapabılıcegımı soylermısınız. Simdiden teşekür ederim
Kullanıcı avatarı
levo
Yeni Başlamış
 
Adı Soyadı:levent erdoğan
Kayıt: 16 Arl 2008 01:10
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#7)  Tarkan VURAL » 16 Arl 2008 08:45

Merhaba, sitemize hoş geldiniz.
Kapalı dosya içerisine veri yazmak, silmek, değiştirmek anlamında veritabanı yönetimi demek istiyorsanız; Excel ve Veritabanı işlemleri başlığımızda onlarca örnek işlendi. Bunlardan faydalanabilir, nasıl teknikler kullanıldığını öğrenebilirsiniz. Takıldığınız noktalarda sorularınızı yazın destek olalım.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27421
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#8)  levo » 16 Arl 2008 20:20

teşekürler peki ben sizden bişey rica etsem bana o ekte gönderdiğiniz gibi adı soyadı seklinde ben söylesem hazırlarmısınız ben gerçekten anlamıyorum ya yapamıyorum yani bana yardimci olurmusunuz ? yapamazsanızda teşekürler...
Kullanıcı avatarı
levo
Yeni Başlamış
 
Adı Soyadı:levent erdoğan
Kayıt: 16 Arl 2008 01:10
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#9)  Erhan Yavuz » 16 Arl 2008 20:33

Tarkan ben bunu atlamadım ama Teşekkür etmeyi unutmuşum sana... çok güzel Fikir verdin bana... [TESEKKÜR]
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 62
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#10)  Tarkan VURAL » 16 Arl 2008 22:08

levo yazdı:teşekürler peki ben sizden bişey rica etsem bana o ekte gönderdiğiniz gibi adı soyadı seklinde ben söylesem hazırlarmısınız ben gerçekten anlamıyorum ya yapamıyorum yani bana yardimci olurmusunuz ? yapamazsanızda teşekürler...


Ne gibi bir şey hazırlamak istediğinizi bildirin, örneğinizi ekleyin geliştirmenizde yardımcı oluruz tabii.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27421
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#11)  levo » 17 Arl 2008 14:06

çok teşekkür ederim saolun benim istegim kriterler adını soyadını adresi telefonu mail adresi eklemek istiyorum..resim eklemek istemiyorum ... şimdiden çok teşekürler gerçekten çok işime yarıycak ellerinize sağlık..
Kullanıcı avatarı
levo
Yeni Başlamış
 
Adı Soyadı:levent erdoğan
Kayıt: 16 Arl 2008 01:10
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#12)  Tarkan VURAL » 17 Arl 2008 14:18

Bununla ilgili çok örnek var ama, yeniden mi yapalım.?
Örnekleri inceler misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27421
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#13)  levo » 17 Arl 2008 14:45

bununla ilgili örnekler derken tam verdiğim sekilde varsa eklermisiniz ben yapamıyorum onun için rica ettim anlamıyorum ......
Kullanıcı avatarı
levo
Yeni Başlamış
 
Adı Soyadı:levent erdoğan
Kayıt: 16 Arl 2008 01:10
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#14)  Tarkan VURAL » 17 Arl 2008 14:49

İncelediniz mi daha önce ?
viewtopic.php?f=38&t=151
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27421
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#15)  levo » 17 Arl 2008 14:59

tarkan bey ben aslında niçin istediğimi söyleyim ben bişirkette kişi bilgilerini giricem birçok kişi bunun için bana verdiler programı kendin hazırla dediler bende bilmiyorum nasıl yazılıcagı hakkında hiçbir bilgim yok dediğim gibi "adi ,soyadı, telofonu, mail adresi, adresi,bu sekilde istiyorum bana hazırlabilirmisniz çok mu şey istiyorum
Kullanıcı avatarı
levo
Yeni Başlamış
 
Adı Soyadı:levent erdoğan
Kayıt: 16 Arl 2008 01:10
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#16)  Tarkan VURAL » 17 Arl 2008 15:05

Excelde alt alta yazmanız yetmiyor mu ?
Program mı yaz dediler size ?
Anlayamadım ama [ilginc]
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27421
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#17)  levo » 17 Arl 2008 15:18

siz göndermiştiniz ya hatırlamıyomusunuz adı soyadı görevi konumu resim ekle seklinde bende bu sekilde bi excelde makro hazırlamak ıstıyorum ama bılmedıgım ıcın yapamıyorum onun ıcın ıstedım sızden adı soyadı mail adresi telefon adresi seklinde istıyorum....
Kullanıcı avatarı
levo
Yeni Başlamış
 
Adı Soyadı:levent erdoğan
Kayıt: 16 Arl 2008 01:10
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#18)  Tarkan VURAL » 17 Arl 2008 15:45

Bu olur mu ?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27421
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#19)  levo » 17 Arl 2008 15:58

bide adres olursa cok sevınırım lütfen cok tesekur ederım allah razı olsun
Kullanıcı avatarı
levo
Yeni Başlamış
 
Adı Soyadı:levent erdoğan
Kayıt: 16 Arl 2008 01:10
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ekle

İleti#20)  levo » 17 Arl 2008 15:59

resimi butonunu kaldırabılırmısın
Kullanıcı avatarı
levo
Yeni Başlamış
 
Adı Soyadı:levent erdoğan
Kayıt: 16 Arl 2008 01:10
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Sonraki

Forum Örnek Dosyalar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe