vba ile hesap yapma sorunu

[türkgülü]

Herkese iyi günler. Ekteki dosyada yapmak isteğim şey iki ayrı sayfadan alınan değerler kodlar yardımı ile hesaplatılarak sonuçları istenilen yere (ondalık kısım iki hane ve yuvarlatılmış olarak) yazılacak ve j sütunundan y sütununa kadar olan sütun toplamları alt satıra yazılacak. Toplamı alınacak satır sayısı her işlemde değişkenlik gösterebilir.

Buraya kadar her şeyi yaptım fakat toplam alırken sütunlardaki ondalık değerlerin hesap makinesi ile işlem yapınca çıkan sonuçla aynı olması gerekirken farklı sonuç çıkıyor. Bunun bir hücre biçimlendirme sorunu olduğunu düşünüyorum, fakat ne denediysem başarılı olamadım. Bu sorunu kodlar ile çözmek zorundayım. Yardım edebilecek arkadaşlara şimdiden teşekkür ederim.

Örnek dosyadan kolayca anlaşılacaktır.

 

[türkgülü]

Sorumu birde şöyle sorayım. Belki çözüm olur.


ActiveCell.Offset(0, 12).Value = (ActiveCell.Offset(0, 26).Value * Worksheets("TARİH22").Cells(xsatır, 23).Value) * 9500 / 100


Yukarıdaki kod ile yapılan işlemin sonucunun virgülden sonra iki hanesini alarak hücreye yazdırabilirmiyiz acaba.

ActiveCell.Offset(0, 12).NumberFormat = "0.00"
komutu ile biçimlendirme yapıyorum fakat istediğim sonucu alamıyorum

 

[suleyman242]

ActiveCell.Offset(0, 12).NumberFormat = "0.00"

ActiveCell.Offset(0, 24).Value = Format((ActiveCell.Offset(0, 16).Value - ActiveCell.Offset(0, 23).Value), "#,##0.00")

ActiveCell.Offset(0, 25).NumberFormat = "#,##0.00"

satırları bu şekilde değiştir işini görür
ikincisi hesap makinalarında virgülden sonra sınırlama, eğer virgülden sonra 2 basamak hassasiyet istiyorsan 3 hassaslı hesaplayıp sonra 2 basamağa düşürürsün

 

[türkgülü]

Sayın suleyman 242 ilginize teşekkür ederim. Önerdiğiniz yöntemi hem hesaplamadan önce hemde sonra olacak şekilde ayrı ayrı denemiştim ama sorunumu çözmedi. örnek dosyada göreceğiniz gibi mesela J4 hücresinde görünen değer 0.93 hücreye tıkladığımızda formül çubuğunda görülen değer 0,92931 veya j10 hücresinde görünen değer 0.97 formül çubuğunda ise 0,9669 görülüyor. Aynı durum toplam sarırı içinde geçerli.

şimdi istediğim 0.93+0.93+....+0.97+0.97= 7.55 olması 7.43 değil.

 

[suleyman242]

şimdi istediğim 0.93+0.93+....+0.97+0.97= 7.55 olması 7.43 değil.

gönderdiğin dosyada hesabı hesap sayfasına göre ve istediğin şekilde yapıyor
galiba senin sorunun terfibodrosu22 sayfasında bu sayfanın makrosunu gönderirsen çözmiye çalışacağım. galiba orada bir atladığın işlem var . terfibodrosu22 sayfası için hesaplamayı yollarsan yardımcı olmıya çalışacağım.

 

[türkgülü]

Hocam terfi bordrosu22 sayfasında herhangi bir kod. o sayfa öylesine kullanılan bir sayfa. Herhangi bir işlem için kullanılmıyor.

 

[suleyman242]

Hocam terfi bordrosu22 sayfasında herhangi bir kod. o sayfa öylesine kullanılan bir sayfa. Herhangi bir işlem için kullanılmıyor.

Anladığım şu:
hesap yaparken küsüratların tamamını kullanacak
ama ekrana yuvarlanmış halde gelecek
yani sen kırpma istemiyorsun
0,97
0,97
0,97
0,97
0,97
0,97
0,97
0,97
7,74
0,93
0,93
1,86

 

[türkgülü]

Hocam ilginize gerçekten teşekkür ederim. Ben çözümü buldum sizinlede paylaşayım. Ama anlıyorum ki kendimi tam ifade edememişim. Toplama yaparken küsüratların tamamını istemiyordum, hücrede göründüğü gibi olsun yeter ve toplam değer görünen rakama göre alınsın. Yani örneğimizde 8 adet 0.97 var bunların toplamı 8*0.97=7.76 sonucunu bulmaya çalışıyordum (7.74 değil)


http://support.microsoft.com/kb/78113/tr

linkinde şunu gördüm uygulayınca tam istediğim gibi oldu:
'-------------------

Bazı durumlarda Duyarlılık görüntülendiği gibi seçeneğini kullanarak, yuvarlama hatalarının çalışmanızı etkilemesini önleyebilirsiniz. Bu seçenek, çalışma sayfasındaki her sayıyı görüntülenen değere sahip olmaya zorlar. Bu seçeneği etkinleştirmek için şu adımları izleyin:
1.Excel 2003 ve önceki sürümlerinde, Araçlar menüsünde Seçenekler'i tıklatın.
2.Hesaplama sekmesinde, Duyarlılık görüntülendiği gibi onay kutusunu tıklatıp seçin.
1.Excel 2007'de, Microsoft Office Düğmesi'ni tıklatın, Excel Seçenekleri'ni tıklatın ve sonra da Gelişmiş kategorisini tıklatın.
2.Bu çalışma kitabını hesaplarken bölümünde, istediğiniz çalışma kitabını ve sonra da Duyarlığı göründüğü gibi ayarla onay kutusunu seçin.

'--------------------------------
Meğer çözüm göz önündeymiş. Saygılarımla.