Textboxlara şarata uyan verilerin toplam yapılarak aktarılması

[osmanli2]

Açıklamaları userform üzerinde örnek vererek yapmaya çalıştım. Yardımcı olusanız çok sevinirim. Teşekkürler.

 

[osmanli2]

Sayın Üstadlarım, istediğim anlaşılmaz mı yoksa imkansız mı? Lütfen yardım!

 

[dEdE]

Merhaba,
Önce UserForm üzerindeki TextBoxları 1 den başlayarak yeniden adlandırıp, UserFormun kod bölümüne aşağıdaki kodları yapıştırarak dener misiniz?

Private Sub CommandButton11_Click()
For j = 3 To [A65536].End(3).Row
Toplam = 0
    For i = 1 To 5
        If Controls("CheckBox" & i).Value = True Then
            Toplam = Toplam + Cells(j, i + 6).Value
        End If
    Next
        Controls("TextBox" & j - 2).Text = Format(Toplam, "#,##0.00")
Next
End Sub

 

[osmanli2]

Sayın dEdE, öncelikle cevabınız için teşekkür ederim. Form üzerinde veri olan başka textboxlarda var. O yüzden bu form üzerindeki textboxlara göre yapamaz mıyız?

 

[dEdE]

Merhaba,
Sorunu anladım. Ama textbox adlarının sıralı olmaması halinde çok uzun bir kod bloğu oluşturmak gerekir. TextBoxlara farklı bir isim vererek yapılabilir. Örneğin, Ay1, Ay2, Ay3 ... gibi.
Bu durumda

Controls("[COLOR="Red"]TextBox[/COLOR]" & j - 2).Text = Format(Toplam, "#,##0.00")

sadece kırmızı ifadenin yerine Ay yazmak yeterli olacaktır.
Bunun dışında bir yöntem varsa da ben bilmiyorum.
Hoşçakalın.

 

[osmanli2]

Size çok teşekkür ederim Sayın dEdE .Çok zekice yardımcı oldunuz.