Hi. I am trying to make a survey in excel 2013, using ActiveX option boxes and Sliders, having the user's selection populate the data on a second spreadsheet. I have the data populating properly but unfortunately for some reason the sliders are glitching. They multiple and hover on the screen as you scroll up and down the page. Wondering if anyone has any suggestions.
vba used below:
Private Sub Q6aN_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Q6aN.Value = True Then Worksheets("Data Analysis").Range("AA2").Value = 9
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub Q6aY_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Q6aY.Value = True Then Worksheets("Data Analysis").Range("AA2").Value = 8
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub Q7aBA_Scroll()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Worksheets("Data Analysis").Range("AE2").Value = Q7aBA.Value
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub Q7aGE_Scroll()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Worksheets("Data Analysis").Range("AC2").Value = Q7aGE.Value
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
vba used below:
Private Sub Q6aN_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Q6aN.Value = True Then Worksheets("Data Analysis").Range("AA2").Value = 9
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub Q6aY_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Q6aY.Value = True Then Worksheets("Data Analysis").Range("AA2").Value = 8
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub Q7aBA_Scroll()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Worksheets("Data Analysis").Range("AE2").Value = Q7aBA.Value
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub Q7aGE_Scroll()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Worksheets("Data Analysis").Range("AC2").Value = Q7aGE.Value
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub