View Single Post
 
Old 06-05-2017, 12:11 PM
Radtastic10 Radtastic10 is offline Windows 7 64bit Office 2010 64bit
Novice
 
Join Date: Jun 2017
Posts: 5
Radtastic10 is on a distinguished road
Default

I can't post the workbooks, but here is the macro that I am working with. This accomplishes it for one column.

What I am asking is would copying and pasting this multiple times (once for each column I need to perform the calculation on) or is there an easier way to accomplish the end goal.

Example of the columns would be: If columns B, K, N and X needed to have the calculation performed on them.


Code:
With Sheet2
    rng = .Range("B" & .Rows.Count).End(xlUp).Row
End With
        
For i = 2 To rng
x = ActiveSheet.Range("B" & i).Value / 3.3
ActiveSheet.Range("B" & i).Value = x
Next i
Worksheets("Sheet2").Columns("B").NumberFormat = "###0.0"
Reply With Quote