Hücredeki Rakamın Virgülden Sonrasını Yuvarlama

[aaltunsu]

Merhaba,

Forumda araştırdım, ancak bana yardımcı olacak bilgiye ulaşamadım.

Şöyle bir problemim var. Muhasebeciyim ve döviz işlemlerinde FIFO yöntemini kullanıyorum. Ekteki ekran görüntüsünde göreceğiniz gibi, 8. satırda para çıkışı oluyor ve daha önceki kurlarla daha sonra girilen kurların karışımı aldığı için "2,86941321514907" şeklinde bir döviz kuru ortaya çıkıyor. Ben bu döviz kurunun makroyla virgülden sonra yalnızca 6 hanesinin dikkate alınmasını istiyorum. Yani hesaplamanın "2,869413" çıkış tutarının bu kurla çarpılmasını istiyorum.

Bu konuda bana yardımcı olabilir misiniz?

Saygılarımla,

 

[Orion1]

buyurun.

MsgBox VBA.Round("2,86941321514907", 6)

 

[aaltunsu]

Teşekkür ederim, ancak;

Yalnızca bu rakamı değil. Resme bakarsanız I sütununda bir çok rakam oluyor. Tabi bu tabloda 30 tane sayfa var ve her sayfanın I sütununda bu tarz yuvarlanması gereken rakamlar var. Yani her satır girdiğimde yeni bir yuvarlamam değişken gelebilir.

 

[Orion1]

yazdığım rakam yerine hücre adresini yazınız.

MsgBox VBA.Round(Range("I1").Value, 6)

 

[aaltunsu]

Bir konuda anlaşamadık.

FIFO yazan başlığın altındaki tüm değerlerin Msjbox şeklinde değil, I hücresini düzenleyecek şekilde virgülden sonra 6 hane olmasını istiyorum. Hücreyi düzenleyip virgülden sonra 6 hane göster yapıyoruz ya? Ama formül barında asıl rakam gözükür. Ben formül barındaki asıl rakamın 6 haneye yuvarlanmasını istiyorum. Bilmiyorum anlatabildim mi ?

 

[Orion1]

Bir konuda anlaşamadık.

FIFO yazan başlığın altındaki tüm değerlerin Msjbox şeklinde değil, I hücresini düzenleyecek şekilde virgülden sonra 6 hane olmasını istiyorum. Hücreyi düzenleyip virgülden sonra 6 hane göster yapıyoruz ya? Ama formül barında asıl rakam gözükür. Ben formül barındaki asıl rakamın 6 haneye yuvarlanmasını istiyorum. Bilmiyorum anlatabildim mi ?

küçük bir örnek dosya ekleyiniz.

 

[aaltunsu]

Ektedir. Boyutu küçültmek için sayfalardan bir kısmını sildim.

 

[Korhan Ayhan]

Eğer "I" sütununda formül kullanıyorsanız bu formüle yuvarlama formülü ekleyebilirsiniz.

=YUVARLA(Formülünüz;6)

 

[aaltunsu]

Eğer "I" sütununda formül kullanıyorsanız bu formüle yuvarlama formülü ekleyebilirsiniz.

=YUVARLA(Formülünüz;6)

Teşekkürler, I Sütunun değerleri makrodan geliyor. Makroya nasıl ekleyebilirim bu formülü?

 

[Orion1]

Dosyanız ektedir.

Sub yuvarla()
Dim i As Long, sonsat As Long
sonsat = Cells(Rows.Count, "I").End(xlUp).Row
For i = 3 To sonsat
    If Cells(i, "I").Value > 0 Or Cells(i, "I").Value <> "" Then
        Cells(i, "I").Value = VBA.Round(Cells(i, "I").Value, 6)
    End If
Next
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[Korhan Ayhan]

Alternatif;

Sub Ondalik_Duzelt()
    For Each Veri In Range("I3:I" & Cells(Rows.Count, "I").End(3).Row)
        If Veri.Value <> "" Then
            If IsNumeric(Veri.Value) Then
                Veri.Value = Round(Veri.Value, 6)
                Veri.NumberFormat = "0.000000"
            End If
        End If
    Next
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[aaltunsu]

Yuvarlama işlemi için makro çalıştırmaya gerek kalmadan g hücresine veri girildiği anda I hücresi yuvarlanmış bir şekilde gelse ve buna göre de k hücresinin sonucunu I hücresindeki yuvarlanan değere göre getirebilmemiz mümkün mü?

 

[aaltunsu]

Tamamdır. Sizin verdiğiniz veriyi FIFO hesabı yapan işlemin sonuna ekledim otomatik olarak gerçekleştiriyor. Yardımlarınız için çok teşekkür ederim.