şartlı serbest dağıtım.

[zebani_1327]

arkadaşlar sorunum acil olduğu için yardımlarınızı bekliyorum ne kadar çabuk o kadar iyi örnek dosyada yapmak istediklerimi açıklamalı olarak yazdım yardımcı olanlara şimdiden çok tşk ederim
https://yadi.sk/i/JKVtDkNi3JiLu6

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub notlar()
son = Cells(Rows.Count, "A").End(3).Row
For i = 3 To son
10:
    For j = 1 To 5
        Cells(i, j) = WorksheetFunction.MRound(WorksheetFunction.RandBetween(WorksheetFunction.Max(0, Cells(i, "G") / 5 - 10), 20), 5)
    Next
    If Cells(i, "F") <> Cells(i, "G") Then GoTo 10
Next
End Sub

 

[zebani_1327]

yazdığınız kodu vba penceresine ekleyip kaydettim ama işlev görmedi örnek dosyaya ekleyip upload edebilir misiniz acaba ?

 

[YUSUF44]

Kodları VBA'da Insert menüsünden Module'yi seçerek açılan sayfaya kaydedin.
Excel sayfanıza bir nesne, resim, düğme vs ekleyin ve sağ tıklayıp makro ata deyin
Notlar makrosunu seçip tamam deyin
Eklediğiniz nesneye bastığınızda makro çalışacaktır.
Makronun her zaman çalışabilmesi için dosyanızı makro İçerebilen Excel dosyası olarak kaydetmeyi unutmayın.

 

[zebani_1327]

Bu islemi macrosuz çözemez miyim Excel formülleriyle eğer Yuvarla vb komutlarda

not: verdiğiniz kodu module kaydedip çalıştırdım. kod çalışıyor ama 30 kişilik bir listede 1.5 dakika bekledi sadece değiştirmek için. bazı satırlarda resmen kendimi şifre kırıyor gibi hissettim verdiğiniz cevap için tşk ederim ama bana daha çok bunu excel formülleriyle yapabileceğim şekliyle lazım.