alt ortalama alma

[spongebob123]

Merhaba ben 2 sütundaki verilerimin alt ortalamasını makro ile aldırmak istiyorum alttoplam kodlarına benzer bir şey yazmaya çalıştım fakat olmadı. Formülle değil makroyla yazmam gerek yardımcı olursaniz sevinirim.

 

[apocalyt]

Sub daylight()
Application.ScreenUpdating = False
Sheets(2).Range("b2:c1000").ClearContents
Range("a2:b1000").Sort key1:=Range("a2")
For x = 2 To 1000
If Cells(x, 1) = "" Then GoTo gel
ben = Cells(x, 2)
sen = 1
For y = x + 1 To 1000
If Cells(x, 1) = Cells(y, 1) Then
ben = ben + Cells(y, 2)
sen = sen + 1
Else
Sheets(1).Cells(x, 1).Copy
Sheets(2).Cells(Sheets(2).[b1000].End(3).Row + 1, 2).PasteSpecial
Sheets(2).Cells(Sheets(2).[c1000].End(3).Row + 1, 3) = ben / sen
ben = 0
x = x + sen - 1
Exit For
End If
Next y
Next x
gel:
Sheets(2).Select
hey = Sheets(2).[b1000].End(3).Row + 1
Sheets(2).Cells(hey, 2) = "Toplam"
Sheets(2).Cells(hey, 3) = WorksheetFunction.Sum(Sheets(2).Range("c" & 2 & ":c" & hey))
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[spongebob123]

bu kırmızıların ortalamasını alacak bir kısım daha olmalı tekrar eden malzemelere göre ayrı bir yere yazsa çok iyi olur yardımınız için çok teşekkür ederim.

 

[apocalyt]

siz istediğiniz taslağı hazırlayın..kodu ona göre yazmayı deneriz.

 

[spongebob123]

İlk eklediğim dosyadakilerin malzeme numarasına göre alt ortalamasını alıp başka bir yere yazan makro istiyorum taslak bu şekilde olacak yaptığınız alt toplamların ortalaması alınacak sadece ve başka bir sayfaya yazması gerek daha devamında onlar üzerinden işlem yapılacak çünkü. Örnek için bir dosya ekledim bunu normal yaptım fakat makro olması gerek.

 

[apocalyt]

yukarıdaki mesajımda makroyu değiştirdim..bir deneyin..sayfa 2 ye ortalamaları aktarıyor..siz sayfa 2 de uygun yerlere başlıkları atarsınız..

 

[spongebob123]

Çok teşekkürler ihtiyacımı tam anlamıyla gördü çok sağolun şimdi bunlar üzerinden işlem yapacağım

 

[kelamkutusu]

Bu makro gerçekten çok işimize yarayacak. Çok teşekkürler.