Hey
I've written a simple VBA code that references several Excel worksheets, but every time I compile it, I get 'Application-defined or object-defined error.' What am I doing wrong?
Here's my code:
Sub errorpropagationforQ()
For w = 2 To 134
For a = 1 To 12
If a = 2 Then p = 4 And o = 9
If a = 3 Then p = 5 And o = 11
If a = 4 Then p = 6 And o = 12
If a = 5 Then p = 7 And o = 13
If a = 6 Then p = 10 And o = 16
If a = 7 Then p = 11 And o = 17
If a = 8 Then p = 13 And o = 20
If a = 9 Then p = 14 And o = 21
If a = 10 Then p = 15 And o = 22
If a = 11 Then p = 17 And o = 24
If a = 1 Then y = y + (1 / Worksheets("Coefficients").Cells(3, 3)) ^ 2 * (Worksheets("Coefficients").Cells(3, 4)) ^ 2
If a = 12 Then y = y + (Worksheets("Normalized Expanded").Cells(w + 1, 25)) ^ 2 * (Worksheets("Coefficients").Cells(3, 4)) ^ 2
If a > 2 And a < 12 Then y = y + (Log(Worksheets("Normalized Expanded").Cells(w, o))) ^ 2 * Worksheets("Coefficients").Cells(p, 4) ^ 2 (THIS IS WHERE IT IS HILITED)
.
.
.
.
.
.
Thanks,
Miz
I've written a simple VBA code that references several Excel worksheets, but every time I compile it, I get 'Application-defined or object-defined error.' What am I doing wrong?
Here's my code:
Sub errorpropagationforQ()
For w = 2 To 134
For a = 1 To 12
If a = 2 Then p = 4 And o = 9
If a = 3 Then p = 5 And o = 11
If a = 4 Then p = 6 And o = 12
If a = 5 Then p = 7 And o = 13
If a = 6 Then p = 10 And o = 16
If a = 7 Then p = 11 And o = 17
If a = 8 Then p = 13 And o = 20
If a = 9 Then p = 14 And o = 21
If a = 10 Then p = 15 And o = 22
If a = 11 Then p = 17 And o = 24
If a = 1 Then y = y + (1 / Worksheets("Coefficients").Cells(3, 3)) ^ 2 * (Worksheets("Coefficients").Cells(3, 4)) ^ 2
If a = 12 Then y = y + (Worksheets("Normalized Expanded").Cells(w + 1, 25)) ^ 2 * (Worksheets("Coefficients").Cells(3, 4)) ^ 2
If a > 2 And a < 12 Then y = y + (Log(Worksheets("Normalized Expanded").Cells(w, o))) ^ 2 * Worksheets("Coefficients").Cells(p, 4) ^ 2 (THIS IS WHERE IT IS HILITED)
.
.
.
.
.
.
Thanks,
Miz