Listeden Bilgileri Almak?

[baba]

Göndermiş olduğumu exe'de
(TextBox1'in içeriğine aranacak kelime,isim,sayı,metin yazıldığında; CommandButton1'e tıklandığı zaman Aşağısında bulunan ListBox1'e sıralanacak ve listede bulunan kelimelerin veya metinlerin üzerine tıklandığı zaman TÜMÜ sayfasıdaki yerine gidecek.)

 

[udentr2002]

merhaba

Ekli dosyayı inceleyiniz
Yanlız a stünundaki verilere göre arama yapacaksanız tüm veriler zaten 2 değerden oluşmakta 150 ve 255 gibi çok fala değer olduğu için 150 sayısına yada 255 sayısına göre arama sırasında hata verecektir ben yinede dosyanızı göndereyim İnşallah işinize yarar

 

[baba]

Ellerinize sağlık teşekkürler
Yapmış olduğunuz İşler evet doğru gidiyor benim sadece isim girdiğinde yani (H) hücresinde bilgileri ara bul yapınaca TÜMÜ sayfada varsa Bulsun yoksada uyaarı versin.

 

[udentr2002]

kodları aşağıdakji gibi değiştirin

Private Sub CommandButton1_Click()
On Error Resume Next
'Application.ScreenUpdating = False
Sheets("TÜMÜ").Select

ListBox1.RowSource = Empty
ListBox1.Clear
ListBox1.ColumnCount = 8
For Each isim In Sheets("TÜMÜ").Range("h3:h" & Sheets("TÜMÜ").Range("h65536").End(3).Row)
If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) & "*" Then
isim.Select
liste = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(liste, 0) = isim.Offset(0, -7)
ListBox1.List(liste, 1) = isim.Offset(0, -6)
ListBox1.List(liste, 2) = isim.Offset(0, -5)
ListBox1.List(liste, 3) = isim.Offset(0, -4)
ListBox1.List(liste, 4) = isim.Offset(0, -3)
ListBox1.List(liste, 5) = isim.Offset(0, -2)
ListBox1.List(liste, 6) = isim.Offset(0, -1)
ListBox1.List(liste, 7) = isim

End If

Next
Sheets("Sayfa1").Select

End Sub

Private Sub ListBox1_Click()
Sheets("TÜMÜ").Select
ActiveCell.Select
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

 

[baba]

allah razı olsun çoook teşekkürler ederim;
çok işime yarayacakkkkk