merhabalar excelde yapmış olduğum bir tablo var ekledim incelerseniz sevinirim ben bu tabloda
ilk tarih ve son tarihi belirledikten sonra işlem türünden seçtiğim kişinin hareketlerini alttaki listede görmek istiyorum internette çok baktım ama sanırım doğru aramayı yapamıyorum.yardım ederseniz çok sevinirim

bilen kimse yok mu

KİMSE YARDIM ETMİYECEK Mİ ?

80 kişiden bir kişi bile yardım etmeyecek mi

bu kodu bir denermisiniz

Private Sub CommandButton1_Click()

ListBox1.Clear



For i = 2 To 1000



If CLng(CDate(Worksheets(1).Range("b" & i).Value)) >= CLng(CDate(TextBox1.Text)) _

And CLng(CDate(Worksheets(1).Range("b" & i).Value)) <= CLng(CDate(TextBox2.Text)) Then

sat1 = i: sat = "0000" + sat1: sat = Right(sat, 5) + " = "

ekle = (" - " & (Worksheets(1).Range("b" & i).Value) & " - " _

& (Worksheets(1).Range("f" & i).Value))

ListBox1.AddItem (sat + ekle)

End If

TextBox3.Text = ListBox1.ListCount

Next i

End Sub

(21/11/2014, 17:18)simendifer yazdı: bu kodu bir denermisiniz


Private Sub CommandButton1_Click()

ListBox1.Clear

For i = 2 To 1000

If CLng(CDate(Worksheets(1).Range("b" & i).Value)) >= CLng(CDate(TextBox1.Text)) _

And CLng(CDate(Worksheets(1).Range("b" & i).Value)) <= CLng(CDate(TextBox2.Text)) Then

sat1 = i: sat = "0000" + sat1: sat = Right(sat, 5) + " = "

ekle = (" - " & (Worksheets(1).Range("b" & i).Value) & " - " _

& (Worksheets(1).Range("f" & i).Value))

ListBox1.AddItem (sat + ekle)

End If

TextBox3.Text = ListBox1.ListCount

Next i

End Sub

teşekkür ederim denedim ama olmadı yada ben yapamadım