+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: açılır listeyle veri detayı (/konu-acilir-listeyle-veri-detayi.html)
açılır listeyle veri detayı - Aysel Arslan - 20/11/2014
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
Cvp: açılır listeyle veri detayı - Aysel Arslan - 21/11/2014
bilen kimse yok mu
Cvp: açılır listeyle veri detayı - Aysel Arslan - 21/11/2014
KİMSE YARDIM ETMİYECEK Mİ ?
Cvp: açılır listeyle veri detayı - Aysel Arslan - 21/11/2014
80 kişiden bir kişi bile yardım etmeyecek mi
Cvp: açılır listeyle veri detayı - simendifer - 21/11/2014
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 SubCvp: açılır listeyle veri detayı - Aysel Arslan - 21/11/2014
(21/11/2014, 17:18)simendifer yazdı: bu kodu bir denermisinizteşekkür ederim denedim ama olmadı yada ben yapamadım
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