Could some one please help me find the issue that is causing error in the part of the code below? I am basically getting error is the If IsError part of the code
Do While colF < 1
If IsError(WorksheetFunction.Search("Multiple", wkShtF.Cells(1, colF), 1)) Then
0
colF = colF + 1
Else
multiple = WorksheetFunction.Search("Multiple", wkShtF.Cells(1, colF), 1)
colF = colF + 1
End If
Loop
Thank you in advance
__._,_.___
----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.
----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA
----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com
----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.
----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA
----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com
----------------------------------
.
__,_._,___
Tidak ada komentar:
Posting Komentar