Rakamlardaki küsürat

[sedat2161]

İyi çalışmalar .Ekte gönderdiğim Bordro sayfasındaki hesapla butonuna tıkladığımda bordrom hesaplanıyor. Yanlız Hücreye tıklandığında tüm rakamlar küsüratlı çıkıyor. Örnek h6 hücresi 265,18 olması gerekirken 265,188 olarak çıkıyor buda sayfa toplamında sorun oluşturuyor. Bunları 265,18 şeklinde kuruşları 2 rakamları olark çıkması için ne yapaliriz. yardımcı olursanız çok memnun olurum. Ayrıca alt toplamlarda hesapla butonuna tıkladğımda toplabilirmi. İyi çalışmalar.

 

[Ömer BARAN]

Merhaba.

Module8'deki BORDRO_2YuvarlatılmışDikdörtgen_Tıklat isimli makroda ilgili satırı aşağıdakiyle değiştirin.
Başka sütunlarda da benzer işlem yapılacaksa aynı yöntemle diğerlerini de düzeltirsiniz.

Cells(i, 8).Value = Evaluate("=INT(G" & i & "*0.14)+INT(MOD(G" & i & "*0.14,1)*100)/100")

 

[sedat2161]

Merhaba.

Module8'deki BORDRO_2YuvarlatılmışDikdörtgen_Tıklat isimli makroda ilgili satırı aşağıdakiyle değiştirin.
Başka sütunlarda da benzer işlem yapılacaksa aynı yöntemle diğerlerini de düzeltirsiniz.

Ömer bey ilginiz için teşekkürler. bu kodu 4 satırda yapabildim diğer satırlar yan satırlarla bağlantılı olduğı için yapamadım. dosyam ektedir yardımcı olursanız sevinirim.

 

[sedat2161]

Dosyadaki % olan satırların küsuratını hal ettim. çarpım çıkarma ve toplama olan küsuratları yapamadım. <yardımcı olursanız çok sevinirim.

 

[Ömer BARAN]

Sayfayı yenileyerek önceki cevabıma tekrar bakın.
Koyu mavi renklendirdiğim kısımlardaki SÜTUN ADI (G) ve ORAN (0,14) 'ları değiştirerek halledebilirsiniz.
Çarpma yerine TOPLAMA varsa (G sütunu + F sütunu) örneğin, mavi kısımların yerine Cells("G" & i )+Cells("F" & i ) yazın.

Şimdi bilgisayar başından kalmam gerekiyor.
.

 

[sedat2161]

Cells(i, 10).Value = Cells(i, 7) - Cells(i, 8) - Cells(i, 9)
Cells(i, 13).Value = Cells(i, 11) - Cells(i, 12)
Cells(i, 16).Value = Cells(i, 8) + Cells(i, 9) + Cells(i, 13) + Cells(i, 14) + Cells(i, 15)
Cells(i, 17).Value = Cells(i, 7) - Cells(i, 16)
Cells(i, 18).Value = Cells(i, 5) * Cells(i, 6)
Cells(i, 21).Value = Cells(i, 18) + Cells(i, 19) + Cells(i, 20) bunları yapamadım.

 

[askm]

Sub BORDRO_2YuvarlatılmışDikdörtgen_Tıklat()
Dim son As Long
Application.ScreenUpdating = False
son = Range("C6", Range("C6").End(xlDown)).Count
Set s1 = Sheets("BİLGİ")
On Error Resume Next
For i = 6 To son
    Cells(i, 6).Value = Round(Range("D4").Value / 30, 2)
    Cells(i, 7).Value = Round(Cells(i, 5) * Cells(i, 6), 2)
    Cells(i, 8).Value = Evaluate("=INT(G" & i & "*0.14)+INT(MOD(G" & i & "*0.14,1)*100)/100")
    Cells(i, 9).Value = Evaluate("=INT(G" & i & "*0.01)+INT(MOD(G" & i & "*0.01,1)*100)/100")
    Cells(i, 10).Value = Round(Cells(i, 7) - Cells(i, 8) - Cells(i, 9), 2)
    Cells(i, 11).Value = Round(Cells(i, 10) * 0.15, 2)
    Cells(i, 13).Value = Cells(i, 11) - Cells(i, 12)
    Cells(i, 14).Value = Round(Cells(i, 7) * 0.00759, 2)
    Cells(i, 16).Value = Cells(i, 8) + Cells(i, 9) + Cells(i, 13) + Cells(i, 14) + Cells(i, 15)
    Cells(i, 17).Value = Cells(i, 7) - Cells(i, 16)
    Cells(i, 18).Value = Cells(i, 5) * Cells(i, 6)
    Cells(i, 19).Value = Evaluate("=INT(G" & i & "*0.205)+INT(MOD(G" & i & "*0.205,1)*100)/100")
    Cells(i, 20).Value = Evaluate("=INT(G" & i & "*0.02)+INT(MOD(G" & i & "*0.02,1)*100)/100")
    Cells(i, 21).Value = Cells(i, 18) + Cells(i, 19) + Cells(i, 20)
Next i
Application.ScreenUpdating = True
End Sub