FormControl Scroll Bar_Multiply the Value

[harishs]

Hi Experts,

I am using following code in a Form Control - Scroll Bar to get Min & Max value from a cell (has formula) to another cell as values.

My Cell Value varies between 0 - 50,000... I believe scroll bar has a limitation up to 30,000 hence I am dividing my values by 10.
Eg: 50,000 to 5,000 and 30,000 to 3,000

Now, I want these values to be pasted into the desired cell by multiplying by 10.
5,000 to 50,000 and 3,000 to 30,000

Sub testing()
    Dim Bar As ScrollBar
    Dim Mybk As Workbook: Set Mybk = ThisWorkbook
    Dim Sht As Worksheet: Set Sht = Mybk.Sheets("test_Sheet")
           
    Set Bar = Sht.ScrollBars("Scroll Bar 10")
        With Bar 'values will be placed in cell AM16:AR16
        .Max = 5000
        .Min = 1000
        .SmallChange = 500
        .LargeChange = 500
    End With
        Sht.Range("AM16:AR16").Copy
        Sht.Range("AC16:AH16").PasteSpecial xlPasteValues
        Application.CutCopyMode = False
End Sub

how do I multiply values by 10 while pasting?

Regards,
Harish S

 

[Paul Ked]

delete - wrong place!!

 

[Paul Ked]

Sorry about that, but as I may have raised your hopes try:

Sub testing()
    Dim Bar As ScrollBar, cl As Long
    Dim Mybk As Workbook: Set Mybk = ThisWorkbook
    Dim Sht As Worksheet: Set Sht = Mybk.Sheets("test_Sheet")
           
    Set Bar = Sht.ScrollBars("Scroll Bar 10")
    With Bar 'values will be placed in cell AM16:AR16
        .Max = 5000
        .Min = 1000
        .SmallChange = 500
        .LargeChange = 500
    End With
    For cl = 29 To 34
        Sht.Cells(16, cl + 10) = Sht.Cells(16, cl) * 10
    Next
End Sub