VBA for the whole number

[sksanjeev786]

Hi Team,

i need to round up the value where on column 3 and 6 and for entire column.
this is an example I have more colunm 3,6,9 and so on. all number I need It in whole number

book1
	D	E	F	G	H	I
10	20.1%	25.2%	5.1%	29.8%	27.5%	-2.3%
11	30.9%	38.7%	-22.5%	38.2%	44.0%	5.8%
12	71.0%	72.6%	1.6%	73.1%	78.1%	5.0%
13	46.1%	55.0%	8.9%	42.6%	58.5%	16.0%
14	18.3%	22.2%	4.0%	11.2%	22.7%	11.5%
15	9.0%	20.5%	11.4%	10.6%	22.4%	11.8%
Sheet2

 

[Scott Huish]

Just to be clear, you always want to round up? So 5.1% should be 6%?
Is there a last column or do we need to determine that in code?

 

[sksanjeev786]

Just to be clear, you always want to round up? So 5.1% should be 6%?
Is there a last column or do we need to determine that in code?

Hi Sir,

I need the whole number if 5.1 then it should be 5 only along for every 3,6,9 and so on column
22.5 means 23 number

Regards
Sanjeev

 

[Scott Huish]

Sub WholeNumbers()
Dim lc As Long, r As Long, c As Range
lc = Range("XFD1").End(xlToLeft).Column
For r = 3 To lc Step 3
    For Each c In Range(Cells(1, r), Columns(r).End(xlDown))
        If IsNumeric(c) And c <> "" Then c = Round(c * 100, 0)
    Next
Next
End Sub

 

[sksanjeev786]

Sub WholeNumbers()
Dim lc As Long, r As Long, c As Range
lc = Range("XFD1").End(xlToLeft).Column
For r = 3 To lc Step 3
    For Each c In Range(Cells(1, r), Columns(r).End(xlDown))
        If IsNumeric(c) And c <> "" Then c = Round(c * 100, 0)
    Next
Next
End Sub

Wonderful..!!!!Thank you so much sir for your help in this