Textboxa girilen veri ile sayfadan veri süzme

[kemal turan]

Merhaba uzmanlarımız,
Textboxa girilen isme göre sayfadan veri süzmeye ihtiyacım var.
Örnek dosyada isteklerimi açıkladım.
işyerimizde kullanacağımız bir çalışma olacak.
İlginiz için teşekkür edeirim.

 

[peptokok]

Textboxa girilen verileri süzüyor tıklayınca cari noyu B3'e yazıyor. inşallah işinizi görür.

 

[kemal turan]

Merhaba Sn.Kardeşim ( Ppeptokok)
İşimi görmek ne demek tam istediğim gibi.
Emeğinize sağlık, İşiniz rast gitsin.
Selametle kalınız.

 

[peptokok]

İşinize yaradığına sevindim.
Hayırlı akşamlar.

 

[kemal turan]

merhaba,
Dosyadaki çalışmamıza orjinal dosyamdaki kayıtları aldım.
Çok yavaş çalışıyor.İsteğimi ek dosyada belirttim.
ilgilenirseniz çok memnun olurum.

 

[kemal turan]

Merhaba,
Orjinal dosyamdaki kayıt listesindeki yapıyı excelin "yenilenen değerleri kaldır" işlevi ile kişi adlarını cari noya göre tekilleştirdim.Bariz bir şekilde hızlandı.
Daha da hızlandırabilirsek sevinirim.
Teşekkürler

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyiniz.

 

[asi_kral]

Merhaba
Userform'daki btüm kodları silin. Ve bu kodları yerine kopyalayın ve deneyin.

Option Explicit
Private Sub ListBox1_Click()
Dim SYF As Worksheet, ARA As Range, STR As Variant
Set SYF = Sheets("Kayıtlar")
With ListBox1
Set ARA = SYF.Range("B:B").Find(.List(.ListIndex, 1) _
, , , xlPart)
End With
If Not ARA Is Nothing Then
STR = ARA.Address
Do
Sayfa1.Range("B3") = SYF.Cells(ARA.Row, "A")
Set ARA = SYF.Range("B:B").FindNext(ARA)
Loop While Not ARA Is Nothing And ARA.Address <> STR
End If
End Sub
Private Sub TextBox1_Change()
Dim SYF As Worksheet, ARA As Range, STR As Variant, ST As Long
If TextBox1 = "" Then
UserForm_Initialize
Else
Set SYF = Sheets("Kayıtlar")
Set ARA = SYF.Range("B:B").Find(TextBox1.Text, , , xlPart)
ListBox1.RowSource = ""
ST = 1
If Not ARA Is Nothing Then
STR = ARA.Address
Do
ListBox1.AddItem
ListBox1.List(0, 0) = SYF.Cells(1, 1)
ListBox1.List(0, 1) = SYF.Cells(1, 2)
ListBox1.AddItem
ListBox1.List(ST, 0) = SYF.Cells(ARA.Row, "A")
ListBox1.List(ST, 1) = SYF.Cells(ARA.Row, "B")
ST = ST + 1
Set ARA = SYF.Range("B:B").FindNext(ARA)
Loop While Not ARA Is Nothing And ARA.Address <> STR
End If
End If
End Sub
Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 2
.ColumnWidths = "50;120"
.RowSource = "KAYITLAR!A1:B" & Sayfa2.[A65536].End(3).Row
End With
End Sub

 

[kemal turan]

Merhaba Sn.Korhan bey, asi kral67
Emekleriniz için çok teşekkür ederim.
Sn. Korhan bey yapmış olduğunuz çalışmada sadece cari ve isim bilgilerini çekiyor.
Aynı isim soyadlı farklı kişiler olabiliyor.bunu ayırmak için telefon veya adres bilgilerini baz alarak seçim yapmak zorunda kalıyoruz.4 sutun bilgisine ihtiyacım var.
Bunu sağlamak için kodlarla oynamaya çalıştım, fakat yeterli olamadım.
Kod daki eksikleri tamamlarsanız çok memnun olurum.
Dosya ek tedir.
İşiniz rast gitsin.
Selametle kalınız.

 

[Korhan Ayhan]

Merhaba,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

 

[kemal turan]

Korhan bey,
Merhaba tam istediğim gibi,Allah razı olsun.İşimizde kullanacağımız bir çalışma oldu.Hakkınızı helal ediniz.
İşiniz rast gitsin.
selametle kalınız.

 

[Korhan Ayhan]

İyi dilekleriniz için teşekkür ederim. Hakkım varsa da helâl olsun.

 

[arzuerdem]

müşteri hesabaı

bir pastaneci abimzin bir yardıma ihtiyacı var şöyle ;
şimdi bir form olucak. bu forma girilen kayıtlar başka bir sayfada listelencek orada filtreleme yoluyla istediği bilgilere ulaşıcak.
burda önemli olan form bir paket program gibi sabit olucak girlen bilgiler değişecek her seferinde yeni kayıt girilip diğer syfaya atıcak[[