lookup horizontal...
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? |
lookup horizontal...
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? |
lookup horizontal...
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? |
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. |
All times are GMT +1. The time now is 02:34 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com