Tarihe göre sorgulama

[excelman]

Merhabalar;

Soru yu dosyam ile birlikte ekte gönderiyorum.

Yardımlarınız için şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Ekteki örneği inceleyiniz.

 

[ahm11]

sayın leventm dosyayı bende inceledim bir şey dikkatimi çekti.listede gösterilen tarihlerin formatı değişmiş.data sayfasında olduğu gibi gün/ay/yıl değil ay/gün/yıl formatında görünüyor.bu nasıl düzelebilir.

 

[excelman]

Sayın Leventm;

cevabınız için çok teşekkür ederim istediğimi tam olarak gerçekleştiriyor.

Fakat bu konuyla ilgili bir şey daha sormak istiyorum.
Sadece Combobox1 den veri seçerek listeleme yapmak istersek kodları nasıl düzenlememiz gerekir?Yani textboxlara veri girmeden sadece combobox kullanmak istersek.

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi değiştirerek deneyin.

[vb:1:4e9d253c3e]Private Sub CommandButton1_Click()
ListBox1.Clear
For a = 2 To Cells(65536, 1).End(xlUp).Row
If TextBox1 = "" And TextBox2 = "" Then GoTo 10
If Cells(a, 2) >= CDate(TextBox1.Value) And Cells(a, 2) <= CDate(TextBox2.Value) And Cells(a, 6) = ComboBox1.Value Then
GoTo 20
10 If Cells(a, 6) = ComboBox1.Value Then
20 c = c + 1
topla = topla + Cells(a, 3).Value
For b = 2 To 6
ListBox1.AddItem
ListBox1.List(c - 1, b - 2) = Cells(a, b).Value
Next
End If
End If
Next
TextBox3 = topla
End Sub[/vb:1:4e9d253c3e]

Sn ahm11

Ben söylediğiniz şekilde göremedim. Tabloda nasıl ise listboxtada aynı şekilde.

 

[excelman]

Sayın Leventm teşekkür ediyorum kodlar çalıştı.

Çalışmalarınızda başarılar.