Vba user form rowsource

[chunu]

HI,
user form search data from the same sheet,I want to get data from other sheet.
need to change rowsource
please help.
sample workbook attached.

https://sites.google.com/site/shoaibkahoot/ListBox.xlsm

 

[lhartono]

Try this...

'
[COLOR=#000000]Private Sub UserForm_Initialize()
Dim sArr(), SRan As Range, [/COLOR][COLOR=#0000ff]strSource As String[/COLOR][COLOR=#000000]

[/COLOR][COLOR=#0000ff]strSource = "sheet1"[/COLOR][COLOR=#000000]
Me.OptionButton1 = True
[/COLOR][COLOR=#0000ff]Set SRan = Range(Sheets(strSource).Range("a2"), Sheets(strSource).Range("a2").End(xlDown).End(xlToRight))[/COLOR][COLOR=#000000]
ReDim sArr(1 To SRan.Rows.Count, 1 To SRan.Columns.Count)
sArr = SRan.Value
sArr = bbSort(sArr)

Me.ListBox1.List = sArr

End Sub[/COLOR]

 

[chunu]

Try this...

'
[COLOR=#000000]Private Sub UserForm_Initialize()
Dim sArr(), SRan As Range, [/COLOR][COLOR=#0000ff]strSource As String[/COLOR][COLOR=#000000]

[/COLOR][COLOR=#0000ff]strSource = "sheet1"[/COLOR][COLOR=#000000]
Me.OptionButton1 = True
[/COLOR][COLOR=#0000ff]Set SRan = Range(Sheets(strSource).Range("a2"), Sheets(strSource).Range("a2").End(xlDown).End(xlToRight))[/COLOR][COLOR=#000000]
ReDim sArr(1 To SRan.Rows.Count, 1 To SRan.Columns.Count)
sArr = SRan.Value
sArr = bbSort(sArr)

Me.ListBox1.List = sArr

End Sub[/COLOR]

wow
Thank you so much