Makro ile yukarı yuvarlama

[Gaffur]

Bir sayfadaki tablonun aynısını diğer sayfaya tablo içindeki virgülden sonra rakam olan değerler yukarı yuvarlanmış şekilde makro ile oluşturmak istiyorum.

 

[halit3]

Kod:

Function sayiyuvarla(sayi)
If IsNumeric(sayi) = True Then
sayiyuvarla = WorksheetFunction.Ceiling(sayi, 1)
Else
sayiyuvarla = sayi
End If
If sayiyuvarla = 0 Then
sayiyuvarla = ""
End If
End Function

K.T.F kodu bir modülün içine koyun ve aşağıdaki örnek formül gibi çalıştırın.

=sayiyuvarla(a1)

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub AKTAR_YUVARLA()
    Dim S1 As Worksheet, S2 As Worksheet, Veri As Range
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets.Add
    
    S1.Cells.Copy S2.Range("A1")
    
    For Each Veri In S2.Range("C4:F" & S2.Cells(Rows.Count, 1).End(3).Row)
        If IsNumeric(Veri.Value) Then
            Veri.Value = WorksheetFunction.RoundUp(Veri.Value, 0)
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub