Yuvarlama işlemi

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar;
Aşağıdaki kodların 3. satırına sonucu yuvarlamak için kırmızı renkli satırı ekledim. kod çalışmıyor nasıl bir düzenleme yapabilirim. Teşekkürler.

syf.Range("A11:A" & SonSat + 8).Value = Range("D3" & SonSat).Value '1 Adı Soyadı
syf.Range("C11:C" & SonSat + 8).Value = Range("H3:H" & SonSat).Value '2 T.C.
syf.Range("D11" & SonSat + 8).Value = Range("F3:F" & SonSat).Value '3 Miktar
syf.Range("E11:E" & SonSat + 8).Value = Range("E3:E" & SonSat).Value ' 4 İban

syf.Range("D11" & SonSat + 8).Value = Round(Range("F3:F" & SonSat).Value, 2) '3 Miktar

 

[Levent Menteşoğlu]

Round fonksiyonu tek bir hücrede çalışır. Siz bir aralıkta çalıştırmaya çalışıyorsunuz. Bu durumda döngü kullanmanız gerekir. Ya da sadece görüntü olarak biçimlendirmek isterseniz aşağıdaki gibi Format işlevini kullanabilirsiniz.

syf.Range("D11: D" & SonSat + 8).numberformat="0.00"

 

[Hacı Bayram ÖZKAN]

Teşekkürler Sayın Levent Bey; Görüntü olarak biçimlendirmeden yapıyorum ama hücrenin içine girince virgülden sonra 4 yada 5 rakam gösteriyor.
İyi günler. Kodu döngü şeklinde ayarlayacağım.