Verilen Toplamın, Toplananlarını Rastgele Dağıtma

[tocy41]

Değerli arkadaşlar,
Ekteki örnek dosyada N sütunundaki toplam değerleri girdiğimde E18 hücresinden M18' hücresine kadar, toplanan değerlerin rastgele otomatik doldurulması( üstte verilen ölçütlere göre ) mümkün müdür? Tıpkı 17. satırda olduğu gibi..

 

[tocy41]

Çok mu zor bir soruydu? Bilen varsa bi zahmet bi yorum yazsın. 2 gündür bekliyorum...

 

[Merhum İdris SERDAR]

Değerli arkadaşlar,
Ekteki örnek dosyada N sütunundaki toplam değerleri girdiğimde E18 hücresinden M18' hücresine kadar, toplanan değerlerin rastgele otomatik doldurulması( üstte verilen ölçütlere göre ) mümkün müdür? Tıpkı 17. satırda olduğu gibi..

.

Dosyanız ekte.

.

 

[tocy41]

.

Dosyanız ekte.

.

Öncelikle ilginiz ve emeğiniz için çok teşekkür ederim...
Bir kez daha anladım ki excell de imkansız diye bir şey yokmuş.
Ama galiba ben sorunumu yeterince anlatamadım.
Çünkü; eklediğiniz çözümde küçük bir yanlışlık var. N18 hücresine bir değer girdiğimde(örneğin 96), E18 hücresinden M18' hücresine kadar rastgele değerler atıyor . Fakat;
Ben bunların üstte veriler aralıklarda olmasını istemiştim. Yani örneğin; M18’ e rastgele atanacak değer; B11 hücresinde belirtildiği gibi 0-5 puan aralığında yada E sütunundaki rastgele atanacak değerlerin yukarıda belirtildiği gibi 0-30 puan aralığında olmasını istemiştim.
Bu küçük yanlışlığı düzeltebilirsek sadece ben değil bu dosyayı bekleyen birçok arkadaşımız sizlere minnettar olacaktır.
Şimdiden teşekkürler…

 

[Merhum İdris SERDAR]

Öncelikle ilginiz ve emeğiniz için çok teşekkür ederim...
Bir kez daha anladım ki excell de imkansız diye bir şey yokmuş.
Ama galiba ben sorunumu yeterince anlatamadım.
Çünkü; eklediğiniz çözümde küçük bir yanlışlık var. N18 hücresine bir değer girdiğimde(örneğin 96), E18 hücresinden M18' hücresine kadar rastgele değerler atıyor . Fakat;
Ben bunların üstte veriler aralıklarda olmasını istemiştim. Yani örneğin; M18’ e rastgele atanacak değer; B11 hücresinde belirtildiği gibi 0-5 puan aralığında yada E sütunundaki rastgele atanacak değerlerin yukarıda belirtildiği gibi 0-30 puan aralığında olmasını istemiştim.
Bu küçük yanlışlığı düzeltebilirsek sadece ben değil bu dosyayı bekleyen birçok arkadaşımız sizlere minnettar olacaktır.
Şimdiden teşekkürler…

.

Üstteki veriler dikkatimden kaçmış.

Dosyanız ekte.

.

 

[tocy41]

.

Üstteki veriler dikkatimden kaçmış.

Dosyanız ekte.

.

Değerli hocam; soruyla sizden başka da ilgilenen olmadı. O yüzden ilginize ve emeğinize ne kadar teşekkür etsem azdır. Ama bu çizelgeleri teslim etmek için bize verilen süre daraldı. Şimdi, kalemlemi yazsak diye düşünmeye başladım.
Sil baştan mı anlatsam acaba?...
Gönderdiğiniz dosyayı inceledim. Şimdi hiç olmadı. Niye derseniz?
Anlatayım sorunları:
SORUN 1: N18 hücresine toplam puan değerlerini girdiğimizde toplanan puanlardan sadece E18 hücresindeki değer değişiyor. Oysa ben E18 den M18 e kadar, hücrelerdeki değerlerin verilen aralıklarda rastgele değişmesini istemiştim.
SORUN 2: Üsteki sorun şöyle bir sonuç çıkarıyor.N18 hücresine 70 ten aşağı not girdiğimde E18 hücresindeki değer eksilere iniyor. Deneyin göreceksiniz...
SORUN 3: Diyelim ki, N18 ve N19 hücrelerine aynı toplam puanı girdik, (örneğin her ikiside 95).
18. ve 19. satırlardaki dağılımın aynı olmasını istemiyorum. Verilen ölçülerde farklı rastgele değerler almasını istiyorum. Ama aynı şablon satırlar oluyor...
Siz veya başka birileri lütfen tekrar ilgilenebilir mi?

 

