iki tarihi arası bul ve alttoplam al.

Katılım
4 Nisan 2007
Mesajlar
12
Excel Vers. ve Dili
2003
Merhaba Arkadaşlar.
Siteden bayağı bi faydalanarak yapmaya çalıştığım bir uygulama var.
Ben kendime bayağı bi uyarladım ama bazı eklentile yapmak gerekiyor onu yapamadım. Yardımcı olursanız çok sevinirim. Takılıp kaldığım daha doğrusu yapmasını bilmediğim yer örnekte göreceksiniz süzdüğüm datayı iki tarih arası süzmek istiyorrum. ilk tarih son tarih ve arat. Bulunanlar listboxta gözüküyor. Listboxta gözüken bu stoklarımında giriş ve çıkış toplamlarını almak istiyorum.
Anlatabildimmi bilmiyorum ama yarım kalmış örneğim sanırım ne yapmak istediğimi tam olarak anlatacaktır. Yardımlarınız için teşekkürler.
İyi çalışmalar.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Textbox1'in Change olayını aşağıdaki şekilde düzenleyip denermisiniz?:cool:
Kod:
Private Sub TextBox1_Change()
    Dim MyRange As Range, Veri As Range
    Dim noA As Integer, giris As Single, cikis As Single

    ListBox1.Clear
    With Worksheets("data")
        Set Veri = .Range(.Range("A2"), .Range("A65536").End(xlUp))
    End With
    For Each MyRange In Veri
        If LCase(MyRange) Like LCase(TextBox1 & "*") Then
            ListBox1.AddItem MyRange
            ListBox1.List(ListBox1.ListCount - 1, 1) = MyRange.Row
            giris = giris + Cells(MyRange.Row, "D").Value
            cikis = cikis + Cells(MyRange.Row, "E").Value
        End If
    Next
    TextBox15.Value = giris: TextBox16.Value = cikis
End Sub
 
Katılım
4 Nisan 2007
Mesajlar
12
Excel Vers. ve Dili
2003
Merhaba sn Sezar. Yardımınız için teşekkür ederim. çalışmanın ikinci kısmı istediğim gibi olmuş sağolun. Lakin g stununda ki tarihe göre ilk olarak süzmemiz gerekiyor. Üstteki textbox13 ve 14 tarih lerimizi yazıp textbox1'e de aranacak kelimeyi girdiğimde bu iki tarih arası bulunanlar listboxta görünecek ve bunların toplamlarıda aşağıdaki kutucuklarda gözükecek. Bu şekilde yapmak mümkünsü lütfen yardımcı olurmusunuz. İyi çalışmalar.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Aşağıdaki kodları denermisiniz?:cool:
Kod:
Private Sub TextBox1_Change()
    Dim ilk_tarih As Date, son_tarih As Date
    Dim giris As Single, cikis As Single
    Dim i As Long, sat As Long
    ilk_tarih = CDate(TextBox13.Value)
    son_tarih = CDate(TextBox14.Value)
    ListBox1.Clear
    sonsat = Cells(65536, "A").End(xlUp).Row
    sat = 0
    For i = 2 To sonsat
        If Cells(i, "G").Value >= ilk_tarih And Cells(i, "G").Value <= son_tarih _
        And WorksheetFunction.Proper(Cells(i, "A").Value) = WorksheetFunction.Proper(TextBox1.Value) Then
        
            ListBox1.AddItem
            ListBox1.Column(0, sat) = Cells(i, "A").Value
            ListBox1.Column(1, sat) = i
            giris = giris + Cells(i, "D").Value
            cikis = cikis + Cells(i, "E").Value
            sat = sat + 1
        End If
    Next
    TextBox15.Value = giris: TextBox16.Value = cikis
End Sub
 
Katılım
4 Nisan 2007
Mesajlar
12
Excel Vers. ve Dili
2003
Merhaba sn Sezar,
Verdiğiniz kod çalışıyor çok teşekkür ederim. Problemimi çözdü yalnız şöyle bir problemde ortaya çıktı.
Ben textbox1 e daha arayacağım malzemenin ilk harfini girdiğimde o harfle başlayan malzemeler listboxsta sıralnmaya başlıyordu.
Ama şuan aradığım malzemenin tam adını tamamıyle girmezsem arama yapmıyor.

Örneğin: Kalem arıycam K harfine basınca K ile başlayanlar sıralanıyordu. Şimdi ise hiçbişey çıkmıyor. İllaki Kalem yazmalıyımki kalemler çıksın.

Bu problmi nasıl çzeriz.???
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Ekli dosyayı inceleyiniz.:cool:
 
Katılım
4 Nisan 2007
Mesajlar
12
Excel Vers. ve Dili
2003
İŞTE BU:):):)
çok teşekkür ederim. Sağolasın. İyi çalış:hihoho: malar
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Rica ederim.
İyi çalışmalar.:cool:
 
Üst