Hücrelerde kuruşlu toplma makro ile?

[mars2]

İyi AKÞAMLAR;

Aşağıdaki makro ile tam sayılarının toplamı alınmakta, Userformda bulunan textboxlardaki değerleri A1, A2, A3, A4 hücresine(kuruşlu) aktarılmakta, B2 hücresinde(kuruşlu) ise değerlerin toplamı(Kuruşlu(1.250,25)) alan makro ile nasıl olur.
Cevabınız için şimdiden teşekür ederim.

Private Sub Worksheet_Activate()

Worksheets("saymanlık").Range("B2") = WorksheetFunction.Sum(Range("A1:A4"))

end sub

 

[Levent Menteşoğlu]

Vermiş olduğunuz koddaki "sum" fonksiyonu sadece tam sayıları toplamaz ondalıklı sayılarıda toplar. Bunun için aynı makroyu kullanabilirsiniz. Sanırım sizin sorununuz B2 hücresinin formatında, hücre formatını "genel" yaparak deneyin.

 

[Ahmet1982]

Sub toplamayap()
  Sheets("Saymanlık").[B2] = 1 * Round(Format(WorksheetFunction.Sum([A1:A4]), "#,##0.00"), 2)
End Sub

 

[mars2]

SAyın Ahmet1982;
cevabınız için teşekkürler, ancak A18 hücresinde kuruşlu toplama almıyor, farklı veya neden olduğu konusunda cevap verirseniz sevinirim.

 

[hsayar]

Sub deneme()
Worksheets("a").Range("B2") = WorksheetFunction.Sum(Range("A1:A4"))
Selection.NumberFormat = "#,##0.00"
End Sub

Aradığınız bu kod
Dün gönderecektim Adsl sorun çıkardı ne yaparsınız bu da kıul işi