(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
açılır listeyle veri detayı
Bu Konudaki Yorumlar |
açılır listeyle veri detayı - Yazar: Aysel Arslan - 20/11/2014, 18:35
Cvp: açılır listeyle veri detayı - Yazar: Aysel Arslan - 21/11/2014, 11:21
Cvp: açılır listeyle veri detayı - Yazar: Aysel Arslan - 21/11/2014, 13:26
Cvp: açılır listeyle veri detayı - Yazar: Aysel Arslan - 21/11/2014, 17:07
Cvp: açılır listeyle veri detayı - Yazar: simendifer - 21/11/2014, 17:18
Cvp: açılır listeyle veri detayı - Yazar: Aysel Arslan - 21/11/2014, 17:59
|
Konuyu Okuyanlar: 1 Ziyaretçi