VBA RoundUp while copying and pasting

[avd88]

Hello,

Trying to roundUp to a whole number while copying and pasting some data. The data being copied that needs to be rounded up is the one marked in the code. Tried using the worksheet function in different ways but can't figure it out. Help is appreciated!:

Sub CurveFiller()
 Dim i As Integer
 Dim lastrow As Integer
 
 lastrow = Sheets("1").Cells(Rows.Count, 1).End(xlUp).Row
 
 For i = 2 To lastrow
    Sheets("1").Cells(i, 1).Copy
    Sheets("2").Range("B5").PasteSpecial xlPasteValues
    Sheets("2").Range("C5").PasteSpecial xlPasteValues
    Sheets("2").Range("G38").Copy  <------------ NEED ROUNDED UP
    Sheets("1").Cells(i, 2).PasteSpecial xlPasteValues
    Sheets("2").Range("i38").Copy   <------------ NEED ROUNDED UP
    Sheets("1").Cells(i, 3).PasteSpecial xlPasteValues

 Next i

End Sub

 

[rlv01]

Why does the roundup need to be part of the copy? Why not round the value after you paste it? Example (not tested):

Sub CurveFiller()
    Dim i As Integer
    Dim lastrow As Integer
    
    lastrow = Sheets("1").Cells(Rows.count, 1).End(xlUp).Row
    
    For i = 2 To lastrow
        Sheets("1").Cells(i, 1).Copy
        Sheets("2").Range("B5").PasteSpecial xlPasteValues
        Sheets("2").Range("C5").PasteSpecial xlPasteValues
        
        Sheets("2").Range("G38").Copy  '<------------ NEED ROUNDED UP
        With Sheets("1").Cells(i, 2)
            .PasteSpecial xlPasteValues
            .Value = Application.WorksheetFunction.RoundUp(.Value, 0)
        End With
        
        Sheets("2").Range("i38").Copy   '<------------ NEED ROUNDED UP
        With Sheets("1").Cells(i, 3)
            .PasteSpecial xlPasteValues
            .Value = Application.WorksheetFunction.RoundUp(.Value, 0)
        End With
    Next i
    
End Sub

 

[avd88]

Thanks for your reply! It didn't have to be in the copy or paste part. I wasn't sure how to implement it properly and this worked for what I needed. Thank you!!!