Çözüldü Alt alta kesilen satıları verilen sayıya göre toplamak

Alicimri' Alıntı:

Gerçi çalışmalarını beğendiğim, başka bir sitedeki bir arkadaşın, mottosu vardı "Kot anlatılmaz, yazılır." diye ama deneyeyim.
Private Sub CommandButton1_Click()
Range("C2").Value = TextBox3.Value
montaj = Split(TextBox1.Value, ",")
tabaka = Split(TextBox2.Value, ",")
tbk = 0 'tabaka i döngüsüne girmeyeceği için başlangıç belirleniyor.
For i = 0 To UBound(montaj) 'montajın kaç eleman olduğu belirlenip, döngü kuruluyor. Split ile belirlenen dizinin elemanı 0 dan başlar.
Range("A" & i + 2).Value = montaj(i)
Range("B" & i + 2).Value = tabaka(tbk)
bak = bak + montaj(i) * 1 'montajdaki elemanlar toplanıyor, textboxlardaki değer metin olduğu için 1 ile çarpılıp sayıya dönüştürülüyor.
If bak = Range("C2").Value * 1 Then 'Montajların toplam, bölüme eşit olmadığı test ediliyor.
tbk = tbk + 1 'Eğer eşit ise tabakanın bir sonraki değeri için başlangıç değerine 1 ekleniyor.
bak = 0 ' Toplam, bölüme eşit olunca ikinci grup için sıfırlanıyor
End If
Next
End Sub

Genişletmek için tıkla...