простая сортировка с заранее неизвестным количеством строк

[ShamanK]

Парни прошу помощь!

на этом форуме нашел массу примеров сортировки и все равно никак не догоню

что есть
есть несколько листов с заказами которые макрос собирает в одну большую сводную таблицу в отдельном листе.
в этой сводной таблице известно количество столбцов и заранее не известно количество строк.
после формирования этой таблицы необходимо отсортировать ее по номеру заказа по возрастанию...
споткнулся в том, что все примеры даются с заранее известным количеством строк (((

[EducatedFool]

Где пример файла?

Если есть строка заголовка:

ActiveSheet.UsedRange.Sort [b1], xlAscending, , , , , , xlYes

Если нет строки заголовка (данные начинаются с первой строки):

ActiveSheet.UsedRange.Sort [b1], xlAscending, , , , , , xlNo

[b1] - первая ячейка столбца, по которому осуществляется сортировка

[ShamanK]

Сообщение от EducatedFool

Где пример файла?

Если есть строка заголовка:

ActiveSheet.UsedRange.Sort [b1], xlAscending, , , , , , xlYes

Если нет строки заголовка (данные начинаются с первой строки):

ActiveSheet.UsedRange.Sort [b1], xlAscending, , , , , , xlNo

[b1] - первая ячейка столбца, по которому осуществляется сортировка

вот функция которая "шерстит" листы и собирает данные на один лист

Function Form()
Dim kolTr As Integer
 Set wksh1 = Worksheets("Главная")
 Set wksh3 = Worksheets("Рабочая")
 Set wksh10 = Worksheets("LLZ")
wksh10.Range("A:T") = ""
nchC = 11
konC = Sheets.Count
Col = 0

        For i = nchC To konC
            Set sht = Sheets(i)
            y = 10
                If sht.Cells(y, "B") <> "" Then
                    Do While sht.Cells(y, "B") <> ""
                        Col = Col + 1
                        wksh10.Cells(Col, "A").Value = sht.Cells(y, "B")
                        wksh10.Cells(Col, "B").Value = sht.Cells(y, "F")
                        wksh10.Cells(Col, "C").Value = sht.Cells(y, "G")
                        wksh10.Cells(Col, "D").Value = sht.Cells(y, "D")
                        wksh10.Cells(Col, "E").Value = i - 10
                        y = y + 1
                    DoEvents
                    Loop
                
                
                End If
                
        DoEvents
        Next i

'    wksh10.Columns("A:A").Select
'    wksh10.Sort.SortFields.Clear
'    wksh10.Sort.SortFields.Add Key:=Range("A1"), _
'        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
'    With wksh10.Sort
'        .SetRange wksh10.Range(Cells(1, "A"), Cells(Col, "E"))
'        .Header = xlNo
'        .MatchCase = False
'        .Orientation = xlTopToBottom
'        .SortMethod = xlPinYin
'        .Apply
'    End With

End Function

внизу закомментирована попытка отсортировать по столбцу А ((((
сделать ActiveSheet нельзя... необходимо сортировать без выделения этого листа..

[ShamanK]

сам допер )))
оказалось все очень банально и просто..
ответ крылся в самом вопросе.
вопрос начинался со слова ПРОСТАЯ.. )))
следовательно чем проще тем лучше..
а потому вместо конструкции:

PHP код:

            Do While sht.Cells(y, "B") <> ""
                        Col = Col + 1
                        wksh10.Cells(Col, "A").Value = sht.Cells(y, "B")
                        wksh10.Cells(Col, "B").Value = sht.Cells(y, "F")
                        wksh10.Cells(Col, "C").Value = sht.Cells(y, "G")
                        wksh10.Cells(Col, "D").Value = sht.Cells(y, "D")
                        wksh10.Cells(Col, "E").Value = i - 10
                        y = y + 1
                    DoEvents
                    Loop 


использовал следующее :
в ячейку А записывается номер заказа. их всегда не больше 1000 и этот номер всегда уникальный, следовательно

PHP код:

wksh10.Cells(Col, "A").Value = sht.Cells(y, "B") 


можно изменить на

PHP код:

строка = sht.Cells(y, "B") 


и получится:

PHP код:

             Do While sht.Cells(y, "B") <> ""
                        строка = sht.Cells(y, "B")
                        wksh10.Cells(строка , "A").Value = sht.Cells(y, "B")
                        wksh10.Cells(строка , "B").Value = sht.Cells(y, "F")
                        wksh10.Cells(строка , "C").Value = sht.Cells(y, "G")
                        wksh10.Cells(строка , "D").Value = sht.Cells(y, "D")
                        wksh10.Cells(строка , "E").Value = i - 10
                        y = y + 1
                    DoEvents
                    Loop 


и следующим циклом удалить все пустые строки если таковые будут место быть )))

[ShamanK]

Все таки не могу уйти от сортировки...
нижеприведенный код в двух листах формирует определенные данные.
и в самом конце оба эти листа необходимо отсортировать
по первому столбцу... никак не догоню как это сделать ((

Function FormBidAsk()
Dim i, cntBid, cntAsk, u, x, n  As Integer
 Set wksh1 = Worksheets("Главная")
 Set wksh2 = Worksheets("Игроки")
 Set wksh3 = Worksheets("Рабочая")
 Set wksh4 = Worksheets("STAK")
 Set wksh5 = Worksheets("BID")
 Set wksh6 = Worksheets("ASK")
 Set wksh7 = Worksheets("CPS")
 Set wksh8 = Worksheets("LP")
 Set wksh9 = Worksheets("LZ")
 Set wksh10 = Worksheets("LLZ")

  wksh5.Range("A:T") = ""
  wksh6.Range("A:T") = ""

        For i = 1 To wksh3.Cells(2, "B")
                If wksh10.Cells(i, "A") <> "" Then
                ''''''''''''''''''''''''''''''''''''''''''''''''''''''
                '''''''''Если ордер на продажу заносим его в Аски
                    If wksh10.Cells(i, "D") = "SELL" Then
                        x = 0
                        For u = 1 To wksh4.Cells(2, "K") + 3
                              If wksh10.Cells(i, "B") = wksh6.Cells(u, "A") Then
                                 x = 1
                                 wksh6.Cells(u, "A") = wksh10.Cells(i, "B")
                                 wksh6.Cells(u, Columns.Count).End(xlToLeft).Offset(, 1).Value = wksh10.Cells(i, "A")
                              End If
                        DoEvents
                        Next u
                        
                        If x = 0 Then
                           wksh6.Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = wksh10.Cells(i, "B")
                           iRow = wksh6.Columns("A").Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
                           wksh6.Cells(iRow, Columns.Count).End(xlToLeft).Offset(, 1).Value = wksh10.Cells(i, "A")
                        End If
                    End If

                ''''''''''''''''''''''''''''''''''''''''''''''''''''''
                '''''''''Если ордер на покупку заносим его в Биды
                    If wksh10.Cells(i, "D") = "BUY" Then
                        n = 0
                        For u = 1 To wksh4.Cells(2, "J") + 3
                              If wksh10.Cells(i, "B") = wksh5.Cells(u, "A") Then
                                 n = 1
                                 wksh5.Cells(u, "A") = wksh10.Cells(i, "B")
                                 wksh5.Cells(u, Columns.Count).End(xlToLeft).Offset(, 1).Value = wksh10.Cells(i, "A")
                              End If
                        DoEvents
                        Next u
                        
                        If n = 0 Then
                           wksh5.Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = wksh10.Cells(i, "B")
                           iRow = wksh5.Columns("A").Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
                           wksh5.Cells(iRow, Columns.Count).End(xlToLeft).Offset(, 1).Value = wksh10.Cells(i, "A")
                        End If
                    End If
                End If
        DoEvents
        Next i

'wksh5.UsedRange.Sort [a1], xlAscending, , , , , , xlNo
'wksh6.UsedRange.Sort [a1], xlAscending, , , , , , xlNo

End Function