Bir parçanın Tarihe göre kullanılan toplam adedini bulmak istiyorum

[mmxcakir]

Merhaba,

ekli dosyada göndermiş olduğum verilerde aramış olduğum parçanın belli bir tarihte toplam ne kadar kullanıldığını bulmak istiyorum. Yardımınız için şimdiden teşekkürler...

 

[Vedat Özer]

Selamlar,


Belirttiğiniz tarihten küçük veya eşitmi yoksa aynı tarihmi ?


Başka toplanacak sayfanız olacakmı ?

 

[mmxcakir]

Selamlar,


Belirttiğiniz tarihten küçük veya eşitmi yoksa aynı tarihmi ?


Başka toplanacak sayfanız olacakmı ?

Merhaba;

Aynı tarih olacak.

Dosya içindeki tüm sayfalarda numarasını yazdığım parçayı A stünlarında arayıp, yine E sütunlarında 26 Eylülden 15 Aralığa kadarki tarih aralığında gün gün toplam ihtiyaç miktarlarını(C sütunundaki) bulacağım.(yani hem parça hem tarih arayıp o tarihteki toplam ihtiyaç/kullanım adedini bulmak istiyorum) umarım açıklayıcı olabilmişimdir. tekrar teşekkürler...

 

[Vedat Özer]

Selamlar,


Aşagıdaki kodları boş bir modül ekleyip butona bağlayarak çalıştırın,

Option Explicit
Sub bulayım_şu_toplamları_61()
Dim sv, sirvan, beşiktaş, king As Date
Dim bordo, mavi, asi
Set mavi = Sheets("PARÇALARIN TARIHLERE GORE KULL.")
beşiktaş = MsgBox(mavi.Range("B1") & " Verilerini Topluyorum", vbYesNo, "Onay")
If beşiktaş = vbNo Then Exit Sub
Application.ScreenUpdating = False
king = Time
mavi.Range("B2:B" & Rows.Count).ClearContents
For beşiktaş = 2 To mavi.Cells(Rows.Count, "A").End(xlUp).Row
sirvan = 0
For sv = 2 To Sheets.Count
Set bordo = Sheets(sv)
asi = bordo.Range("A" & Rows.Count).End(xlUp).Row
bordo.Range("A1:E" & asi).AutoFilter field:=5, Criteria1:=mavi.Cells(beşiktaş, "A").Value
bordo.Range("A1:E" & asi).AutoFilter field:=1, Criteria1:=mavi.Range("B1")
sirvan = sirvan + WorksheetFunction.Subtotal(9, bordo.Range("C:C"))
bordo.Range("A1:E" & asi).AutoFilter
Next
mavi.Cells(beşiktaş, "B") = sirvan
Next
MsgBox Format(king - Time, "hh:mm:ss") & " Sürede" & vbLf _
& mavi.Range("B1") & " Verilerini Topladım", , "Bitiş "
End Sub

 

[mmxcakir]

Selamlar,


Aşagıdaki kodları boş bir modül ekleyip butona bağlayarak çalıştırın,

Option Explicit
Sub bulayım_şu_toplamları_61()
Dim sv, sirvan, beşiktaş, king As Date
Dim bordo, mavi, asi
Set mavi = Sheets("PARÇALARIN TARIHLERE GORE KULL.")
beşiktaş = MsgBox(mavi.Range("B1") & " Verilerini Topluyorum", vbYesNo, "Onay")
If beşiktaş = vbNo Then Exit Sub
Application.ScreenUpdating = False
king = Time
mavi.Range("B2:B" & Rows.Count).ClearContents
For beşiktaş = 2 To mavi.Cells(Rows.Count, "A").End(xlUp).Row
sirvan = 0
For sv = 2 To Sheets.Count
Set bordo = Sheets(sv)
asi = bordo.Range("A" & Rows.Count).End(xlUp).Row
bordo.Range("A1:E" & asi).AutoFilter field:=5, Criteria1:=mavi.Cells(beşiktaş, "A").Value
bordo.Range("A1:E" & asi).AutoFilter field:=1, Criteria1:=mavi.Range("B1")
sirvan = sirvan + WorksheetFunction.Subtotal(9, bordo.Range("C:C"))
bordo.Range("A1:E" & asi).AutoFilter
Next
mavi.Cells(beşiktaş, "B") = sirvan
Next
MsgBox Format(king - Time, "hh:mm:ss") & " Sürede" & vbLf _
& mavi.Range("B1") & " Verilerini Topladım", , "Bitiş "
End Sub

üSTAD çok teşekkür ediyorum. Çalıştı ve çok işime yaradı beni büyük dertten kurtardın.

 

[Vedat Özer]

Rica Ederim

İyi çalışmalar dilerim.