listbox ile kayıt ve sıralama

[erzen]

Merhabalar. Arkadaşlar listboxa aldığım verileri aşağıdaki kodlarla sayfaya gönderiyorum ancak sayfada sıralama yapmıyor. Nedendir anlayamadım.Yardımcı olursanız sevinirim.

Sheets("Sayfa7").Select
Range("a2:E55000").Select
Selection.ClearContents
Dim CB As CommandBar
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
For Each CB In Application.CommandBars
CB.Enabled = False
Next CB
With ActiveWindow
.DisplayHeadings = False
.DisplayOutline = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Sayfa7
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
.Range("a1:" & Cells(sat, sut).Address) = ListBox1.List
Range("A1:E60000").Sort Key1:=Range("D2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers End With
Me.Hide
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
CommandButton38.Enabled = True

 

[halit3]

Merhabalar. Arkadaşlar listboxa aldığım verileri aşağıdaki kodlarla sayfaya gönderiyorum ancak sayfada sıralama yapmıyor. Nedendir anlayamadım.Yardımcı olursanız sevinirim.

Sheets("Sayfa7").Select
Range("a2:E55000").Select
Selection.ClearContents
Dim CB As CommandBar
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
For Each CB In Application.CommandBars
CB.Enabled = False
Next CB
With ActiveWindow
.DisplayHeadings = False
.DisplayOutline = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Sayfa7
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
.Range("a1:" & Cells(sat, sut).Address) = ListBox1.List
Range("A1:E60000").Sort Key1:=Range("D2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers End With
Me.Hide
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
CommandButton38.Enabled = True

böyle denermisiniz

Sheets("Sayfa7").Select
Range("a2:E55000").Select
Selection.ClearContents
Dim CB As CommandBar
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
For Each CB In Application.CommandBars
CB.Enabled = False
Next CB
With ActiveWindow
.DisplayHeadings = False
.DisplayOutline = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Sayfa7
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
.Range("a1:" & Cells(sat, sut).Address) = ListBox1.List
Range("A1:E60000").Sort Key1:=Range("D2"), Order1:=xlAscending
End With
Me.Hide
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
CommandButton38.Enabled = True

 

[erzen]

Maalesef olmadı. Tablo başlıklarını en alta aldı.