Inverse sliders, vlookup and cell referencing

**dean_fox** · 10-03-2012, 07:53 AM

Hi - any assistance greatly appreciated. Please see file attached.

I have two sliders operating so that changing the value of one slider inversely changes the value of the other.
I have done this by creating a vlookup function that picks out the inverse value I require from the appropriate table and then I make the slider linked cell equal the vlookup cell and Bob's your uncle - and in fact, he is my uncle!!

....anyway

If I then use one of the sliders I can move it left and right quite happily and the other slider moves inversely. Great.

The problem occurs when having used one slider, I try and move the other slider. Both the linked cell references to the vlookup cells break and the sliders cease to work in tandem.

I cannot seem to get the cell reference from the linked cell to permanently look at the value created in the vlookup cell.

I have tried everything I can think of without success. If anyone can help before I lose what's left of my hair I'd be very grateful.

Thanks.

**Andy Pope** · 10-03-2012, 08:41 AM

The linked cells for the scrollers can only contain a value and not a formula.
Instead you need to hook into the scroller events.

right click sheet tab and pick View code. Paste the following.

Private m_blnUpdating As Boolean
Private Sub ScrollBar1_Change()

    If m_blnUpdating Then Exit Sub
    
    m_blnUpdating = True
    ScrollBar2.Value = Range("L7")
    m_blnUpdating = False
    
End Sub


Private Sub ScrollBar1_Scroll()

    If m_blnUpdating Then Exit Sub
    
    m_blnUpdating = True
    ScrollBar2.Value = Range("L7")
    m_blnUpdating = False

End Sub


Private Sub ScrollBar2_Change()

    If m_blnUpdating Then Exit Sub
    
    m_blnUpdating = True
    ScrollBar1.Value = Range("L5")
    m_blnUpdating = False

End Sub


Private Sub ScrollBar2_Scroll()

    If m_blnUpdating Then Exit Sub
    
    m_blnUpdating = True
    ScrollBar1.Value = Range("L5")
    m_blnUpdating = False

End Sub