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

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

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