Snip2Code is shutting down.
It has been quite a ride, since 2013 when we launched our first prototype: thanks to the effort of you guys we collected more than 3 million snippets!
We are very proud to help all our users to be more efficient in their jobs, and to be the central point to share programming knowledge for everyone.
Our basic service is free, so we always survived on our own resources to give you Snip2Code.
Unfortunately, we are no more in the financial position to sustain this effort, and therefore we are announcing here our permanent shut down,
which will take place on August 1st, 2020.
Please save your private snippets using our backup function in the settings, here.
IF YOU WANT TO SAVE SNIP2CODE, PLEASE CONSIDER DOING A DONATION!
This will allow us to pay for the servers and the infrastructure. If you want to donate, Contact Us!
0
5
2,601
0
Top 1% !
Famous
Tagged
Specified
OpenSource
Popularity: 7364th place

### Published on:

 Architecture x86_64 License MIT_X11 OS Windows Windows Version Windows8

# `Excel simple search cycle`

`How to implement vlookup function in MS Excel VBA`
post this code
Copy Embed Code
``` <iframe id="embedFrame" style="width:600px; height:300px;" src="https://www.snip2code.com/Embed/11284/Excel-simple-search-cycle?startLine=0"></iframe> ```
Click on the embed code to copy it into your clipboard Width Height
Leave empty to retrieve all the content Start End
Public Function searchstring(ByVal sString As String, ByVal iColumn As Integer) As String ' iColumn sets vlookup colum to be returned ' set cycle lenght Dim iTable As Integer iTable = 100 ' result set to blank by default Dim sResult As String sResult = "" Sheets("Sheet").Select For n = 2 To 1 + iTable If sString = Cells(n, 1) Then SResult = Cells(n, iColumn) n = 100 End If Next n Sheets("Original Sheet").Select searchstring = sResult End Function