[Merhum İdris SERDAR]

Değerli hocam; soruyla sizden başka da ilgilenen olmadı. O yüzden ilginize ve emeğinize ne kadar teşekkür etsem azdır. Ama bu çizelgeleri teslim etmek için bize verilen süre daraldı. Şimdi, kalemlemi yazsak diye düşünmeye başladım.
Sil baştan mı anlatsam acaba?...
Gönderdiğiniz dosyayı inceledim. Şimdi hiç olmadı. Niye derseniz?
Anlatayım sorunları:
SORUN 1: N18 hücresine toplam puan değerlerini girdiğimizde toplanan puanlardan sadece E18 hücresindeki değer değişiyor. Oysa ben E18 den M18 e kadar, hücrelerdeki değerlerin verilen aralıklarda rastgele değişmesini istemiştim.
SORUN 2: Üsteki sorun şöyle bir sonuç çıkarıyor.N18 hücresine 70 ten aşağı not girdiğimde E18 hücresindeki değer eksilere iniyor. Deneyin göreceksiniz...
SORUN 3: Diyelim ki, N18 ve N19 hücrelerine aynı toplam puanı girdik, (örneğin her ikiside 95).
18. ve 19. satırlardaki dağılımın aynı olmasını istemiyorum. Verilen ölçülerde farklı rastgele değerler almasını istiyorum. Ama aynı şablon satırlar oluyor...
Siz veya başka birileri lütfen tekrar ilgilenebilir mi?

.

Bir de buna bakın.

Benden bu kadar.

.

 

[tocy41]

.

Bir de buna bakın.

Benden bu kadar.

.

Hocam maalesef bakamıyorum. Çünkü anlayamadım. N sütununa toplam puanları girdikten sonra, ÇÖZ butununa mı basmalıyım, yoksa makroyu mu çalıştırmalıyım? Gerçi her ikisinide denedim ama!..
ÇÖZ e tıkladığımda VBA da şöyle bir mesaj alıyorum:
"Can't find project or library"
Makroyu önce çalıştırdığımda ise:
" References
MISSING: SOLVER.XLAM"
diye birşey çıkıyor.

Bunun sebebi ne olabilir?
Bilgisayarımdan veya Excell 2003 kullanmamdan olabilir mi?

 

[Merhum İdris SERDAR]

Hocam maalesef bakamıyorum. Çünkü anlayamadım. N sütununa toplam puanları girdikten sonra, ÇÖZ butununa mı basmalıyım, yoksa makroyu mu çalıştırmalıyım? Gerçi her ikisinide denedim ama!..
ÇÖZ e tıkladığımda VBA da şöyle bir mesaj alıyorum:
"Can't find project or library"
Makroyu önce çalıştırdığımda ise:
" References
MISSING: SOLVER.XLAM"
diye birşey çıkıyor.

Bunun sebebi ne olabilir?
Bilgisayarımdan veya Excell 2003 kullanmamdan olabilir mi?

.

Birazdan açıklama göndereceğim.

.

 

[tocy41]

.

Birazdan açıklama göndereceğim.

.

Teşekkürler. Sabırsızlıkla bekliyorum..

 

[Merhum İdris SERDAR]

.

Açıklama ekte.

.

 

[tocy41]

.

Açıklama ekte.

.

Hocam açıklama dosyasını 1,5 saat okudum okudum, uygulamaya çalıştım. Söylediklerinizi harfiyen yaptım ama. Nedense bende VBA sayfasında Tools > Reference pasif durumda. O yüzden Solver’i işaretleyemiyorum.

Not: Hem ben toplam notları tek tek öğrenci için girmek değil var olan dosyalarımdan sütun kopyala yapıştırla N sütununa toptan gireceğim. Yoksa 19 sayfa çizelge bitermi.
Elle yapayım dedim daha 3 sayfa ancak yapabildim. Birde sizin dosyanızda elle tek tek girersem, aynı hesaba gelecek.

