Have this range D2:CE2 filled with a many value and a My_var filled
with a value
I want to find in this range if value of My_var existis in range
D2:CE2... if existis goto other code1 else goto other code2 how to in
VBA?

Hi,

Right click your sheet, view code and paste this in

Sub nn()
my_var = 99
Set myrange = Range("D2:CE2")
On Error Resume Next
For Each c In myrange
If c.Value = my_var Then
'run code1
Else
'run code2
End If
Next
End Sub

You must consider what you do after you have run code1 or code2 because
execution will return back into this routine. You could do this

If c.Value = my_var Then
'run code1
exit sub
Else
'run code2
exit sub
End If



Mike


"sal21" wrote:

Have this range D2:CE2 filled with a many value and a My_var filled
with a value
I want to find in this range if value of My_var existis in range
D2:CE2... if existis goto other code1 else goto other code2 how to in
VBA?

Ignore my last post I had an elderly moment, try this instead

Sub nn()
my_var = 999
Set myrange = Range("D2:CE2")
On Error Resume Next
For Each c In myrange
If c.Value = my_var Then
code1
Exit Sub
End If
Next
code2
End Sub

Sub code1()
MsgBox 1
End Sub


Sub code2()
MsgBox 2
End Sub

"Mike H" wrote:

Hi,

Right click your sheet, view code and paste this in

Sub nn()
my_var = 99
Set myrange = Range("D2:CE2")
On Error Resume Next
For Each c In myrange
If c.Value = my_var Then
'run code1
Else
'run code2
End If
Next
End Sub

You must consider what you do after you have run code1 or code2 because
execution will return back into this routine. You could do this

If c.Value = my_var Then
'run code1
exit sub
Else
'run code2
exit sub
End If



Mike


"sal21" wrote:

Have this range D2:CE2 filled with a many value and a My_var filled
with a value
I want to find in this range if value of My_var existis in range
D2:CE2... if existis goto other code1 else goto other code2 how to in
VBA?

On 14 Apr, 14:46, Mike H wrote:
Ignore my last post I had an elderly moment, try this instead

Sub nn()
my_var = 999
Set myrange = Range("D2:CE2")
On Error Resume Next
For Each c In myrange
* * If c.Value = my_var Then
* * * * code1
* * * * Exit Sub
* * End If
Next
code2
End Sub

Sub code1()
* * * * *MsgBox 1
End Sub

Sub code2()
* * * MsgBox 2
End Sub



"Mike H" wrote:
Hi,

Right click your sheet, view code and paste this in

Sub nn()
my_var = 99
Set myrange = Range("D2:CE2")
On Error Resume Next
For Each c In myrange
If c.Value = my_var Then
* * * * 'run code1
* * Else
* * * * * *'run code2
* * End If
Next
End Sub

You must consider what you do after you have run code1 or code2 because
execution will return back into this routine. You could do this

If c.Value = my_var Then
* * * * 'run code1
* * * * *exit sub
* * Else
* * * * * *'run code2
* * * * * *exit sub
* * End If

Mike

"sal21" wrote:

Have this range D2:CE2 filled with a many value and a My_var filled
with a value
I want to find in this range if value of My_var existis in range
D2:CE2... if existis goto other code1 else goto other code2 how to in
VBA?- Nascondi testo tra virgolette -

- Mostra testo tra virgolette -

Excellent code!
Tks.