Sutun başlığına göre icmal düzenleme

Kısa Açıklama

Sutun başlığına göre icmal düzenleme isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Sub Malzeme_Cikis()
Sheets("kontrol").Range("I4:J204").ClearContents
t = Timer
Application.ScreenUpdating = False
Set S1 = Sheets("Malzeme_Toplu_Cikis")
Set S2 = Sheets("kontrol")
sat = 3
For i = 8 To 70
If S1.Cells(1, i) <> "NO" And S1.Cells(1, i) <> "BEDEN" Then
sat = sat + 1
S2.Cells(sat, "I") = S1.Cells(1, i)
S2.Cells(sat, "J") = WorksheetFunction.Sum(S1.Range(S1.Cells(2, i), S1.Cells(Rows.Count, i)))
End If
Next i
'S2.Range("I4:J38").Sort S2.Range("J4"), 2
Application.ScreenUpdating = True
MsgBox "İşlem Tamam " & Format(Timer - t, "Fixed") & "Sn."
End Sub
(kodlar @Feyzullah hocama aittir)

Ekli örnek dosyamda yukarıdaki kod ile Kontrol sayfasında ürün başlığına göre icmal çıkartabiliyorum. Ancak ben icmal sayfasında belirttiğim şekilde Malzeme_Toplu_Cikis sayfasındaki C sutununda bulunan Cinsiyet, J sutunundan sonraki sutun başlığındaki ürün ismi, ürün isminin sağında bu gürüne ait Beden yada No ile belirtilen sutundaki değeri baz alarak belirttiğim tarih aralığını Malzeme_Toplu_Cikis sayfasındaki G sutunundaki tarihlere göre Adet toplamlarını almak istiyorum.
Almak istediğim sonuç icmal sayfasında gösterdiğim şekilde olacak. Yardımcı olacak hocalarıma şimdiden teşekkür ederim. Saygılarımla.
 
Ekli dosyalar
Moderatörün son düzenlenenleri:
Geri
Üst