Soru Userform içinde dinamik toplamı görmek

[kneehot]

Arkadaşlar merhaba, örnekte anlatmaya çalıştım ama burada da biraz anlatmaya çalışıyım. Yapmak istediğim bir listenin altına data girdikçe son yazılan ismin tutar kısmındaki rakamlarının dinamik olarak toplanıp userform içinde gösterilmesi. Bu şekilde anlatmak biraz zor oluyor o yüzden örneği incelerseniz çok sevinirim. Şimdiden yardımlara çok teşekkür ederim.

 

[kemal turan]

Merhaba,
Userform çalışma kitabının açılması ile açılır.Butonla veya sayfaya giriş ile de açılır.
Deneyiniz,
Selametle Kalınız.

 

[kneehot]

Merhaba,
Userform çalışma kitabının açılması ile açılır.Butonla veya sayfaya giriş ile de açılır.
Deneyiniz,
Selametle Kalınız.

Merhaba Kemal bey ilginiz için çok teşekkür ederim fakat yaptığınız userform üzerinden isim seçmek gerekiyor. O sütunda çok fazla farklı isim yazacağı için formu bu şekilde kullanmak çok zor olacaktır. Son yazılan ismi kendisi otomatik alarak çalışacak şekilde güncelleyebilirsek çok mutlu olurum.

 

[kemal turan]

merhaba,
Userforma bir textbox ekleyip, Sahifenin kod bölümündeki kodu değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e5:e65536]) Is Nothing Then Exit Sub
Dim s2 As Worksheet
Set s2 = Sheets("Sayfa1")
UserForm1.TextBox2.Value = s2.Range("c65536").End(xlUp).Value
UserForm1.TextBox1.Value = WorksheetFunction.SumIf(s2.Range("c5:c" & Rows.Count), UserForm1.TextBox2.Value, s2.Range("e5:e" & Rows.Count))
End Sub

 

[kneehot]

merhaba,
Userforma bir textbox ekleyip, Sahifenin kod bölümündeki kodu değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e5:e65536]) Is Nothing Then Exit Sub
Dim s2 As Worksheet
Set s2 = Sheets("Sayfa1")
UserForm1.TextBox2.Value = s2.Range("c65536").End(xlUp).Value
UserForm1.TextBox1.Value = WorksheetFunction.SumIf(s2.Range("c5:c" & Rows.Count), UserForm1.TextBox2.Value, s2.Range("e5:e" & Rows.Count))
End Sub

Kemal bey tam istediğim gibi oldu fakat listedeki tüm aynı isimleri topluyor. Farklı tarihlerde olan rakamlarıda toplayınca istediğim tutar yanlış çıkıyor. En azından son yazan tarihtekileri toplayabilirse çok sevinirim.

 

[kemal turan]

Merhaba,
Tarih krıteriniz bugün mü ?

 

[kemal turan]

Merhaba,
Krıter tarih "bugün" olarak belirlenmiştir.