Biliyorum sizide usandırdım ama, çaresizlik işte ne diyeyim..

.

 

[Muhammet Okumuş]

Döngü ile kabul olur mu?

 

[Muhammet Okumuş]

................

 

[Muhammet Okumuş]

Hocam dosyayı inceleyiniz.

Sub Dağıt()
Dim son, a, i As Byte
son = Range("N100").End(3).Row
Range("O17:O" & son).Formula = "=SUM(E17:M17)"
For i = 17 To son
Range("E15:M15").Copy Cells(i, 5)
Do Until Cells(i, 14) = Cells(i, 15)

Randomize Timer
a = Int(Rnd() * 9 + 5)
If Cells(i, a) = 1 Then GoTo 10 'Eğer en az 0 olmasını isterseniz 1'i 0 yapınız.
Cells(i, a) = Cells(i, a) - 1
10
Loop

Next i

Range("O17:O" & son) = ""
End Sub

 

[tocy41]

Hocam dosyayı inceleyiniz.

Hocam; ilginize teşekkürler...
Göndermiş olduğunuz dosya bu sene olmasada, gelecek yıl çok işimizi görecek.
Ancak dosyada küçük bir eksiklik var. Toplam notu N sütununa; boş veya sıfır olarak girdiğimizde, toplananların toplamı 9 oluyor, 0 olmalı. Kodlarda bu ayarlamayıda yaparsanız çok sevinirim!....
Geçte olsa teşekkürlerimi kabul edin!..


.

 

[Muhammet Okumuş]

Hocam; ilginize teşekkürler...
Göndermiş olduğunuz dosya bu sene olmasada, gelecek yıl çok işimizi görecek.
Ancak dosyada küçük bir eksiklik var. Toplam notu N sütununa; boş veya sıfır olarak girdiğimizde, toplananların toplamı 9 oluyor, 0 olmalı. Kodlarda bu ayarlamayıda yaparsanız çok sevinirim!....
Geçte olsa teşekkürlerimi kabul edin!..

Rica ederim Hocam. İşinize yarayacaksa ne mutlu bana.
Aslında en düşük değerin 1 ya da 0 olması için açıklama yapmıştım

Option Explicit
Sub Dağıt()
Dim son, a, i As Byte
Dim Atla As String

son = Range("N100").End(3).Row
Range("E17:M" & son) = ""

Application.ScreenUpdating = False


Range("O17:O" & son).Formula = "=SUM(E17:M17)"

For i = 17 To son


If Not IsNumeric(Cells(i, 14)) Then GoTo Atla

If Cells(i, 14) = 0 Then
Range(Cells(i, 5), Cells(i, 13)) = 0
GoTo Atla
End If


Range(Cells(i, 5), Cells(i, 13)) = Range("E15:M15").Value

Do Until Cells(i, 14) = Cells(i, 15)

Randomize Timer
a = Int(Rnd() * 9 + 5)


If Cells(i, a) = 0 Then GoTo 10
Cells(i, a) = Cells(i, a) - 1
10
Loop
Atla:

Next i

Range("O17:O" & son) = ""
End Sub

Yukarıdaki kod boş ve 0 olan değerler için ölçütlere sıfır değerini yazıyor. Harfsel ifadelerde ise ölçütleri boş bırakıyor.

 

[tocy41]

Rica ederim Hocam. İşinize yarayacaksa ne mutlu bana.
Aslında en düşük değerin 1 ya da 0 olması için açıklama yapmıştım



Yukarıdaki kod boş ve 0 olan değerler için ölçütlere sıfır değerini yazıyor. Harfsel ifadelerde ise ölçütleri boş bırakıyor.

Hocam çok sağolun...
Ama keşke boş olan değerler içinde, boş bıraksa idi..


.

 

[Muhammet Okumuş]

If Not IsNumeric(Cells(i, 14)) Then GoTo Atla
yazan kodun altına
If Cells(i, 14) = "" Then GoTo Atla
ilave ediniz.

 

[tocy41]

If Not IsNumeric(Cells(i, 14)) Then GoTo Atla
yazan kodun altına
If Cells(i, 14) = "" Then GoTo Atla
ilave ediniz.

Harika, süperrr..
Sonsuz teşekkürler...

.