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#21)  Tarkan VURAL » 17 Arl 2008 16:14

Linki inceler misiniz ?
viewtopic.php?f=78&t=1483
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: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

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

İleti#22)  levo » 17 Arl 2008 16:21

Çok teşekür ederim Vural bey 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#23)  ilkergul » 30 Arl 2008 01:58

Tarkan bey merhaba bu dosyada 200 resim kullanabilir miyim?
Kullanıcı avatarı
ilkergul
Yeni Başlamış
 
Adı Soyadı:ilker gül
Kayıt: 27 Ekm 2008 16:24
Konum: ne fark ederki sanalda sınır mı var
Meslek: Ziraat mühendisi
Yaş: 53
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/Nilüfer

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

İleti#24)  Tarkan VURAL » 30 Arl 2008 10:28

Kullanabilirsiniz. Ancak resim boyutlarının dosya boyutuna da etki edeceğini bilmelisiniz.
Küçük resimler seçmenizde fayda vardır.
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: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

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#25)  mebe » 22 Oca 2009 17:55

levo yazdı: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



Sayın Levent Bey,

ekteki dosya istediğinizin başka bir şekli umarım işinize yarar.


Saygılarımla,


Metin Besin
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
mebe
Yeni Başlamış
 
Adı Soyadı:Metin Besin
Kayıt: 01 Oca 2009 19:15
Konum: Antalya
Meslek: Ön Büro Müdürü
Yaş: 50
İleti: 72
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya / Manavgat

Cevap: Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ek

İleti#26)  exhelange » 24 Şub 2009 14:47

Selamlar calısmanız güzel olmusta bana daha basıt bisey lazım yardımcı olabilirmisiniz?
Kullanıcı avatarı
exhelange
 
Adı Soyadı:Burak YILMAZ
Kayıt: 25 Ekm 2008 14:18
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ADANA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Personel Bul, Resim Görüntüle , Yeni Kişi ve R

İleti#27)  Tarkan VURAL » 24 Şub 2009 14:50

exhelange yazdı:Selamlar calısmanız güzel olmusta bana daha basıt bisey lazım yardımcı olabilirmisiniz?


Yazım kurallarına dikkat ederseniz yardımcı olurum.
Forum kurallarını okumuyorsunuz, bari imzamdaki mesajda ne demek istediğimi okuyunuz.
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: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ek

İleti#28)  nuklay2003 » 28 Şub 2009 13:48

Sayin Vural
(almanca klaviyede yazildigi icin harflarda yanlisliklar vardir)

gonderdiginiz uygulama gercekten benim icin cok onemliydi, cünkü bölgemizde bulunan bir camii icin üye takip programisi yapiyordum, tek takildigim konuda ayne sizin forma gönderdiginiz bu uygulama oldugu icin benim isime cok yarayacak. ama bir sorunum var, burda (camimizde)yaklasik 350 üye oldugu icin herkesin resimini userforma yüklemek programin acilis, kapanis ve islem süresini cok yavaslatacaktir, bunun icin veritaban kismina link ekleyerek klasöre kayit edilen resimleri load picture komutuyla listboxta üye adini cift tiklayinca görünmesini saglamak mümkünmüdür. ben bunu excelvba.net aradim, maalesef bulamadim. bu konuda bana yardimci olabilrimisiniz. simdiden tesekürler.
Kullanıcı avatarı
nuklay2003
Yeni Başlamış
 
Adı Soyadı:gani yakup
Kayıt: 28 Şub 2009 02:18
Yaş: 46
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: salzburg

Cevap: Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ek

İleti#29)  Tarkan VURAL » 28 Şub 2009 14:20

Gani bey sitemize hoş geldiniz.

Sizin açıkladığınıza göre şekli biraz değiştirdim. Resim adları kişi adları ile eşit olmak kaydı ile sorunsuz çalışıyor.
Örneği inceleyiniz.
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: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ek

İleti#30)  nuklay2003 » 28 Şub 2009 17:15

