Multipage Form, "missing" correct Sheet reference

[ebea]

Hi! I have a frustrating "little" problem, with a mulipage Form, that's when I switch between the Tabs, can't get the correct Sheet to list info, into Text boxes on the actual Tab. No matter which Tabs I select, it only list info from the first Tabs Sheet info.
I use the following code, to list through a list of numbers, which shows up in Text boxes. All that works correct, with exception, that the Sheet reference do not follow, even that I define "Set" Sheet in the code.

Sub spn4(x As Integer)
Dim Rng As Range
Static c As Integer
Set Sh = Sheets("samling")
Set Rng = Range(Range("B3"), Range("B" & Rows.Count).End(xlUp))
c = c + x
If c >= Rng.Count Then c = Rng.Count
If c <= 0 Then c = 1
TextBox65 = Rng(c)
Call CommandButton9_Click
End Sub

Private Sub SpinButton4_SpinDown()
Dim p As Integer
p = -1
Call spn4(p)
End Sub

Private Sub SpinButton4_SpinUp()
Dim p As Integer
p = 1
Call spn4(p)
End Sub

 

[dmt32]

Hi,
I suspect you need to qualify your range to resolve the issue - maybe.

Set sh = Sheets("samling")
Set Rng = sh.Range(sh.Range("B3"), sh.Range("B" & sh.Rows.Count).End(xlUp))

Dave

 

[mikerickson]

You code is putting the value of Range("B3").Cells(c, 1) into TextBox65.

There is nothing there that depends on which tab of a MultiPage is active.

What do you want to happen?

 

[ebea]

Hi,
I suspect you need to qualify your range to resolve the issue - maybe.

Set sh = Sheets("samling")
Set Rng = sh.Range(sh.Range("B3"), sh.Range("B" & sh.Rows.Count).End(xlUp))

Dave

That did the "trick". Thank you. I did try other combinations, to define the Sheet, without luck, but not this one

 

[ebea]

You code is putting the value of Range("B3").Cells(c, 1) into TextBox65.

There is nothing there that depends on which tab of a MultiPage is active.

What do you want to happen?

Thank's for taking the time, Mike. Yes, it's correct that it loads into TextBox65, but longer down in code, it calls CommandButton9, which runs rest of the code.

 

[dmt32]

That did the "trick". Thank you. I did try other combinations, to define the Sheet, without luck, but not this one

welcome - glad we were able to help

Dave