Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need VBA for for column addition and on condition resets to 0
I have a spreadsheet that I need to increment Column X by one when the macro
is executed. When Column x = 12 then it goes back to 0 and column w is incremented by one. Note: Only column x resets to 0. column W increments to infinity. Example: March 2009 Column W Column X 10 11 April 2009 After Calculation Column W Column X 11 0 May 2009 After Calculation Column W Column X 11 1 Can someone help? Thanks in advance. CB |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need VBA for for column addition and on condition resets to 0
Perhaps something like this:
Sub AddOne() Dim xColumn As String Dim wColumn As String 'Define cells you want to use xColumn = "X1" wColumn = "W1" If Range(xColumn).Value = 11 Then Range(xColumn).Value = 0 Range(wColumn).Value = Range(wColumn).Value + 1 Else Range(xColumn).Value = Range(xColumn).Value + 1 End If End Sub -- Best Regards, Luke M *Remember to click "yes" if this post helped you!* "C" wrote: I have a spreadsheet that I need to increment Column X by one when the macro is executed. When Column x = 12 then it goes back to 0 and column w is incremented by one. Note: Only column x resets to 0. column W increments to infinity. Example: March 2009 Column W Column X 10 11 April 2009 After Calculation Column W Column X 11 0 May 2009 After Calculation Column W Column X 11 1 Can someone help? Thanks in advance. CB |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need VBA for for column addition and on condition resets to 0
Luke,
Thanks so much for the help. How do I modify this code to include X1 to X1000 & W1 to W1000? I tried changing "X1" to "X1:X1000" and "W1" to "W1:W1000". When I did this I got an error "Runtime error '13', type mismatch. I am very new to VBA and am at a loss how to correct this. Thanks for your help, CB "Luke M" wrote: Perhaps something like this: Sub AddOne() Dim xColumn As String Dim wColumn As String 'Define cells you want to use xColumn = "X1" wColumn = "W1" If Range(xColumn).Value = 11 Then Range(xColumn).Value = 0 Range(wColumn).Value = Range(wColumn).Value + 1 Else Range(xColumn).Value = Range(xColumn).Value + 1 End If End Sub -- Best Regards, Luke M *Remember to click "yes" if this post helped you!* "C" wrote: I have a spreadsheet that I need to increment Column X by one when the macro is executed. When Column x = 12 then it goes back to 0 and column w is incremented by one. Note: Only column x resets to 0. column W increments to infinity. Example: March 2009 Column W Column X 10 11 April 2009 After Calculation Column W Column X 11 0 May 2009 After Calculation Column W Column X 11 1 Can someone help? Thanks in advance. CB |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
complex column addition | Excel Programming | |||
column addition question | Excel Worksheet Functions | |||
Get Addition of each Column in a sheet | Excel Programming | |||
Addition base on condition | Excel Worksheet Functions | |||
Amend formula to include addition condition | Excel Worksheet Functions |