Sayıları gruplandırma

[Onurssssss]

Merhabalar 20 bin satırlı bir tabloyu 2000 er olarak ayrı ayrı numaralandırma istiyorum örneğin aşağıdaki tablod olduğu gibi değerler var 2000 toplamını geçmeden 2000 e gelene kadar 1.grup diğer 2000 toplamına gelene kadar 2. Grup diğer 2000 toplamına gelene kadar 3 değerini verdirmek gibi bir tabloya ihtiyacım var

1.satır - 100 /1
2.satır -900 /1
3. Satır 900 /1
4.satır -500 /2
5.satır 1400 /2
6. Satır -200 /3

 

[Korhan Ayhan]

Merhaba,

Verilerinizin A sütununda olduğunu varsaydım.

B1 hücresine uygulayıp alta doğru sürükleyiniz.

=IF(A1="";"";ROUNDDOWN(SUM(A$1:A1)/2000;0)+1)

 

[Onurssssss]

Merhaba,

Verilerinizin A sütununda olduğunu varsaydım.

B1 hücresine uygulayıp alta doğru sürükleyiniz.

=IF(A1="";"";ROUNDDOWN(SUM(A$1:A1)/2000;0)+1)

Merhaba teşekkürler ancak isteğime tam karşılık gelmiyor formül
İstediğim yukarda örnekteki gibi 4. Ve 5. Satır toplamları 1900 yapıyor 6.satırı 3.grup olarak yapmasını istiyorum her grubu kendi içinde 0dan 2000e kadar maximum 2000 altında kalabilir

 

[Onurssssss]

Merhabalar 20 bin satırlı bir tabloyu 2000 er olarak ayrı ayrı numaralandırma istiyorum örneğin aşağıdaki tablod olduğu gibi değerler var 2000 toplamını geçmeden 2000 e gelene kadar 1.grup diğer 2000 toplamına gelene kadar 2. Grup diğer 2000 toplamına gelene kadar 3 değerini verdirmek gibi bir tabloya ihtiyacım var

1.satır - 100 /1
2.satır -900 /1
3. Satır 900 /1
4.satır -500 /2
5.satır 1400 /2
6. Satır -200 /3

 

[Onurssssss]

A sütunu satırdaki toplamları ifade ediyor b sütünü bir üstündekinle topladığımda cıkan sonuç 2000 den büyükse orada bırakıp altta tekrar toplamaya başlıyor ben renklendirdim istediğim
bu düzene göre sayı numarası vermesi veya başka önerisi olan varsa uygulayabilirim

 

[Korhan Ayhan]

Görsel yerine örnek dosya paylaşabilirsiniz.

Bu arada önerdiğim formül ne anlamda sorun çıkardı..

 

[Onurssssss]

Görsel yerine örnek dosya paylaşabilirsiniz.

Bu arada önerdiğim formül ne anlamda sorun çıkardı..

Merhaba,
örnek olarak 88-89-90 satırlarda 6 sonucu vermesi gerekn yerde 5 , 7 sonucu vermesi gereken yerde 6 sonucunu vermiş

 

[Korhan Ayhan]

Ben biraz farklı yorumlamışım...

Makro ile çözüm daha efektif olacaktır.

Option Explicit

Sub Group_Numbers()
    Dim X As Long, My_Sum As Double, No As Long, My_Data As Variant

    Range("B:B").ClearContents
    No = 1
    
    My_Data = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row).Value
    
    ReDim My_List(1 To UBound(My_Data), 1 To 1)
    
    For X = LBound(My_Data) To UBound(My_Data)
        My_Sum = My_Sum + My_Data(X, 1)
        If My_Sum <= 2000 Then
            My_List(X, 1) = No
        Else
            My_Sum = My_Data(X, 1)
            No = No + 1
            My_List(X, 1) = No
        End If
    Next
    
    Range("B2").Resize(X) = My_List
    
    MsgBox "Numaralandırma işlemi tamamlanmıştır.", vbInformation
End Sub