listeleme

[marimar]

merhaba arkadaşlar ekteki dosyada olduğu gibi listele butonuna bastığım zaman listbox ta seçili olan isim adı textbox1'e yazılıyor benim istediğim textbox2'ye seçili olan kişinin yaşının yazılması nasıl yapabilirim.teşekkürler

 

[emrexcel123]

buyrun

eki inceleyiniz...

 

[marimar]

çoook teşekkürler sayın emrexcel123 biraz acemiyim sayenizde birşeyler öğrenmeye çalışıyorum.

TextBox1.Text = ListBox1.Text
ARA = WorksheetFunction.Match(TextBox1, Range("a:a"), 0)
TextBox2 = Cells(ARA, 2)

kısmını biraz açıklaya bilirseniz yaptığım işin ne olduğunu bilerek daha iyi yaparım
teşekkürler

 

[emrexcel123]

kaçıncı fonksiyonu >>
textbox1 = listbox1
yani butona tıklayınca listbox1'deki değer textbox1'e alınacak demektir
ARA = WorksheetFunction.Match(TextBox1, Range("a:a"), 0)
burada kaçıncı fonksiyonu vardır "ARA" tanımlamadır
WorksheetFunction.Match = Kaçıncı
ilk argüman aranan değer yani textbox1
ikinci argüman aralık yani "a:a" aralığı
eşleştirme türü yani 0
eşleştirme türü kaçıncı fonksiyonunda -1,0,1 olarak değişir
-Eşleştir_tür 1 ise, KAÇINCI fonksiyonu aranan_değerden küçük ya da eşit olan en büyük değeri bulur. Aranan_dizi artan sırada yerleştirilmelidir: ...-2, -1, 0, 1, 2, ...A-Z, YANLIŞ, DOĞRU.
-Eşleştir_tür 0 ise, KAÇINCI fonksiyonu aranan_değere tam olarak eşit olan ilk değeri bulur. Aranan_dizi herhangi bir sırada olabilir.
-Eşleştir_tür -1 ise, KAÇINCI fonksiyonu aranan_değerden büyük ya da eşit olan en küçük değeri bulur. Aranan_dizi azalan sırada yerleştirilmelidir: DOĞRU, YANLIŞ, Z-A, ...2, 1, 0, -1, -2, ..., vb.
-Eşleştir_tür belirtilmezse, 1 olduğu varsayılır.
TextBox2 = Cells(ARA, 2)
burada ARA değeri kaçsa onun 2.sütunundaki değerine eşit olan değerini verir.
ii çalışmalar...

 

[Terkanli]

'Emre aşağıdaki kodu userformda deneyebilirsin, textbox ların arttıkça örneğin
'TextBox3.Text = ListBox1.List(ListBox1.ListIndex, 3'sayıyı değiştir.)

Private Sub CommandButton1_Click()
TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
TextBox2.Text = ListBox1.List(ListBox1.ListIndex, 1)
End Sub
Private Sub UserForm_Initialize()
ListBox1.RowSource = "sayfa1!a2:b10"
ListBox1.ColumnCount = 3
End Sub
'listboxa tıklayınca da veriler gelecek, listele butonuna gerek olmayabilir
Private Sub ListBox1_Click()
TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
End Sub

Saygılar,
Tansu

 

[emrexcel123]

sn Terkanli arkadaşımız için basit bir kod yaptım yine de önerin için tşkler ayrıca Listbox1_click değilde Dbl_Click olayına yazsan daha iyi olur...

 

[Terkanli]

Emre Bey,
Teşekkürler, öneriniz üzere denedim, gerçekten daha güzel oldu.
Saygılar,
Tansu

 

[emrexcel123]

rica ederim ii çalışmalar Tansu...

 

[marimar]

bir konuda daha yardımınıza ihtiyacım var arkadaşlar ekteki örnekte textbox3'e kişinin adı ve soyadını yazarak arama yaptığımda bulunan sonucun listbox ta listelenmesini istiyorum bunu nasıl yapabilirim ???
yardımlarınız için teşekkürler...

 

[marimar]

bana yardım edecek yok mu ???

 

[Skorpiyon]

Dilerim işinizi görür.

 

[marimar]

çok teşekkür ederim sayı skorpiyon galiba ben sorumu biraz yanlış sordum ben ara butonuna bastığım zaman A stunundaki isimleri arayacak ve listbox'ta listeleyecek mesala abdullah yazdığım zaman tüm abdullah olan isimleri listboxta listeleyecek böyle birşey istiyorum
tekrar teşekkürler

 

[marimar]

merhaba ekteki çalışmada çalışma sayfasına tarih ve notları kaydediyorum
bugün butonuna bastığım zaman bugünkü bugünün tarihinde yapılacak işleri listboxta listelemek,eski kayıtlar'a tıkladığım zaman bugünden önceki kayıtları listboxta listelemek yeni kayıtlara tıkladığım zaman bugünden sonraki kayıtları listboxta listelemek istiyorum.
tüm kayıtlara bastığım zaman tüm kayıtlar listeleniyor not çok ileriden başlıyor tarihe biraz yaklaşsın istiyorum textbox2 nin hemen altından başlayabilir,ve not uzun olduğu zaman listboxta tamamı okunmuyor listboxta yana doğru kaydırma çıkmıyor.
kayıt sile basınca listboxta seçtiğim veriyi onayladığım taktirde silmek istiyorum
yardım ederseniz sevinirim.
teşekkürler.

 

[marimar]

DİĞER butonuna bastığım zamanda tarih kısmı boş olup not kısmı dolu olan kayıtlar gelsin istiyorum .Yardımlarınızı bekliyorum.
teşekkürler