how to set controlsource to a scrolbar inside a userform?

[marik9581]

hi

i have a userform with a scrollbar which i need to set to a range of cells. how do i do it?

 

[Anthony47]

For example:

Userform1.ScrollBar1.ControlSource = "Sheet1!K5"

This sets the controlsource for SrollBar1 in Userform1 to cell K5 in Sheet1

bye

 

[marik9581]

i get an error message: could not set the controlsource property. invalid property value

 

[Anthony47]

i get an error message: could not set the controlsource property. invalid property value

Whic is the full code you used?

 

[marik9581]

in the worksheet itself i placed a button with this code:

Sub brands()    UserForm1.ScrollBar1.ControlSource = Sheets("config").Range("A2")
    UserForm1.Show
End Sub

in the userform code i used:

Private Sub UserForm_Activate()    Dim xlsettings As Worksheet
    Dim xlworkbook As Workbook
    Dim rngexternal As Range
    Dim lastrow As Long
    
    Set xlworkbook = Application.Workbooks("data.xlsm")
    Set xlsettings = xlworkbook.Worksheets("config")
    With xlsettings
        lastrow = .Cells(.Rows.Count, "A").End(xlUp).Offset(0, 0).Row
    End With
Set rngexternal = xlsettings.Range("a2:a" & CStr(lastrow))
    
End Sub

the same happends when i try to set the controlsource inside the userform code or in the moudle itself.

 

[Anthony47]

Does this look like what I suggested?

UserForm1.ScrollBar1.ControlSource = Sheets("config").Range("A2")

UserForm1.ScrollBar1.ControlSource = "config!A2"

 

[marik9581]

same error

 

[Anthony47]

same error

Same question: which is the full code you used

 

[marik9581]

ok. i figured it out.
the scrollbar is linked to a text cell and not to a numeric cell.