Çözüldü Hücre Değerine Göre Gruplandırma Ve Ortalama

[Gata]

A sütundaki sayıların G1 Hücresindeki değerine göre gruplara ayrılmasını aynı zamanda G1 Hücresindeki değere göre ortalama alınmasını istiyorum.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
İstediğiniz bu mudur?

 

[Gata]

Teşekkür ederim hocam

 

[Tevfik_Kursun]

Rica ederim, iyi çalışmalar

 

[Erkan Akayay]

Dizilerle farklı bir çözüm olsun. En alttaki satırlar ortalamadır.

Sub Gruplama()
Dim kaynak()
Dim hedef()
Dim sayac As Integer

With Application.WorksheetFunction
kaynak = .Transpose(Range("A2:A" & Range("A1").End(xlDown).Row).Value2)
ReDim hedef(1 To Range("G1").Value2, 1 To .RoundUp((Range("A1").End(xlDown).Row / Range("G1").Value2), 0) + 1)
   
    For dizisatir = LBound(hedef, 1) To UBound(hedef, 1)
        For dizisutun = LBound(hedef, 2) To UBound(hedef, 2) - 1
            sayac = sayac + 1
            hedef(dizisatir, dizisutun) = kaynak(sayac)
            hedef(dizisatir, UBound(hedef, 2)) = .Round(.Average(.Index(hedef, dizisatir)), 2)
            If sayac = Range("A1").End(xlDown).Row - 1 Then Exit For
        Next dizisutun
       
    Next dizisatir
Range("C2").Resize(UBound(hedef, 2), UBound(hedef, 1)) = .Transpose(hedef)
End With
Erase kaynak: Erase hedef: sayac = Empty: dizisatir = Empty: dizisutun = Empty
End Sub

 

[Gata]

Hocam teşekkür ederim ilginize kodu ben çalıştıramadım. örnek dosya paylaşablirmisiniz selamlar

 

[Erkan Akayay]

Buyrun

 

[Gata]

Çok teşekkür ederim hocam iyi akşamlar allaha emanet olun selamlar