Listboxta arama ve listeleme ve nesnelerde tabstop

[mustafakoker]

Arkadaşlar Öncelikle İyi Akşamlar diliyorum
Ekli dosyamda sayın Evren Beyin iznini alarak örnek bir dosyadaki kodlarını kullanmaya çalıştım fakat bazı yerlerde eksiklerim var yardımcı olabilirmisiniz.

1.alış ve satış formunda texboxlara veri girdiğimde enter ile sonrakı texboxa gitmesini istiyorum ama olmuyor tex1.veri girip enter dediğimde tex.5 atlıyor

2.userform4 de stok listelemesini tarihe göre yapabilirmiyim aylık olarak süzmek istiyorum sayfada yapabiliyorum ama listboxta nasıl oluyor

3.satış fatura formu doğru kayıt yapmıyor sadece bir satıra giriş yapıyor oysa alış formundakı aynı kodları kopyalamıştım
yardımlarınız için teşekkürler.

 

[Orion1]

Soru başlığınıza yardım gibi şeyler yazmayınız.
Soru başlığınız konuyu uyan şekilde olmalıdır.
Soruları maddeler halinde sormayınız.
Her konu için ayrı bir başlık açınız.
Maddeler olunca kimse çözmeye yanaşmıyor.
Ben ilk 2 sorunuzu yaptım.
Dosyanız ektedir.

Private Sub CommandButton3_Click()
Dim i As Long, sat As Long, x As Long
Dim sh As Worksheet, j As Integer
ListBox1.RowSource = vbNullString
If Not IsDate(TextBox1.Text) Then
    MsgBox "Yanlış tarih girişi.Lütfen doğru tarih giriniz.", vbCritical, "U Y A RI"
    TextBox1.SetFocus
    Exit Sub
End If
If Not IsDate(TextBox2.Text) Then
    MsgBox "Yanlış tarih girişi.Lütfen doğru tarih giriniz.", vbCritical, "U Y A RI"
    TextBox2.SetFocus
    Exit Sub
End If
Set sh = Sheets("STOK")
sat = sh.Cells(65536, "A").End(xlUp).Row
For i = 3 To sat
    If sh.Cells(i, "A").Value >= CDate(TextBox1.Text) And _
    sh.Cells(i, "A").Value <= CDate(TextBox2.Text) Then
        ListBox1.AddItem
        For j = 1 To 5
            ListBox1.List(x, j - 1) = sh.Cells(i, j).Value
        Next
        ListBox1.List(x, 0) = Format(ListBox1.List(x, 0), "dd.mm.yyyy")
        x = x + 1
    End If
Next
        
End Sub

 

[Mehmet Şahin]

Günaydın,
1. sorunuzdaki sorunu, ilgili kontrol özelliklerini "tabstop=true" yaparak çözebilirsiniz,
iyi çalışmalar.

Düzeltme: Üstad zaten çözdüm demiş, özür dilerim.

 

[mustafakoker]

Soru başlığınıza yardım gibi şeyler yazmayınız.
Soru başlığınız konuyu uyan şekilde olmalıdır.
Soruları maddeler halinde sormayınız.
Her konu için ayrı bir başlık açınız.
Maddeler olunca kimse çözmeye yanaşmıyor.
Ben ilk 2 sorunuzu yaptım.

Sayın Evren Bey öncelikle uyarınız için Teşekkür eder Bundan sonraki sorularımı daha dikkatli sormaya çalışırım

cevabınız ve yardımınız için ayrıca teşekkür edrim.Elinize sağlık

 

[Orion1]

Soru başlığınıza yardım gibi şeyler yazmayınız.
Soru başlığınız konuyu uyan şekilde olmalıdır.
Soruları maddeler halinde sormayınız.
Her konu için ayrı bir başlık açınız.
Maddeler olunca kimse çözmeye yanaşmıyor.
Ben ilk 2 sorunuzu yaptım.

Sayın Evren Bey öncelikle uyarınız için Teşekkür eder Bundan sonraki sorularımı daha dikkatli sormaya çalışırım

cevabınız ve yardımınız için ayrıca teşekkür edrim.Elinize sağlık

Rica ederim.
İyi çalışmalar.