• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Seçilen Kod'a göre Toplam ve Adet alma

U

unalh

Katılım
15 Ocak 2009
Mesajlar
257
Excel Vers. ve Dili
Türkçe 2010
S.a Arkadaşla

Ekteki listede yapmaya çalıştığım şey

Kayıtlı kodlardan seçim yapınca

İlgili aylara ait toplam tutar ve toplam miktarları nasıl Textlere yazdırabilim.

Örn.

A1011 seçildiğinde

Miktar Tutar

Şubat 14.636 27.076,96

Mart 254 1.778,00
 

Ekli dosyalar

Dosyanız ektedir..:cool:
Kod: 
Option Base 1

Private Sub CheckBox1_Click()
Dim ilk As Date, son As Date, i As Long, ilkyil As Long, sonyil As Long
Dim t As Long
If ComboBox1.ListCount < 1 Then Exit Sub
If CheckBox1.Value = False Then
    Call ComboBox1_Click
    Exit Sub
End If
Range("A1").AutoFilter
ilkyil = Year(WorksheetFunction.Min(Range("F2:F65536")))
sonyil = Year(WorksheetFunction.Max(Range("F2.F65536")))
For i = 1 To 12
    Controls("TextBox" & i + 2).Text = Format(0, "#,##0")
    Controls("TextBox" & i + 102).Text = Format(0, "#,##0.00")
Next i
For t = ilkyil To sonyil
    For i = 1 To 12
        ilk = DateSerial(t, i, 1)
        son = DateSerial(t, i + 1, 1 - 1)
        Range("A1").AutoFilter Field:=6, Criteria1:=">=" & CLng(ilk), Operator:=xlAnd, Criteria2:="<=" & CLng(son)
        Controls("TextBox" & i + 2).Text = Format(CDbl(Controls("TextBox" & i + 2).Value) _
        + WorksheetFunction.Subtotal(9, Range("C2:C65536")), "#,##0")
        Controls("TextBox" & i + 102).Text = Format(CDbl(Controls("TextBox" & i + 102).Value) _
        + WorksheetFunction.Subtotal(9, Range("E2:E65536")), "#,##0.00")
    Next i
Next
End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox1_Click()
Dim ilk As Date, son As Date, i As Long, ilkyil As Long, sonyil As Long
Dim t As Long
If ComboBox1.ListCount < 1 Then Exit Sub
For i = 1 To 12
    Controls("TextBox" & i + 2).Text = Format(0, "#,##0")
    Controls("TextBox" & i + 102).Text = Format(0, "#,##0.00")
Next
Range("A1").AutoFilter
If IsNumeric(ComboBox2.Value) Then
    ilkyil = ComboBox2.Value
    sonyil = ComboBox2.Value
    Else
    ilkyil = Year(WorksheetFunction.Min(Range("F2:F65536")))
    sonyil = Year(WorksheetFunction.Max(Range("F2:F65536")))
End If
Range("A1").AutoFilter Field:=2, Criteria1:=ComboBox1.Value
For t = ilkyil To sonyil
    For i = 1 To 12
        ilk = DateSerial(t, i, 1)
        son = DateSerial(t, i + 1, 1 - 1)
        Range("A1").AutoFilter Field:=6, Criteria1:=">=" & CLng(ilk), Operator:=xlAnd, Criteria2:="<=" & CLng(son)
        Controls("TextBox" & i + 2).Text = Format(CDbl(Controls("TextBox" & i + 2).Value) _
        + WorksheetFunction.Subtotal(9, Range("C2:C65536")), "#,##0")
        Controls("TextBox" & i + 102).Text = Format(CDbl(Controls("TextBox" & i + 102).Value) _
        + WorksheetFunction.Subtotal(9, Range("E2:E65536")), "#,##0.00")
    Next i
Next
End Sub

Private Sub ComboBox2_Change()
Call ComboBox1_Click
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim z As Object, list(), i As Long, ilkyil As Date, sonyil As Date
Sheets("Sayfa1").Select
Range("A1").AutoFilter
sat = Cells(65536, "B").End(xlUp).Row
If sat < 2 Then
    If ActiveSheet.AutoFilterMode = False Then ActiveSheet.AutoFilterMode = True
    Exit Sub
End If
list = Range("B2:B" & sat).Value
Set z = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(list)
    If Not z.exists(list(i, 1)) Then
        z.Add list(i, 1), Nothing
    End If
Next
ilkyil = WorksheetFunction.Min(Range("F2:F" & sat))
sonyil = WorksheetFunction.Max(Range("F2:F" & sat))
For i = Year(ilkyil) To Year(sonyil)
    ComboBox2.AddItem i
Next
ComboBox2.AddItem "HEPSİ"
ComboBox1.list = Application.Transpose(Array(z.keys))
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If ActiveSheet.AutoFilterMode = True Then Range("A1").AutoFilter
Range("A1").AutoFilter
End Sub
 

Ekli dosyalar

Evren Hocam ve İhsan Bey Cevaplarınız için teşekkür ederim.


Evren Hocam;
Bu formülü tüm aylara uyarlamaya çalıştım fakat başarılı olamadım dosyayı ekte gönderiyorum uyarlayabilirmisiniz ?
Birde Tümünü göster diye bir CheckBox ekledim bunu tıkladığımızda koda bakmaksızın tüm ürünlerin ay toplamlarını ve miktarlarını aldırabilirmiyiz ?

İlginize teşekkür ederim.
 

Ekli dosyalar

unalh' Alıntı:
Evren Hocam ve İhsan Bey Cevaplarınız için teşekkür ederim.


Evren Hocam;
Bu formülü tüm aylara uyarlamaya çalıştım fakat başarılı olamadım dosyayı ekte gönderiyorum uyarlayabilirmisiniz ?
Birde Tümünü göster diye bir CheckBox ekledim bunu tıkladığımızda koda bakmaksızın tüm ürünlerin ay toplamlarını ve miktarlarını aldırabilirmiyiz ?

İlginize teşekkür ederim.
Genişletmek için tıkla ...

Dosyayı istediğiniz şekilde günceledim.
Dosyayı 2 numaralı mesajdan indirebilirsiniz.:cool:
 
Evren hocam ilginiz için çok teşekkür ederim.

Hocam buna bağlı olarak bir soru daha sormak istiyorum müsait olursanız ?

Yıl seçimi yapmak mümkün olurmu ( F )sütunundan
Dosyayı yedeklediğimde 2010-2011-2012 gibi devam edecek buna bağlı olarak geçmiş yılların değerlerini toplamak isteriz.


Hayırlı işler.
 

Ekli dosyalar

unalh' Alıntı:
Evren hocam ilginiz için çok teşekkür ederim.

Hocam buna bağlı olarak bir soru daha sormak istiyorum müsait olursanız ?

Yıl seçimi yapmak mümkün olurmu ( F )sütunundan
Dosyayı yedeklediğimde 2010-2011-2012 gibi devam edecek buna bağlı olarak geçmiş yılların değerlerini toplamak isteriz.


Hayırlı işler.
Genişletmek için tıkla ...

Niye tüm bunları baştan söylemiyorsunuz anlayamıyorum.
Dosyanızı güncelledim.2 nuumaralı mesajdan indirebilirsiniz.:cool:
 
Evren Hocam ilginize çok teşekkür ederim.

Hayırlı işler.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst