Belirli değerlere göre otomatik sınıflandırma yapılması

[Ozzok]

Merhaba arkadaşlar excel de şöyle bir şeye ihtiyacım var;

Örneğin elimde 20 tane kutu var. Hepsinin de 80 ile 100 arası değeri var. Bu 20 tane kutunun A ve B depolarına girmesi lazım. Fakat A ve B de ki bu 10 ar kutunun da toplamı birbirine eşit olması lazım. Yani dengeli dağılması lazım. Aşağıda örnek veriyorum.

A B
85 86
81 83
92 90

Bu şekilde dağıtacak bir programa ihtiyacım var. Şimdiden teşekkür ederim.

 

[PLİNT]

Merhaba arkadaşlar excel de şöyle bir şeye ihtiyacım var;

Örneğin elimde 20 tane kutu var. Hepsinin de 80 ile 100 arası değeri var. Bu 20 tane kutunun A ve B depolarına girmesi lazım. Fakat A ve B de ki bu 10 ar kutunun da toplamı birbirine eşit olması lazım. Yani dengeli dağılması lazım. Aşağıda örnek veriyorum.

A B
85 86
81 83
92 90

Bu şekilde dağıtacak bir programa ihtiyacım var. Şimdiden teşekkür ederim.

Merhaba
Ek dosyayı inceleyiniz.
http://s3.dosya.tc/server6/3hykak/pay.zip.html

Private Sub CommandButton1_Click()
[c1:d10] = ""
For a = 1 To 10
Range("A1:A20").Sort Key1:=Cells(1, 1), Order1:=xlAscending
i = Cells(21, 1).End(3).Row
Cells(a, "c") = Cells(1, 1)
Cells(a, "d") = Cells(2, 1)
Cells(a + 1, "c") = Cells(i, 1)
Cells(a + 1, "d") = Cells(i - 1, 1)
Range("a1:a2" & "," & "a" & i & "," & "a" & i - 1) = ""
a = a + 1
Next

End Sub

 

[Ozzok]

Merhaba
Ek dosyayı inceleyiniz.
http://s3.dosya.tc/server6/3hykak/pay.zip.html

Private Sub CommandButton1_Click()
[c1:d10] = ""
For a = 1 To 10
Range("A1:A20").Sort Key1:=Cells(1, 1), Order1:=xlAscending
i = Cells(21, 1).End(3).Row
Cells(a, "c") = Cells(1, 1)
Cells(a, "d") = Cells(2, 1)
Cells(a + 1, "c") = Cells(i, 1)
Cells(a + 1, "d") = Cells(i - 1, 1)
Range("a1:a2" & "," & "a" & i & "," & "a" & i - 1) = ""
a = a + 1
Next

End Sub

teşekkür ederim