Textbox içine makro ile hesaplama yaptırmak

[stelci]

Merhaba,

Şöyle bir sorum var, yardımcı olabilecek arkadaşlar varsa memnun olurum;

Userform üzerindeki bir textbox içine dosyadaki çalışma sayfalarından birinin içindeki dataları kullanarak sumif/etopla yaptırmak istiyorum. Basit bir örnek dosya ekte.

Textbox1 = SUMIF(A:A;"Deneme";B:B) olmalı mesela, ayrıca bu kodu userform içine mi yoksa başka bir yere mi yazmalı?

Teşekkürler,
Selçuk

 

[fedeal]

userform açılışında textboxda olsun istiyorsanız.

Private Sub UserForm_Initialize()
For i = 1 To Sheets("Sheet1").Cells(65536, "A").End(xlUp).Row
If Sheets("Sheet1").Cells(i, 1).Value = "Deneme" Then TextBox1.Text = Val(TextBox1.Text) + Sheets("Sheet1").Cells(i, 2).Value
Next
End Sub

yada aynı kodları örneğin aktarma yapıyorsanız sayfaya ve bu hücrelerde değişiklik oluyorsa aktardıgınız kodların altınada yazabilirsiniz.

Altarnatif olarak buda kullanılabilir.

Private Sub UserForm_Initialize()
TextBox1.Text = Application.WorksheetFunction.SumIf(Sheets("sayfa1").Range("a1:a1000"), "deneme", Sheets("sayfa1").Range("b1:b1000"))
End Sub

 

[stelci]

Çok teşekkür ederim, ben bir çözüm beklerken siz iki tane birden sundunuz