Comboxtakilere göre textlerin içindeki sayıları başka textte toplama

[orcunerkek54]

Comboxtakilere göre textlerin içindeki sayıları başka textte toplama

combodan seçtiğim sayılara göre o combonun yanındaki textlerin içine girdiğim değerleri toplasın ve sonucunu anında görebileyim... tüm arkadaşlara teşekkürler...

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub topla()
Dim topla1, topla2, topla3, topla4 As Single, i As Byte
For i = 1 To 6
    If IsNumeric(Controls("TextBox" & i).Value) Then
        If Controls("ComboBox" & i).Value = 1 Then
            topla1 = topla1 + CDbl(Controls("TextBox" & i).Value)
        End If
        If Controls("ComboBox" & i).Value = 2 Then
            topla2 = topla2 + CDbl(Controls("TextBox" & i).Value)
        End If
        If Controls("ComboBox" & i).Value = 3 Then
            topla3 = topla3 + CDbl(Controls("TextBox" & i).Value)
        End If
        If Controls("ComboBox" & i).Value = 4 Then
            topla4 = topla4 + CDbl(Controls("TextBox" & i).Value)
        End If
    End If
Next i
TextBox7.Value = Format(topla1, "#,##0.00")
TextBox8.Value = Format(topla2, "#,##0.00")
TextBox9.Value = Format(topla3, "#,##0.00")
TextBox10.Value = Format(topla4, "#,##0.00")
End Sub

 

[orcunerkek54]

çok teşekkürler emeğinize sağlık örneğinizi hemen dosyama uygulayacağım

 

[orcunerkek54]

syn Orion2 örneğinizi kendi dosyama uygulamayı başaramadım.sebebinin ise benim orjinal dosyamda combo ve textlerin numaratik olamaması olduğunu düşünüyorum.bazı yerleri değiştirmeye çalıştım ancak olmadı.bu konuda tekrar yardımcı olursanız sevinirim...bu konuda bilgisi olan ve yardımcı olacak arkadaşlarında yardımlarını bekliyorum.teşekkürler

 

[Explorer]

Merhaba,

Topla fonksiyonunu aşağıdaki gibi değiştirin.

Sub topla()
Dim Toplam(1 To 11) As Double
Dim Kim, i

For i = 3 To 13
    Kim = Controls("ComboBox" & i)
    If IsNumeric(Kim) Then
        If Not IsNumeric(Controls("Textbox" & i + 5)) Then
            MsgBox "ilk önce dakikayı girmelisiniz!", vbInformation
            Controls("ComboBox" & i).ListIndex = 0
            Controls("Textbox" & i + 5).SetFocus
            Exit Sub
        End If
        Toplam(Kim) = Toplam(Kim) + Controls("Textbox" & i + 5)
    End If
Next

For i = 1 To 11
    Controls("Textbox" & i + 18) = Toplam(i)
Next
End Sub

Değerleri hücreye sayı olarak saklamak içinde kodları aşağıdakine benzer şekilde değiştirmelisiniz.

.Range("F10") = TextBox2.Text

 

[orcunerkek54]

ihtiyacım olan buydu çok teşekkürler ...ancak son bir isteğim daha olacak.textlerdeki verileri değiştirdiğimizde sonucu hemen göremiyorum.textlerdeki verileri eğiştiğimizde işlem sonucunu hemen görmemiz mümkünmü..teşekkürler

 

[Explorer]

Merhaba,

Bunun iki yolu var. Birincisi topla fonksiyonunu biraz değiştirip daha sonra ComBobox'lara yaptığınız gibi TextBox'larında Change olayına topla kodunu eklemek. İkinci ve sizin gibi bir sürü text ve combo olan bir projede ClassModule kullanmaktır. Ekte bunu görebilirsiniz.

 

[orcunerkek54]

syn Explorer size ve benden yardımlarını esirgemeyen tüm arkadaşlara teşekkür ederim..emeğinize elinize sağlık.iyi akşamlar herkeze