• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

listbox aktif isim üzerine gelindiğinde başka ismi çıkartıyor.

A

AKTAY27

Katılım
24 Şubat 2007
Mesajlar
241
Excel Vers. ve Dili
OFİS XP TÜRKÇE
listbox harf kriterli arama yapılıyor örneğin
1.-sabri
2.-mümtaz
3.-metin
listemiz olsun

"m" harfine bastığım zaman metin ve mümtaz listboxta listeleniyor.
2.-mümtaz
3.-metin
mümtazın üzerine geldiğim zaman userformda sabrinin bilgisi geliyor.

listboxta 2 kişi listelendiği için userform sıra numarısını kendisi tayin edip
sıra numarası 2 mümtazı 1 olarak görüp sabrinin bilgisini getiriyor.
 
Eğer satır değeri olarak listboxun listindex değerini kullanıysanız, böyle olması doğal. Bence listboxu 2 sütunlu yaparak ilk sütunada verinin satır değerini yükleyin ve bu değeri satır değeri olarak kullanın.
 
sayın levent hocam;

kullandığım kodlar bunlar rica etsem nasıl yapacağımı söylermisiniz.

Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
userform1.RefNo = Cells(ListBox1.ListIndex + 2, "A").Value
userform1.ad&#305;soyad&#305; = Cells(ListBox1.ListIndex + 2, "D").Value
userform1.dosyano = Cells(ListBox1.ListIndex + 2, "C").Value
userform1.g&#246;revyeri = Cells(ListBox1.ListIndex + 2, "W").Value
userform1.g&#246;revi = Cells(ListBox1.ListIndex + 2, "Z").Value
userform1.i&#351;egiri&#351;tarihi = Cells(ListBox1.ListIndex + 2, "AA").Value
 
Selamlar,

Arama yapt&#305;&#287;&#305;n&#305;z kodu yada &#246;rnek dosyan&#305;z&#305; eklermisiniz.
 
Sayin Cost_control

Örnek Dosyayi GÖnderİyorum

Kayit Bul Butonu İle İŞlem Yapmaya ÇaliŞiyorum
 
Hocam B&#304;rde Kayit D&#220;zelt Butonu &#304;le Userformda D&#220;zeltme &#304;&#350;lem&#304;n&#304; Yapiyor Ama Excel&#304; Ver&#304; Tabani Olarak Kullaniyorum Excelde De&#286;&#304;&#350;kl&#304;k Yapilan Personel&#304; De&#286;&#304;lde Hang&#304; H&#220;cre &#220;zer&#304;nde O H&#220;crey&#304; De&#286;&#304;&#350;t&#304;r&#304;yor. Bunada &#199;&#214;z&#220;m Bulab&#304;l&#304;rm&#304;s&#304;n&#304;z Acaba
 
Selamlar,

Formunuzdaki "Kay&#305;t D&#252;zelt" butonuna ait kodu a&#351;a&#287;&#305;daki &#351;ekilde de&#287;i&#351;tirin.

Kod: 
Private Sub B09_Click()
durum = False
kimlikfotokopisi.Enabled = True
sab&#305;kakayd&#305;formu.Enabled = True
sskkart&#305;fotokopisi.Enabled = True
ailetablosu.Enabled = True
ikametgahilmuhaberi.Enabled = True
sa&#287;l&#305;kraporu.Enabled = True
i&#351;ba&#351;vuruformu.Enabled = True
diplomafotokopisi.Enabled = True
Ekran03
BUL = Sheets("PERSONELKARTLARI").[C:C].Find(dosyano, LookAt:=xlWhole).Row
Cells(BUL, 1).Select
End Sub

Kay&#305;t aramak i&#231;in kulland&#305;&#287;&#305;n&#305;z kodu a&#351;a&#287;&#305;daki gibi de&#287;i&#351;tirin.

Kod: 
Private Sub TextBox1_Change()
Dim i As Long, VER&#304; As String, KR&#304;TER As String
Sheets("PERSONELKARTLARI").Select

