aynı olanları toplama

[erzen]

ekte gönderdiğim dosyada sorunumu belirttim. şimdiden Teşekkürler

 

[erzen]

arkadaşlar böyle bişey yapılamıyor mu?

 

[erzen]

olur yada olmaz bi cevap bekliyorum

 

[hamitcan]

İki bölümdeki texboxları, ayrı ayrı Frame nesnesi içine alın. Bir CommandButton nesnesi oluşturun. İçine aşağıdaki kodu ekleyin.

Private Sub CommandButton1_Click()
    For i = 0 To UserForm1.Frame2.Controls.Count - 1
        If UserForm1.Frame1.Controls(i) = "Araba" Then
        t = Val(UserForm1.Frame2.Controls(i)) + t
    ElseIf UserForm1.Frame1.Controls(i) = "Kamyon" Then
        t2 = Val(UserForm1.Frame2.Controls(i)) + t2
    ElseIf UserForm1.Frame1.Controls(i) = "Otobüs" Then
         t3 = Val(UserForm1.Frame2.Controls(i)) + t3
    End If
    Next
        TextBox21 = t
        TextBox22 = t2
        TextBox23 = t3
End Sub

 

[erzen]

ilginize teşekkürler ama olmadı.dosya ekte

 

[hamitcan]

Eki inceleyin.

 

[erzen]

Göderdiğiniz dosyaya baktım ancak toplamlar tutmuyor. Birde siz denermisiniz. Birde Farme1 deki Araba Otobüs Kamyon yazılarının yerleri ve adetleri sabit değil, değişebilir.

 

[hamitcan]

Denedim, tutuyor.

 

[erzen]

tekrar denedim tutmuyor

 

[hamitcan]

Eki inceleyin.