Azalan Deger

[Technology]

sayımız 186
bana bunu 50 şerli alttaki hücrelere sıralasın istiyorum
a1-50
a2-50
a3-50
a4-36
tarzında
eksiye düşmemesi lazım ama nasıl yaparız?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayın. B1 hücresine yazacağınız değere göre A sütununda listeleme yapacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" And Target <> "" Then
    Application.EnableEvents = False
    [A:A] = ""
    Application.EnableEvents = True
    B&#214;L = Target / 50
    For X = 1 To Int(B&#214;L)
    Cells(X, 1) = 50
    TOPLA = TOPLA + Cells(X, 1)
    Next
    Cells(Int(B&#214;L) + 1, 1) = Target - TOPLA
    End If
End Sub