Toplamı diğer hücrelere dağıtmak

[yavuzkaraslan]

bir hücrede bulunan rakamı aralıklara göre diğer hücrelere dağıtmak

 

[Murat OSMA]

Nasıl bir dağıtım olacak bu ? Kriter(ler) nedir ?

 

[yavuzkaraslan]

toplam 174 satış olduğunu varsayalım
ilk aralık olan 0-25 aralığı için 25 adet
ikinci aralık olan 26-50 arası için 25 adet
üçüncü aralık olan 51-75 arası için yine 25 adet
dördüncü aralık olan 76- 100 aralığı için yine 25 adet
kalan 74 adet satış da 100+ olan aralığa denk gelecek.
SATIŞIN 35 ADET OLDUĞUNU KABUL EDERSEK
0-25 aralığına 25 adet
26-50 aralığı için 10 adet satış olacak

 

[Murat OSMA]

Anladım.

Bir bakıp dönüş yapacağım.

 

[Murat OSMA]

Dağıtım yapmak istediğiniz satırdaki ilk (0-25 ya da 0-30 - B5 ve B9 hücrelerinden bahsediyorum) hücreyi seçin ve şu kodları bir deneyin;

Sub Toplamı_Dağıt()
    On Error Resume Next
    For i = 2 To 6
        ayır = Split(Cells(ActiveCell.Row, i), "-")
        Cells(ActiveCell.Row - 1, i) = (ayır(1) - 1) - ayır(0) + 1 '
    Next i
        toplam = [b2]
        böl = 5: a = 1
        elma = ActiveCell.Offset(-1, 0).Value
    For i = 2 To 6
    If (toplam / böl) > elma Then
        al = elma - (toplam / böl)
        ActiveCell.Offset(1, 0).Value = ((toplam / böl) + al)
    If ActiveCell.Offset(1, 0).Value <> "" Then
        Range(Cells(ActiveCell.Offset(1, 0).Row, 3), _
        Cells(ActiveCell.Offset(1, 0).Row, 5)).Value = Cells(ActiveCell.Row - 1, 3) + 1
    End If
    If toplam > (4 * ((toplam / böl) + al)) Then
        sonuç = sonuç + Cells(ActiveCell.Row + 1, i)
    End If
    End If
    Next i
    ActiveCell.Offset(1, 4).Value = toplam - sonuç
End Sub

 

[yavuzkaraslan]

teşekkür ederim bunu normal formülde yazabilirmiyiz