lookup horizontal...
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.
|