Ürünlerin kilerdeki mevcut miktarını ve toplam tutarını diğer sayfaya raporlama

[sdegirmenci]

Değerli Hocalarım Merhaba;
Ekteki dosyamda Kod ile Ürünlerin kilerdeki mevcut miktarını hesaplayıp, miktarını , ve toplam tuarını rapor olarak "Stok rapor" sayfasına raporlamak konusunda yardımcı olabilirseniz çok sevinirim. Saygılarımla

 

[Orion1]

Dosyanız ektedir.

Sub urunleritopla59()
Dim sat1 As Long, sat2 As Long, i As Long, sh As Worksheet
Sheets("Stok").Select
Set sh = Sheets("Stok Rapor")
sat1 = Cells(Rows.Count, "D").End(xlUp).Row
sat2 = 5
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
sh.Range("C5:H" & Rows.Count).ClearContents
For i = 6 To sat1
    If WorksheetFunction.CountIf(Range("E6:E" & i), Cells(i, "E").Value) = 1 Then
        sh.Cells(sat2, "C").Value = sat2 - 4
        sh.Cells(sat2, "D").Value = Cells(i, "D").Value
        sh.Cells(sat2, "E").Value = Cells(i, "E").Value
        sh.Cells(sat2, "F").Value = Cells(i, "F").Value
        giren = WorksheetFunction.SumIf(Range("E6:E" & sat1), Cells(i, "E").Value, Range("G6:G" & sat1))
        cikan = WorksheetFunction.SumIf(Range("E6:E" & sat1), Cells(i, "E").Value, Range("H6:H" & sat1))
        sh.Cells(sat2, "G").Value = giren - cikan
        sh.Cells(sat2, "H").Value = (giren - cikan) * (Cells(i, "I").Value)
        sat2 = sat2 + 1
    End If
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
sh.Select
MsgBox "işlem gerçekleşti." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[sdegirmenci]

Değerli Evren Hocam;
İlginize çok teşekkür ederim, her zamanki gibi süpersiniz, Tam istediğim gibi oldu. Tekrar teşekkür ederim işleriniz kolay gelsin.

 

[Orion1]

Değerli Evren Hocam;
İlginize çok teşekkür ederim, her zamanki gibi süpersiniz, Tam istediğim gibi oldu. Tekrar teşekkür ederim işleriniz kolay gelsin.

2 nolu dosyada aritmetik işlem hatası yapıyordu.Sonradan farkettim.
Onu değiştirdim.
2 nolu mesajdan dosyayı tekrar indiriniz.

 

[sdegirmenci]

Teşekkür ederim hocam,

 

[Orion1]

Teşekkür ederim hocam,

Rica ederim.