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

**#21)** **Tarkan VURAL** » 17 Arl 2008 18:14

Linki inceler misiniz ?
viewtopic.php?f=78&t=1483

**#22)** **levo** » 17 Arl 2008 18:21

Çok teşekür ederim Vural bey Allah razı olsun.

**#23)** **ilkergul** » 30 Arl 2008 03:58

Tarkan bey merhaba bu dosyada 200 resim kullanabilir miyim?

**#24)** **Tarkan VURAL** » 30 Arl 2008 12:28

Kullanabilirsiniz. Ancak resim boyutlarının dosya boyutuna da etki edeceğini bilmelisiniz.
Küçük resimler seçmenizde fayda vardır.

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

**#26)** **exhelange** » 24 Şub 2009 16:47

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

**#27)** **Tarkan VURAL** » 24 Şub 2009 16: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.

**#28)** **nuklay2003** » 28 Şub 2009 15: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.

**#29)** **Tarkan VURAL** » 28 Şub 2009 16: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.

**#30)** **nuklay2003** » 28 Şub 2009 19: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

**#31)** **Tarkan VURAL** » 01 Mar 2009 03:11

Kodlardan çözüme gitmek çok da kolay değil. Çalışmayı paylaşırsanız üzerinden örnekleme yapalım. --)(

**#32)** **ahmed_ummu** » 15 Mar 2009 14: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

**#33)** **M Kubilay Karabulut** » 15 Mar 2009 18: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

**#34)** **uyrdkl** » 16 May 2009 23:28

**#35)** **icecure** » 28 Ağu 2011 15:36

Hocam emeğine sağlık..

**#36)** **Tarkan VURAL** » 28 Ağu 2011 17: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

**#37)** **Ozan İLGÜN** » 31 Mar 2013 00:37

teşekkürler çok faydalı

**#38)** **Hartem** » 28 Kas 2014 11:35

Yorumlardan anladığım güzel bir dosya olmuş ama ben dosyayı göremiyorum kaldırıldı mı?

**#39)** **Tarkan VURAL** » 28 Kas 2014 18: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.

**#40)** **johnvaldetine** » 29 Kas 2016 10:47

Dosya linkini görememekteyim