Hi Guys,
I am getting, Run-time Error 5 "Invalid Procedure Call or Argument" at the this part of the code.
"o = Left(Cells(a, b).Value, (InStr(1, Cells(a, b).Value, "-") - 1))" . I am not able to figure out the problem.
Please Login or Register to view this content.
Blimey!
First off, I'd change your variable names to something more reflective of what they contain, makes the code much easier to read!
As for the error, (without knowing what you want the code to do), try the following:
Hope that helps,Please Login or Register to view this content.
TKCZBW
in the VBE (VBA Editor) make sure Watch window is shown (if not, go to View --> Watch Window).
In the Watch Window (Watches) drag-and-drop a, b, c from your code and then create a breakpoint at row: Left(Cells(a, b).Value, (InStr(1, Cells(a, b).Value, "-") - 1)) (select the row then press F9). Then press F5 to have the code ran until the breakpoint then check the values for a, b, and c and see whether they make sense or not.
Click on the star if you think I helped you
If there isn't a "-" in the cell.value, the Left function would error because its End argument would be -1
Try something like this...
Please Login or Register to view this content.
Surround your VBA code with CODE tags e.g.;
[CODE]your VBA code here[/CODE]
The # button in the forum editor will apply CODE tags around your selected text.
Hi
0-10 10-20 20-30 30-40 40-50 50-60 60-70
These are the values I have in the celss, all I am trying to do is, seperate numbers in the string, i mean 0,10,20,30 etc
dinakar, did you try to debug the code the way I described you above?
Having run the code I provided above, it certainly works for me.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks