UserFormda şarta göre arama yaptırma...

[manly]

Arkadaşlar gönderdiğim formda istediğim şarta göre arama yaptırıp verileri çağırma nasıl olabilir. Yardım ederseniz sevinirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Form üzerindeki SİPARİŞ NO kutusuna aramak istediğiniz bilgiyi yazıp butona tıklayın.

Private Sub CommandButton3_Click()
    Dim BUL As Range, X As Byte
 
    If TextBox4 = "" Then Exit Sub
 
    With Sheets("Sayfa1")
 
    Set BUL = .Range("D:D").Find(TextBox4)
    If Not BUL Is Nothing Then
        TextBox1.Value = .Cells(BUL.Row, 1)
        TextBox2.Value = .Cells(BUL.Row, 2)
        TextBox3.Value = .Cells(BUL.Row, 3)
        TextBox4.Value = .Cells(BUL.Row, 4)
        TextBox5.Value = .Cells(BUL.Row, 5)
        TextBox6.Value = .Cells(BUL.Row, 6)
        TextBox7.Value = .Cells(BUL.Row, 7)
        TextBox8.Value = .Cells(BUL.Row, 8)
        TextBox9.Value = .Cells(BUL.Row, 9)
        TextBox10.Value = .Cells(BUL.Row, 10)
        TextBox11.Value = .Cells(BUL.Row, 11)
        TextBox12.Value = .Cells(BUL.Row, 12)
        TextBox13.Value = .Cells(BUL.Row, 13)
        TextBox14.Value = .Cells(BUL.Row, 14)
        TextBox15.Value = .Cells(BUL.Row, 15)
        TextBox16.Value = .Cells(BUL.Row, 16)
        TextBox17.Value = .Cells(BUL.Row, 17)
        TextBox18.Value = .Cells(BUL.Row, 18)
        TextBox19.Value = .Cells(BUL.Row, 19)
    Else
        For X = 1 To 19
            Me.Controls("TextBox" & X) = ""
        Next
        TextBox4.SetFocus
        MsgBox "Kayıt bulunamadı !", vbCritical
    End If
 
    End With
End Sub

 

[manly]

Korhan bey tesekkür ederim. İstediğim gibi oldu. Acaba listbox açıp oradan bilgileri çağırttırabilirmiyiz. Gereken düzenlemeyi yaptım. Dosyayı gönderiyorum. Bir Listbox açıp sipariş numarasını oraya yazıp verileri çağırttırabilirmiyiz. Onunla ilgili bir kod yazabilirmisiniz.

 

[Korhan Ayhan]

Selamlar,

Tabiki yapılabilir. İlk sorunuzda ListBox kullanmak istediğinizi belirtmemiştiniz. Ayrıca son eklediğiniz dosyada ben ListBox nesnesini göremedim. Siz neyi düzenlediniz?

 

[manly]

Selamlar...
Kusura bakmayın yanlış bir çalışma göndermişim..
yaptığım çalışmayı şimdi gönderiyorum..

 

[Korhan Ayhan]

Selamlar,

Son eklediğiniz çalışmanızda TextBox20 nesnesini eklemişsiniz ve daha önce önerdiğim kodu uyarlamışsınız. Kod bu haliyle çalışıyor. Dosyanızda ben yine ListBox nesnesini göremedim.

 

[manly]

Listbox yanlış kullanılan bir kelime...Textbox yerine söylemişim...

 

[Korhan Ayhan]

Selamlar,

Bu durumda son eklediğiniz dosyada bir problem görünmüyor. Kod istediğiniz sonucu veriyor.

 

[manly]

Herşey için teşekkürler.. Bunu başka işlemler yaparak yavaş yavaş geliştirmekte mümkündür sanırım.. İleri de süz ile ilgili kodlarda gerekli olabilir...

 

[Korhan Ayhan]

Selamlar,

Evet dosyanızı dahada geliştirebilirsiniz. Bunu yapmak içinde forumumuzda size örnek teşkil edecek bir çok çalışma bulunmaktadır.