Performing calculations on non adjacent columns

Radtastic10 · #3 06-05-2017, 12:11 PM

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"

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Table bottom border not performing well	herpez	Word Tables	2	01-16-2017 03:43 PM
How to return after performing a search	WaltR	Word	2	12-26-2014 05:15 PM
Macro not Performing Formula Update as Expected	tandchas	Excel Programming	7	06-27-2014 05:42 AM
Performing filtering to tasks that occur during the next three months	jessy	Project	1	05-30-2014 05:40 AM
Cumulative calculations for two columns in a table to be placed in the footer	noelr	Word VBA	0	09-05-2013 04:18 PM