Ayrı hücrede bulunan kuruşun YTL'ye aktarılması

[mars2]

İyi Günler;
Ayrı hücrelerde bulunan YTL ve Kuruşu aşağıf-dakimakro ile toplatıyorum. Ancak, kuruşta 100 üstü olduğunda, bu fazlalığı YTL ekleme nasıl olur?

Worksheets("sayfa1").Range("a2") = CCur((Sheets("sayfa1").Range("b1"))) + CCur((Sheets("sayfa1").Range("b2"))) + CCur((Sheets("sayfa1).Range("b3")))
Worksheets("sayfa1").Range("c1") = CCur((Sheets("sayfa1").Range("c2"))) + CCur((Sheets("sayfa1").Range("c3")))
Ã?rnek

A B C
1 110 50
2 385 YTL 125 75
3 175 Krş 150 50

Çıkan sonuç 385 YTL 175 Krş
Sonuç = 386 YTL 75 KRş olması lazım
Bu sonuç nasıl doğru bir şekle makro ile getirebiliriz.

 

[Levent Menteşoğlu]

Bir örnek dosya ekleyiniz.

 

[mars2]

Sayın leventm;

İstediğiniz örnek ektedir.

 

[Levent Menteşoğlu]

kodunuzu aşağıdaki ile değiştirerek deneyin.

[vb:1:96a4ee619d]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = WorksheetFunction.Sum(Sheets("sayfa1").Range("b1:b3"))
b = WorksheetFunction.Sum(Sheets("sayfa1").Range("c1:c3"))
Worksheets("sayfa1").Range("a3") = a + Int(b / 100)
Worksheets("sayfa1").Range("a4") = (b / 100 - Int(b / 100)) * 100
End Sub
[/vb:1:96a4ee619d]

 

[mars2]

kodunuzu aşağıdaki ile değiştirerek deneyin.

[vb:1:cbaedae7bb]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = WorksheetFunction.Sum(Sheets("sayfa1").Range("b1:b3"))
b = WorksheetFunction.Sum(Sheets("sayfa1").Range("c1:c3"))
Worksheets("sayfa1").Range("a3") = a + Int(b / 100)
Worksheets("sayfa1").Range("a4") = (b / 100 - Int(b / 100)) * 100
End Sub
[/vb:1:cbaedae7bb]

Sayın Leventm;

Verdiğiniz cevap tam istediğim gibi olmuş teşekkürler.

Diğer taraftan forumda buna benzer bir çok soru sorulmaya başlandı. Cevapları verdiğiniz makrodur. Bu makroyu kendilerine göre uyarlama yapmaları lazım