ListBox5.Clear
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox6.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "0;50"

KR&#304;TER = UCase(Replace(Replace(TextBox1.Value, "&#305;", "I"), "i", "&#304;"))
For i = 2 To Cells(65536, "D").End(xlUp).Row
    
    VER&#304; = UCase(Replace(Replace(Cells(i, "D").Value, "&#305;", "I"), "i", "&#304;"))
 
    If VER&#304; Like KR&#304;TER & "*" Then
        ListBox5.AddItem Cells(i, "A").Value
        ListBox1.AddItem
        ListBox1.List(Sat&#305;r, 0) = Cells(i, "C")
        ListBox1.List(Sat&#305;r, 1) = Cells(i, "D")
        Sat&#305;r = Sat&#305;r + 1
        ListBox2.AddItem Cells(i, "W").Value
        ListBox3.AddItem Cells(i, "Z").Value
        ListBox4.AddItem Cells(i, "C").Value
        ListBox6.AddItem Cells(i, "AA").Value
    End If
Next i
End Sub

En son olarakta Listbox1 e ait koduda a&#351;a&#287;&#305;daki gibi de&#287;i&#351;tirip deneyin.

Kod: 
Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
SATIR = Sheets("PERSONELKARTLARI").[C:C].Find(ListBox1.Column(0), LookAt:=xlWhole).Row
UserForm1.RefNo = Cells(SATIR, "A").Value
UserForm1.ad&#305;soyad&#305; = Cells(SATIR, "D").Value
UserForm1.dosyano = Cells(SATIR, "C").Value
UserForm1.g&#246;revyeri = Cells(SATIR, "W").Value
UserForm1.g&#246;revi = Cells(SATIR, "Z").Value
UserForm1.i&#351;egiri&#351;tarihi = Cells(SATIR, "AA").Value

UserForm1.RefNo = Cells(SATIR, "A").Value
UserForm1.kartno = Cells(SATIR, "B").Value
UserForm1.dosyano = Cells(SATIR, "C").Value
UserForm1.ad&#305;soyad&#305; = Cells(SATIR, "D").Value
UserForm1.ssksicilno = Cells(SATIR, "E").Value
UserForm1.tckimlikno = Cells(SATIR, "F").Value
UserForm1.telefonno = Cells(SATIR, "G").Value
UserForm1.adres = Cells(SATIR, "H").Value
UserForm1.do&#287;umyeri = Cells(SATIR, "I").Value
UserForm1.do&#287;umtarihi = Cells(SATIR, "J").Value
UserForm1.babad&#305; = Cells(SATIR, "K").Value
UserForm1.anaad&#305; = Cells(SATIR, "L").Value
UserForm1.n&#252;fusakay&#305;tl&#305;oldu&#287;uil = Cells(SATIR, "M").Value
UserForm1.n&#252;fusakay&#305;tl&#305;oldu&#287;uil&#231;e = Cells(SATIR, "N").Value
UserForm1.mahallek&#246;y = Cells(SATIR, "O").Value
UserForm1.ciltno = Cells(SATIR, "P").Value
UserForm1.ailes&#305;rano = Cells(SATIR, "Q").Value
UserForm1.s&#305;rano = Cells(SATIR, "R").Value
UserForm1.medenihali = Cells(SATIR, "S").Value
UserForm1.cinsiyeti = Cells(SATIR, "T").Value

'&#304;&#351;yeri Bilgileri
UserForm1.i&#351;yerikodu = Cells(SATIR, "U").Value
UserForm1.i&#351;yeri&#252;nvan&#305; = Cells(SATIR, "V").Value
UserForm1.g&#246;revyeri = Cells(SATIR, "W").Value
UserForm1.sigortal&#305;oldu&#287;&#305;yer = Cells(SATIR, "X").Value
UserForm1.departman&#305; = Cells(SATIR, "Y").Value
UserForm1.g&#246;revi = Cells(SATIR, "Z").Value
UserForm1.i&#351;egiri&#351;tarihi = Cells(SATIR, "AA").Value
UserForm1.sski&#351;eba&#351;lamatarihi = Cells(SATIR, "AB").Value
UserForm1.i&#351;ten&#231;&#305;k&#305;&#351;tarihi = Cells(SATIR, "AC").Value
UserForm1.i&#351;tenayr&#305;lmanedeni = Cells(SATIR, "AD").Value

'&#220;cret Bilgileri
UserForm1.mesaisaat&#305;uygulmas&#305; = Cells(SATIR, "AE").Value
UserForm1.ayl&#305;k&#252;creti = Cells(SATIR, "AF").Value
UserForm1.ocak = Cells(SATIR, "AG").Value
UserForm1.&#351;ubat = Cells(SATIR, "AH").Value
UserForm1.mart = Cells(SATIR, "AI").Value
UserForm1.nisan = Cells(SATIR, "AJ").Value
UserForm1.may&#305;s = Cells(SATIR, "AK").Value
UserForm1.haziran = Cells(SATIR, "AL").Value
UserForm1.temmuz = Cells(SATIR, "AM").Value
UserForm1.a&#287;ustos = Cells(SATIR, "AN").Value
UserForm1.eyl&#252;l = Cells(SATIR, "AO").Value
UserForm1.ekim = Cells(SATIR, "AP").Value
UserForm1.kas&#305;m = Cells(SATIR, "AQ").Value
UserForm1.aral&#305;k = Cells(SATIR, "AR").Value

'&#231;al&#305;&#351;ma stat&#252;s&#252;
UserForm1.&#231;al&#305;&#351;mastat&#252;s&#252; = Cells(SATIR, "AS").Value

'A&#304;LE B&#304;LG&#304;LER&#304;
UserForm1.e&#351;iad&#305;soyad&#305; = Cells(SATIR, "AT").Value
UserForm1.e&#351;ido&#287;umyeri = Cells(SATIR, "AU").Value
UserForm1.e&#351;ido&#287;umtarihi = Cells(SATIR, "AV").Value
UserForm1.e&#351;itckimlikno = Cells(SATIR, "AW").Value
UserForm1.e&#351;icinsiyeti = Cells(SATIR, "AX").Value
UserForm1.&#231;ocuk1ad&#305;soyad&#305; = Cells(SATIR, "AY").Value
UserForm1.&#231;ocuk1do&#287;umyeri = Cells(SATIR, "AZ").Value
UserForm1.&#231;ocuk1do&#287;umtarihi = Cells(SATIR, "BA").Value
UserForm1.&#231;ocuk1tckimlikno = Cells(SATIR, "BB").Value
UserForm1.&#231;ocuk1cinsiyeti = Cells(SATIR, "BC").Value
UserForm1.&#231;ocuk2ad&#305;soyad&#305; = Cells(SATIR, "BD").Value
UserForm1.&#231;ocuk2do&#287;umyeri = Cells(SATIR, "BE").Value
UserForm1.&#231;ocuk2do&#287;umtarihi = Cells(SATIR, "BF").Value
UserForm1.&#231;ocuk2tckimlikno = Cells(SATIR, "BG").Value
UserForm1.&#231;ocuk2cinsiyeti = Cells(SATIR, "BH").Value
UserForm1.&#231;ocuk3ad&#305;soyad&#305; = Cells(SATIR, "BI").Value
UserForm1.&#231;ocuk3do&#287;umyeri = Cells(SATIR, "BJ").Value
UserForm1.&#231;ocuk3d&#305;&#287;umtarihi = Cells(SATIR, "BK").Value
UserForm1.&#231;ocuk3tckimlikno = Cells(SATIR, "BL").Value
UserForm1.&#231;ocuk3cinsiyeti = Cells(SATIR, "BM").Value
UserForm1.&#231;ocuk4ad&#305;soyad&#305; = Cells(SATIR, "BN").Value
UserForm1.&#231;ocuk4do&#287;umyeri = Cells(SATIR, "BO").Value
UserForm1.&#231;ocuk4do&#287;umtarihi = Cells(SATIR, "BP").Value
UserForm1.&#231;ocuk4tckimlikno = Cells(SATIR, "BQ").Value
UserForm1.&#231;ocuk4cinsiyeti = Cells(SATIR, "BR").Value
UserForm1.&#231;ocuk5ad&#305;soyad&#305; = Cells(SATIR, "BS").Value
UserForm1.&#231;ocuk5do&#287;umyeri = Cells(SATIR, "BT").Value
UserForm1.&#231;ocuk5do&#287;umtarihi = Cells(SATIR, "BU").Value
UserForm1.&#231;ocuk5tckimlikno = Cells(SATIR, "BV").Value
UserForm1.&#231;ocuk5cinsiyeti = Cells(SATIR, "BW").Value
UserForm1.&#231;ocuk6ad&#305;soyad&#305; = Cells(SATIR, "BX").Value
UserForm1.&#231;ocuk6do&#287;umyeri = Cells(SATIR, "BY").Value
UserForm1.&#231;ocuk6do&#287;umtarihi = Cells(SATIR, "BZ").Value
UserForm1.&#231;ocuk6tckimlikno = Cells(SATIR, "CA").Value
UserForm1.&#231;ocuk6cinsiyeti = Cells(SATIR, "CB").Value
UserForm1.&#231;ocuk7ad&#305;soyad&#305; = Cells(SATIR, "CC").Value
UserForm1.&#231;ocuk7do&#287;umyeri = Cells(SATIR, "CD").Value
UserForm1.&#231;ocuk7do&#287;umtarihi = Cells(SATIR, "CE").Value
UserForm1.&#231;ocuk7tckimlikno = Cells(SATIR, "CF").Value
UserForm1.&#231;ocuk7cinsiyeti = Cells(SATIR, "CG").Value
UserForm1.babaad&#305;soyad&#305; = Cells(SATIR, "CH").Value
UserForm1.babado&#287;umyeri = Cells(SATIR, "CI").Value
UserForm1.babado&#287;umtarihi = Cells(SATIR, "CJ").Value
UserForm1.babatckimlikno = Cells(SATIR, "CK").Value
UserForm1.babacinsiyeti = Cells(SATIR, "CL").Value
UserForm1.annead&#305;soyad&#305; = Cells(SATIR, "CM").Value
UserForm1.annedo&#287;umyeri = Cells(SATIR, "CN").Value
UserForm1.annedo&#287;umtarihi = Cells(SATIR, "CO").Value
UserForm1.annetckimlikno = Cells(SATIR, "CP").Value
UserForm1.annecinsiyeti = Cells(SATIR, "CQ").Value

'&#214;ZL&#220;K DOSYASI B&#304;LG&#304;LER&#304;
UserForm1.kimlikfotokopisi = Cells(SATIR, "CR").Value
UserForm1.sab&#305;kakayd&#305;formu = Cells(SATIR, "CS").Value
UserForm1.sskkart&#305;fotokopisi = Cells(SATIR, "CT").Value
UserForm1.ailetablosu = Cells(SATIR, "CU").Value
UserForm1.ikametgahilmuhaberi = Cells(SATIR, "CV").Value
UserForm1.sa&#287;l&#305;kraporu = Cells(SATIR, "CW").Value
UserForm1.sa&#287;l&#305;kraporual&#305;&#351;tarihi = Cells(SATIR, "CX").Value
UserForm1.i&#351;ba&#351;vuruformu = Cells(SATIR, "CY").Value
UserForm1.diplomafotokopisi = Cells(SATIR, "CZ").Value
UserForm1.askerlikdurumu = Cells(SATIR, "DA").Value
End Sub
 
Sayin; Cost_control

El&#304;n&#304;ze Sa&#286;lik Tam &#304;sted&#304;&#286;&#304;m G&#304;b&#304; Oldu
Har&#304;kasiniz Te&#350;ekk&#220;r Eder&#304;m.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst