Userformda sıralama

[soykan]

Bir user form üzerine list box yerleştirdim.

List box a 2 sütundan veri alıyorum. bu aldığım sütunları user forma ilave ettiğim 2 adet command button vasıtası ile 1.nci kolon veyaa 2.kolona göre sıralamak istiyorum.

Datanın olduğu sayfada bunu yptığımda bir sorun yok. Ancak başka bir sayfada user formu açmak istediğimde hata veriyor. bende asıl olarak başka bir sayfada açmak istiyorum. Nasıl düzeltebilirim?


Private Sub CommandButton1_Click()
Sheets("FirmaData").Select


ActiveWorkbook.Worksheets("FirmaData").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FirmaData").Sort.SortFields.Add Key:=Range( _
"A2:A72"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("FirmaData").Sort
.SetRange Range("A1:B72")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

Private Sub CommandButton2_Click()
Sheets("FirmaData").Select

ActiveWorkbook.Worksheets("FirmaData").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FirmaData").Sort.SortFields.Add Key:=Range( _
"B2:B72"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("FirmaData").Sort
.SetRange Range("A1:B72")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

Private Sub UserForm_Initialize()
With ListBox1
.BoundColumn = 2
.ColumnCount = 2
.RowSource = "FirmaData!A2: B" & WorksheetFunction.CountA([a:a])
.ColumnHeads = True
.ColumnWidths = 50 & ";" & 100

End With
End Sub