Romano_odK
Active Member
- Joined
- Jun 4, 2020
- Messages
- 379
- Office Version
- 365
- Platform
- Windows
Good morning,
In VBA I have the following sub (see below). I need to round column C by 2 decimals at the end of the sub. Column C is in a table. Is there a way to do this?
Thank you in advance,
Private Sub KopieerNaarVerkoopprijs_Click()
With Sheets("OPXML").ListObjects("Table_Query_from_A100")
.ListColumns(3).DataBodyRange.Value = .ListColumns(4).DataBodyRange.Value
End With
Range("E9:E15000").ClearContents
Range("F9:F15000").ClearContents
Range("G9:G15000").ClearContents
Range("H9:H15000").ClearContents
Range("E7").ClearContents
Range("E7").Value = 0
Range("C9").Select
End Sub
In VBA I have the following sub (see below). I need to round column C by 2 decimals at the end of the sub. Column C is in a table. Is there a way to do this?
Thank you in advance,
Private Sub KopieerNaarVerkoopprijs_Click()
With Sheets("OPXML").ListObjects("Table_Query_from_A100")
.ListColumns(3).DataBodyRange.Value = .ListColumns(4).DataBodyRange.Value
End With
Range("E9:E15000").ClearContents
Range("F9:F15000").ClearContents
Range("G9:G15000").ClearContents
Range("H9:H15000").ClearContents
Range("E7").ClearContents
Range("E7").Value = 0
Range("C9").Select
End Sub