Run a part of macro when a condition is met

[newbie_ex]

Hi,
I m really new to excel macros and dont know the jargon, so please explain in a simple way.
I am trying to compile a macro in the middle of which i have assumed a variable "counter" where counter = value in I3 (which may be any whole number)
I think that i have properly done this step as:
dim counter as long
Range("I3").select
counter = activecell.value

Now i have three different steps to be performed on the basis of the value of counter
first code is to be executed only if value of counter is 0 or 1
second code is to be executed when value of counter is 2
third code is to be executed when value of counter is 3 and above

Kindly help

 

[puru.sve]

Hi newbie,

Just use if else to follow your steps

if (counter= 0 ) or (counter =1) then 

write your code here

elseif counter = 2 

write here your code

elseif counter =3 

write your code here

end if

 

[RoVBA]

Hi,

I am no expert myself, but this one is not too difficult.

Like writing a letter, there are many ways to write code that does the same thing, although the exact contents of the text differs. I never realized that before, but I think it is fun.

A book you definately want to get your hands on is "VBA Excel for Dummies".

I will post some code here to figure out how to do that on this forum (I promised to do this with some of the code I hammered together myself for a project I worked on).

Option Explicit

Sub DoSomething()

Dim Counter as Long

Counter = Range("I3").value

If Counter >=0 And Counter < 2 Then
     'example code to see it work:
     MsgBox ("0 >= Counter <2")
ElseIf Counter = 2 Then
     MsgBox ("Counter = 2")
ElseIf Counter > 2 Then
     MsgBox ("Counter >= 3")
End If

End Sub 'DoSomething()

(Oke, posting code this way was easier than I thought).

Have fun with VBA. You can let it do amazing things! Just don't give up trying.

Cheers,

Ro

 

[FormR]

Here is another option for you to consider:

Sub Test()

Dim Counter As Long
Counter = Range("I3").Value

Select Case Counter
    Case Is >= 3
    'some code for greater than 3
    Case Is >= 2
    'some code for between 2 and 3
    Case Is >= 0
    'some code for between 0 and 2
End Select

End Sub

 

[newbie_ex]

thanx for the book