Toplam bedel birm fiyat arasında ki fark

[sirkülasyon]

Hayırlı Akşamlar.
Üstadlarım firmadan aldığım teklifleri excele işlediğim zaman sürekli yuvarlamadan dolayı sonucu tutturamıyorum. Bu sebeple de manuel düzeltiyorum.
Örnek olarak;
6 adet mamulün toplam bedeli 14 tl. Birim fiyatı 2,333333 diye tekrar eden bir rakam.
6 * 2,33 yaptığım zaman 13,98 çıkıyor. Bana 14 TL vermesi lazım.
Sürekli bu sıkıntıyı yaşamaktayım. Bu sebeple, yaklaşık maliyet ile verilen fiyat arasında fark çıkmakta.
Bu konuda yardımcı olabilir misiniz?

Saygılarımla.

 

[PLİNT]

Merhaba
Şöyle olabilir.

[a1] = WorksheetFunction.Round((6 * 2.33333), 0)

 

[YUSUF44]

En doğru çözüm firmadan birim fiyat üzerinden teklif almak ya da birimi 1 değil de örneğin 6 kabul etmektir (altılı sabun gibi). Bence tabi.

 

[sirkülasyon]

ustam alım tek bir kalem değil ki...
Bana genelinde bu farkı giderecek bir formül lazım. Önce bölecek sonra adet ile çarpacak en yakın üste yuvarlayacak.

 

[PLİNT]

ustam alım tek bir kalem değil ki...
Bana genelinde bu farkı giderecek bir formül lazım. Önce bölecek sonra adet ile çarpacak en yakın üste yuvarlayacak.

Merhaba
Mutlaka fazladır, döngüye ekleyebilirsiniz diye tekli örnek vermiştim,
Bir örnek dosya ekleyip indirme adresini verirseniz; http://s3.dosya.tc/

 

[sirkülasyon]

http://dosya.co/7q50qc5fe99v/Kitap1.xlsx.html

 

[PLİNT]

Ek dosyayı inceleyin. (Dosyada bulunan "I" sütununa küsuratlı ekleyen bölümü silersiniz)
http://s3.dosya.tc/server6/s5t32r/Kitap10.zip.html

Private Sub CommandButton1_Click()
sat = Cells(Rows.Count, "D").End(3).Row
For a = 3 To sat
Cells(a, "F") = WorksheetFunction.Round((Cells(a, "D") * Cells(a, "E")), 0)
Next
End Sub

 

[sirkülasyon]

Sayın Plint;
Ellerinize sağlık. Teşekkür ederim