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
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