veri yönetimi macrosuna bul ilavesi

[ildizim]

merhaba forumda en cok kullanılan macrolardan biri olan ekli veri yönetimi macrosuna ilave bul yapılmasını istiyorum.
Çünkü benim dosyamda 30 bin kayıt var ve listboxda düzeltecegim kaydı bulamıyorum. bul macrosu ilave edilip texboxlara atılabilirse harika olur.

 

[ASMET67]

Dosyanızı inceledim neye göre arama yapacaksanız bildirilmisiniz.

 

[mustafa7691]

Sn ASMET67 ben gezinirken görüp inceledim ve mahsuru yoksa ortak olup ada göre bir bul macrosu eklenebilirse benim de işime yarayacağını düşündüm.ancak küçük bir ekle ;aynı ismde birkaç kayıt olduğunda acaba bul makrosu 2.3.4. tıklamalarda diğer isimleri getirebilirmi?bu istek benim için biraz zor.daha önce başka hocalar yardımcı olmaya çalışmıştı ancak aynı isimde 3 4 taramada sonuçları getiriyor ama ismi değiştirince bir arama daha yapmıyordu.taki user form kapanıp açılana kadar.ama onlarda sağolsunlar ufkumu genişletmeme yardımcı olmuşlardı.form işime yarayabileceği için burada sordum saygılarımla

 

[Orion1]

merhaba forumda en cok kullanılan macrolardan biri olan ekli veri yönetimi macrosuna ilave bul yapılmasını istiyorum.
Çünkü benim dosyamda 30 bin kayıt var ve listboxda düzeltecegim kaydı bulamıyorum. bul macrosu ilave edilip texboxlara atılabilirse harika olur.

Adı ve soyadu kutusuna veri giriniz ve bul tuşuna basınız.
Büyük küçük harfe duyarlı değildir.
Ekli dosyayı inceleyiniz.

Private Sub CommandButton6_Click()
Dim sat, i As Long, k As Byte
ListBox1.RowSource = ""
If TextBox1.Value = "" Then
    MsgBox "Adı kutusu boş olamaz..!!", vbCritical
    TextBox1.SetFocus
    Exit Sub
End If
If TextBox2.Value = "" Then
    MsgBox "Soyadı kutusu boş olamaz..!!", vbCritical
    TextBox2.SetFocus
    Exit Sub
End If
sat = 0
For i = 2 To Cells(65536, "A").End(xlUp).Row
    If LCase(Replace(Replace(Cells(i, "B").Value, "I", "ı"), "İ", "i")) = _
    LCase(Replace(Replace(TextBox1.Value, "I", "ı"), "İ", "i")) And _
    LCase(Replace(Replace(Cells(i, "C").Value, "I", "ı"), "İ", "i")) = _
    LCase(Replace(Replace(TextBox2.Value, "I", "ı"), "İ", "i")) Then
    ListBox1.AddItem
        For k = 2 To 9
            ListBox1.Column(k - 2, sat) = Cells(i, k).Value
        Next k
    End If
Next i
MsgBox "Arama tamamlandı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[mustafa7691]

hocam elinize sağlık ama 2 tane veya fazla aynı isim olduğunda sadece birini getiriyor sanıyorum.yinede elinize sağlık

 

[Orion1]

hocam elinize sağlık ama 2 tane veya fazla aynı isim olduğunda sadece birini getiriyor sanıyorum.yinede elinize sağlık

Şimdi ona bakarım.Hallederiz,problem değil.

 

[Orion1]

Sorun giderildi.İşlem tamamdır.
Ekli dosyayı inceleyiniz.

 

[mustafa7691]

Sn Orion2 elinize ve emeklerinize sağlık süper olmuş.saydılar teşekkürler

 

[ildizim]

fırsat bulup yazamamıştım teşekkürler