Belli kriterlere göre toplam aldırıp, başka sayfaya aktarma..

[manly]

Ekte gönderdiğim dosyayı çalıştırdığımızda ekrana gelen menüde MALZEME TOPLAMLARI butonuna tıkladığımda şunu yapmasını istiyorum...

1. Öncelikler " Z " sütununde * olanlar süzülecek.

2. Daha sonra " C " sütunundaki stok numaralarına göre sıralama yapılacak..

3. Sıralama yapıldıktan sonra " W " sütununda bulunan sipariş durumlarına göre kendi aralarında " G " sütunundaki miktarları toplatarak SONUÇ sayfasına aktarılmasını istiyorum...

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton15_Click()
    Dim S1 As Worksheet, S2 As Worksheet, X As Long
    Dim Satır As Long, Y As Byte, Son_Satır As Long, Formul As String
    
    Application.ScreenUpdating = False
    
    Set S1 = Sheets("2011 SİPARİŞLER")
    Set S2 = Sheets("SONUÇ")
    
    S2.Range("A2:J65536").ClearContents
    S2.Range("C2:J65536").NumberFormat = "General"
    Son_Satır = S1.Cells(65536, 3).End(3).Row
    
    For X = 2 To Son_Satır
        If S1.Cells(X, 26) = "*" Then
            If WorksheetFunction.CountIf(S2.Range("A:A"), S1.Cells(X, 3)) = 0 Then
                Satır = S2.Range("A65536").End(3).Row + 1
                S2.Cells(Satır, 1) = S1.Cells(X, 3)
                S2.Cells(Satır, 2) = S1.Cells(X, 6)
            End If
        End If
    Next
            
    For X = 2 To S2.Cells(65536, 1).End(3).Row
        For Y = 3 To 9
            Formul = "=SUMPRODUCT(('2011 SİPARİŞLER'!C2:C65536=""" & S2.Cells(X, 1) & """)*('2011 SİPARİŞLER'!Z2:Z65536=""*"")*('2011 SİPARİŞLER'!W2:W65536=""" & S2.Cells(1, Y) & """)*('2011 SİPARİŞLER'!G2:G65536))"
            Formul = Replace(Formul, 65536, Son_Satır)
            S2.Cells(X, Y) = Evaluate(Formul)
        Next
        S2.Cells(X, 10) = WorksheetFunction.Sum(S2.Range("C" & X & ":I" & X))
    Next
    
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[manly]

Korhan hocam çok teşekkürler, ellerinize sağlık...Allah razı olsun...

 

[manly]

Korhan hocam,

Yukarıdaki çalışmaya benzer bir kod çalışması yaptım. Ama veriler aktarmıyor..

Ekte gönderdiğim dosyayı çalıştırdığımızda ekrana gelen menüde TÜM TOPLAMLAR butonuna tıkladığımda şunu yapmasını istiyorum...

1. " C " sütunundaki stok numaralarına göre sıralama yapılacak..

2. Sıralama yapıldıktan sonra " W " sütununda bulunan sipariş durumlarına göre kendi aralarında " G " sütunundaki miktarları toplatarak TÜMSONUÇ sayfasına aktarılmasını istiyorum...