Skip to main content

AccessTr.neT


açılır listeyle veri detayı

Aysel Arslan
Aysel Arslan
5
2688

açılır listeyle veri detayı

Çözüldü #1
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
.rar KASA.rar (Dosya Boyutu: 20,36 KB | İndirme Sayısı: 31)
Son Düzenleme: 21/11/2014, 18:01, Düzenleyen: Aysel Arslan.
Cevapla
#2
bilen kimse yok mu
Cevapla
#3
KİMSE YARDIM ETMİYECEK Mİ ?
Cevapla
#4
80 kişiden bir kişi bile yardım etmeyecek mi
Cevapla
#5
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
Cevapla
#6
(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
.rar KASA.rar (Dosya Boyutu: 27,02 KB | İndirme Sayısı: 13)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task