Kullanıcı
- Katılım
- 28 Tem 2022
- Mesajlar
- 166
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
1. sorunum dosyaya birde tarih kısmı ekledim ama onu listviewda gösteremedim 7. .listitemde hata veriyor
2.sorunum ise userforma 2 textbox ekledim ilk tarih son tarih diye arama yaparken tarih textboxlar boş ise normal arasın aöa tarih girdiysem tarihe göre arasın yardımlarınızı bekliyom dosya ekte
If ListBox1.ListIndex <> -1 And ListBox1.ListCount <> 0 The
aranan = ListBox1.Value
With UserForm2.ListView1
.ListItems.Clear
For i = 2 To UBound(a)
If aranan = a(i, sut) Then
say = say + 1
.ListItems.Add , , a(i, 1)
.ListItems(say).SubItems(1) = a(i, 2)
.ListItems(say).SubItems(2) = a(i, 3)
.ListItems(say).SubItems(3) = a(i, 4)
.ListItems(say).SubItems(4) = a(i, 5)
.ListItems(say).SubItems(5) = a(i, 6)
.ListItems(say).SubItems(6) = a(i, 7)
End If
Next i
End With
End If
2.sorunum ise userforma 2 textbox ekledim ilk tarih son tarih diye arama yaparken tarih textboxlar boş ise normal arasın aöa tarih girdiysem tarihe göre arasın yardımlarınızı bekliyom dosya ekte
If ListBox1.ListIndex <> -1 And ListBox1.ListCount <> 0 The
aranan = ListBox1.Value
With UserForm2.ListView1
.ListItems.Clear
For i = 2 To UBound(a)
If aranan = a(i, sut) Then
say = say + 1
.ListItems.Add , , a(i, 1)
.ListItems(say).SubItems(1) = a(i, 2)
.ListItems(say).SubItems(2) = a(i, 3)
.ListItems(say).SubItems(3) = a(i, 4)
.ListItems(say).SubItems(4) = a(i, 5)
.ListItems(say).SubItems(5) = a(i, 6)
.ListItems(say).SubItems(6) = a(i, 7)
End If
Next i
End With
End If
