Round

[waytooraider]

Sub Round()
'
' Round Macro
ActiveCell = Application.Round(ActiveCell, 1)
End Sub

Yukardaki makronun birden fala seçili hücre için çalışmasını nasıl yapabiliriz.(yuvarla fonksiyonu)

 

[dEdE]

Merhaba,
Aşağıdaki şekilde dener misiniz.

Sub Round()
Range("A1:A10") = Application.Round(Range("A1:A10"), 1)
End Sub

 

[waytooraider]

Random hücre için geçerli değil sanırım.Round yapacagım hücreler aynı stunda değil.
Saygılarımla

 

[dEdE]

Merhaba,
Bunu dener misiniz?

Sub SeçYuvarla()
    Set Seçim = Application.InputBox("Yuvarlayacağınız alanı seçiniz.", "Alan Seçimi", Selection.Address, , , , , 8)
    If Seçim Is Nothing Then Exit Sub
    Seçim.Select
    Selection = Application.Round(Selection, 1)
End Sub

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub YUVARLA()
    Dim Alan As Range
    
    For Each Alan In Selection
        If IsNumeric(Alan.Value) Then
            Alan.Value = WorksheetFunction.Round(Alan.Value, 1)
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub