DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
peki böyle ilk bakışta yuvarlanmış göstermesinin sebebi nedir?bu işlemi tüm verilerimde değil de bazılarında yapıyor...emeğinize sağlık
Sub Yuvarla()
Dim Basamak As Integer
Basamak = Application.InputBox("Ondalık Basamak Sayısı Ne Olsun", "Ondalık Basamak Sayısı", 2, Type:=1)
Application.ScreenUpdating = False
For Each Hucre In Selection
If IsNumeric(Hucre) Then Hucre.Value = Round(Hucre, Basamak)
Next Hucre
Application.ScreenUpdating = True
End Sub