How to correct this error

Having trouble finding a way to work around this error "subscript out of range"
I think the error is happening because of the UBound(xx) value is 3 and the (n) value is 10. This function is part of a larger code that I am not very familiar with but hoping maybe there is a work around for this error.

Attachment 24148

Hello leal72,

You have not declared the variable n in your code.

thanks for reply. That's not it though, I declared it to test it out and same error

Guess that the value of the n variable exceeds ubound(xx).

Quote:

---

Originally Posted by 大灰狼1976

Guess that the value of the n variable exceeds ubound(xx).

---

yes, this correct. Looking for a solution that will allow code to not error out

1. Pasting the code between CODE tags would make it easier for people to test

2. Are you sure you've converted the code correctly?

Code:

---


If x = xx(n) Then
    j = 1
ElseIf x= xx(n) Then
    j = n-1

---

seems odd. Pretty sure you meant

Code:

---

If x = xx(1) Then

---

https://www2.units.it/ipl/students_area/imm2/files/Numerical_Recipes.pdf

Attachment 24151

Thank you for the response

Might just be lost cause for me. Working on code for someone else, code writter no longer around to get feedback from. As code is now, it will process data for some sample sets but not for others, ie whenever the variable n value exceeds UBound(xx)

Made the change you suggested

HTML Code:

---

If x = xx(1) Then

---

gets me past this sticking point but creates another calculation issue down the line, run-time error 6, overflow

HTML Code:

---

slope = (yy2 - yy1) / (xx2 - xx1)

---

and the subscript out of range still exists

HTML Code:

---

ElseIf x = xx(n) Then

---

Instead of trying to port C code to VBA, it might be better to just define what you want to do, and not how you want to do it