Sayin Vural:
bu kadar hizli cevap göndermeniz cok sevindirici, inanin tam istedigim gibi olmus.
ben tabii ki sizin kadar makro kodlarinda hakim degilim, takildigim bazi yerler var, aciklayabilirseniz cok sevinirim. cünkü benim yaptigim userformda bul button yok, sadece listbox üzerinde cift tikalayarak textbox lara ve image bilgilerini cagiriyorum. bunun icin kullandiiginiz kod'u tam olarak nerye eklemem lazim. ben asagidaki sekilde yaptim gelmedi image kismi.
Kod: Tümünü seç
Private Sub ListBox1_DblClick(ByVal Cancel As Msforms.ReturnBoolean)

Dim s As Integer
Dim i As Integer
Dim bul As Range
Dim evn As Object
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.GetFolder(ThisWorkbook.Path)

s = WorksheetFunction.CountA(Sayfa1.Range("a:a"))
For Each Dosya In klasor.Files
    dosyaadi = Mid(Dosya.Name, 1, InStrRev(Dosya.Name, ".", -1, 1) - 1)
    If dosyaadi = Me.ListBox1.Text Then
    goster = ThisWorkbook.Path & "\" & Dosya.Name
    Me.Image1.Picture = LoadPicture(goster)
End If
Next

    For i = 0 To s - 2
If ListBox1.Selected(i) = True Then
    TextBox1.Text = Sayfa1.Range("A" & i + 2).Value
    TextBox2.Text = Sayfa1.Range("B" & i + 2).Value
    TextBox3.Text = Sayfa1.Range("C" & i + 2).Value
    TextBox4.Text = Sayfa1.Range("D" & i + 2).Value
    TextBox5.Text = Sayfa1.Range("E" & i + 2).Value
    If Sayfa1.Range("f" & i + 2).Value = "Bay" Then
        OptionButton1.Value = True
    Else
        OptionButton2.Value = True
    End If
    TextBox6.Text = Sayfa1.Range("g" & i + 2).Value
    TextBox7.Text = Sayfa1.Range("h" & i + 2).Value
    TextBox8.Text = Sayfa1.Range("i" & i + 2).Value
    TextBox9.Text = Sayfa1.Range("j" & i + 2).Value
    TextBox10.Text = Sayfa1.Range("k" & i + 2).Value
    TextBox11.Text = Sayfa1.Range("l" & i + 2).Value
    TextBox12.Text = Sayfa1.Range("m" & i + 2).Value
    Label5.Caption = Sayfa1.Range("n" & i + 2).Value
    Label6.Caption = Sayfa1.Range("o" & i + 2).Value
    Label7.Caption = Sayfa1.Range("p" & i + 2).Value
    TextBox19.Text = Sayfa1.Range("q" & i + 2).Value
    TextBox13.Text = Sayfa1.Range("r" & i + 2).Value
    TextBox14.Text = Sayfa1.Range("s" & i + 2).Value
    TextBox15.Text = Sayfa1.Range("t" & i + 2).Value
    TextBox16.Text = Sayfa1.Range("u" & i + 2).Value
    TextBox17.Text = Sayfa1.Range("v" & i + 2).Value
    TextBox18.Text = Sayfa1.Range("w" & i + 2).Value
    Label8.Caption = TextBox2 & " " & TextBox3
End If

Next i

End Sub
Kullanıcı avatarı
nuklay2003
Yeni Başlamış
 
Adı Soyadı:gani yakup
Kayıt: 28 Şub 2009 02:18
Yaş: 46
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: salzburg

Cevap: Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ek

İleti#31)  Tarkan VURAL » 01 Mar 2009 01:11

Kodlardan çözüme gitmek çok da kolay değil. Çalışmayı paylaşırsanız üzerinden örnekleme yapalı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: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

FORMU MİNİMİZE YAPMA

İleti#32)  ahmed_ummu » 15 Mar 2009 12:43

ARKADAŞLAR USERFORMU BİR BUTON KULLANARAK MİNİMİZE YAPMAK İSTİYORUM YARDIMCI OLURSANIZ SEVİNİRİM. ŞİDİDEN Teşekkürler
Kullanıcı avatarı
ahmed_ummu
Siteye Alışmış
 
Adı Soyadı:SÜLEYMAN CAN
Kayıt: 15 Mar 2009 01:39
Konum: Yok
Meslek: MEB-Dumlupınar İlköğretim Okulu Etimesgut-ANKARA - MEMUR
Yaş: 53
İleti: 482
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ETİMESGUT



Cevap: Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ek

İleti#33)  M Kubilay Karabulut » 15 Mar 2009 16:17

Lütfen öncelikle forum kurallarımızı okuyunuz. Türkçe yazım kuralına dikkat !

ahmed_ummu yazdı:Arkadaşlar UserForm'u bir buton kullanarak minimize yapmak istiyorum. Yardımcı olursanız sevinirim. Şimdiden teşekkürler.



Kod: Tümünü seç
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Long, ByVal bEnable As Long) As Long
Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Sub UserForm_Activate()
  EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub

Private Sub UserForm_Initialize()
   Dim hWnd As Long
   hWnd = FindWindowA(vbNullString, Me.Caption)
   SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H35000
   UserForm1.Width = 369
   UserForm1.Height = 285

End Sub
" WeWhoAreNotAsOthers"
Kullanıcı avatarı
M Kubilay Karabulut
Yönetim Kurulu
 
Adı Soyadı:Mustafa Kubilay KARABULUT
Kayıt: 15 Haz 2008 00:10
Konum: Maltepe/Istanbul
Meslek: Finans
Yaş: 43
İleti: 732
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Maltepe/İstanbul

Cevap: Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ek

İleti#34)  uyrdkl » 16 May 2009 21:28

--)(
[TESEKKÜR]
Kullanıcı avatarı
uyrdkl
Yeni Başlamış
 
Adı Soyadı:Ümit Yurdakul
Kayıt: 16 May 2009 20:32
Konum: Adana
Meslek: Tekniker
Yaş: 54
İleti: 18
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

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

İleti#35)  icecure » 28 Ağu 2011 13:36

Hocam emeğine sağlık..
Kullanıcı avatarı
icecure
 
Adı Soyadı:idris sey
Kayıt: 08 Tem 2010 12:02
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: nalchik

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

İleti#36)  Tarkan VURAL » 28 Ağu 2011 15:48

icecure yazdı:Hocam emeğine sağlık..


Önemli değil.
1000 seferden fazla indirme olmuş. Teşekkür edenlere ben de duyarlılıklarından dolayı teşekkür ediyorum. şkşk
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: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ek

İleti#37)  Ozan İLGÜN » 30 Mar 2013 22:37

teşekkürler çok faydalı
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 35
İleti: 3044
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ek

İleti#38)  Hartem » 28 Kas 2014 09:35

Yorumlardan anladığım güzel bir dosya olmuş ama ben dosyayı göremiyorum kaldırıldı mı?
Kullanıcı avatarı
Hartem
 
Adı Soyadı:D. Mehmet Temizel
Kayıt: 22 Şub 2014 22:05
Konum: osmaniye / kadirli
Meslek: bilgisayar programcısı
Yaş: 45
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: osmaniye / kadirli

Cevap: Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ek

İleti#39)  Tarkan VURAL » 28 Kas 2014 16:06

Hayır, aslında güzel bir dosya değil, basit ve ufak, geliştirilmeye açık örnek bir çalışma. # 29 numaralı iletimdeki ekten de ufak bir örnek inceleyebilirsiniz.
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: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Personel Bul, Resim Görüntüle , Yeni Kişi ve Resim Ek

İleti#40)  johnvaldetine » 29 Kas 2016 08:47

Dosya linkini görememekteyim :(
Kullanıcı avatarı
johnvaldetine
Yeni Başlamış
 
Kayıt: 23 Kas 2016 15:30
Meslek: Mak. Müh.
Yaş: 31
İleti: 39
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

ÖncekiSonraki

Forum Örnek Dosyalar

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe