seç topla makro

[ilkersan]

merhaba
listedeki ürünlerin bir sonraki sayfaya model olarak toplam adetlerinin aktarılması...

İlgi ve alakanıza şimdiden teşekkürler

 

[N.Ziya Hiçdurmaz]

Yanıt

Veri alttoplam ile yapılmış örnek

 

[ilkersan]

teşekürler hocam
elinize sağlık macro ile yapma yolu var mı acaba

 

[ilkersan]

teşekürler hocam
elinize sağlık macro ile yapma yolu var mı acaba

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub ALT_TOPLAM()
Set S1 = Sheets("ORTAK DEPOLAR")
Set S2 = Sheets("xxx")
S1.Select
[A3].Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
S2.Select
Application.DisplayAlerts = False
[A3].PasteSpecial
[A:D].Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(4), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Application.DisplayAlerts = True
End Sub

 

[ilkersan]

merhaba hocam

çok masraflı oluyorum ama sadece toplamları veren bir makro varmıdır

ilgi ve sabrınıza teşekürler