İki Tarih Arası Mükerersiz liste ve toplam aldırma.

[Vedat Özer]

Selamlar,

Çıkarma sayfa sekmesindeki b sutunundaki bilgileri tekrarsız olarak sayfa1 aktarılması için gerekli kodu sayın ömer hocamızın çalışmalarından aldım.
Ama iki tarih arası nasıl toplam aldıracagı bir türlü yapamamadım.

Hamitcan hocamızın toplam.çarpım vb ilgili çalışmasına baktım fakat bir türlü kendi dosyama ayarlamadım.

Örnek dosya ekte umarım doğru anlatmışımdır.

 

[Ömer]

Merhaba,

Kodları aşağıdakilerle değiştiriniz..

Sub SiralaSay()
Set Sc = Sheets("Çıkarma")
Sheets("Sayfa1").Select
 
Application.ScreenUpdating = False
 
[A:C].Clear
 
son = Sc.Cells(Rows.Count, "B").End(xlUp).Row
    Sc.Range("B2:B" & son).AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Range("A1"), Unique:=True
 
alan1 = "'Çıkarma'!" & Range("B3:B" & son).Address
alan2 = "'Çıkarma'!" & Range("C3:C" & son).Address
alan3 = "'Çıkarma'!" & Range("D3:D" & son).Address
alan4 = "'Çıkarma'!" & Range("E3:E" & son).Address
 
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
 
[COLOR=black]    Cells(i, "B") = [COLOR=blue][B]Evaluate([/B][/COLOR]"=SUMPRODUCT((" & alan1 & "=" & Cells(i, "A").Address _
    & ")*(" & alan2 & ">=H1)*(" & alan2 & "<=J1)*(" & alan3 & "))"[/COLOR][COLOR=blue][B])[/B][/COLOR]
 
    Cells(i, "C") = "=SUMPRODUCT((" & alan1 & "=" & Cells(i, "A").Address _
    & ")*(" & alan2 & ">=H1)*(" & alan2 & "<=J1)*(" & alan4 & "))"
 
Next i
 
Application.ScreenUpdating = True
End Sub

B sütunu için ( mavi renk ) Evaluate kullandım. Bu şekilde formülü değil değeri görürsünüz. Size uygun olanı kendinize göre düzenlersiniz..

.

 

[Vedat Özer]

Selamlar,

Hocam kodlar için sağolun,
Hocam bu şekilde dosya işimi görüyo fakat biraz daha hızlı olabilirmi raporlama.

Şimdiden teşekkürler