[предок]

Подскажите, пожалуйста
Как сделать макрос, который, допустим из списка клиентов банка, отбирает на новые листы информацию о клиентах, имеющих вклад от 100 000 до 200 000, на другой лист 200 001 до 300 000, на третий ... и т.д.

[trir]

Обязательно хочется в гамаке и стоя?
Изучай Access!!!

[Олег (jr.)]

Для старта, допустим суммы в колонке "B",
лист с основными данными "Sheet1":

Код:

[Выделить все]

Sub ExtractSummary()

Dim newSheet As Worksheet
Set newSheet = ThisWorkbook.Sheets.Add
newSheet.Name = "150000"

Sheets("Sheet1").Activate

With ActiveSheet.UsedRange.CurrentRegion

     Dim rw As Long, idx As Long, i As Long
     Dim inv As Currency
    rw = Cells(Rows.Count, "B").End(xlUp).Row
    i = 1
    For idx = rw To 2 Step -1
        inv = Cells(idx, "B").Value
        If inv > 150000 And inv < 250000 Then
        newSheet.Cells(i, 1) = inv
        i = i + 1
        End If
    Next idx
    End With

newSheet.Activate

End Sub

[trir]

А мой код короче

Код:

[Выделить все]

select клиенты where вклад between 100 000 and 200 000

[hwd]

@предок
Определись для себя, какая СУБД тебе более подойдёт, исходя из исходных данных (ОС, объёмы данных, количество одновременно работающих с БД юзеров и т.п.), после чего задавай вопросы здесь. Решения "аля Excel" можешь смело выбрасывать в ведро - такой вариант даже рассматривать не стоит.

[предок]

Олег, спасибо

[Дима_]

На самом деле конкретно эту задач можно решить и просто формулами (комбинацией =если(...) и =впр(...)), но путь этот естественно тупиковый - рано или поздно в упрешся в возможности excel.

[предок]

спасибо

[hwd]

Сообщение от Дима_ но путь этот естественно тупиковый - рано или поздно в упрешся в возможности excel.

Offtop: Не сбивай человека с пути, он же через Excel хочет... Ему уже и "код" дали... Похоже, что это не тот случай, когда вопрошающий предпочитает учиться на чужих ошибках. Думать будет после...

[предок]

если честно, участвую в форме впервые
есть еще у меня вопрос - в екселе кол-во записей больше миллиона можно сделать?

[hwd]

Сообщение от предок если честно, участвую в форме впервые есть еще у меня вопрос - в екселе кол-во записей больше миллиона можно сделать?

Есть такая штука - гугл. Им вообще удобней пользоваться (если руки есть), вместо того, чтобы ждать, что это сделает кто-то другой, а то ведь могут и полениться, что тогда?

Ответ находится за секунду:

Начиная с версии Excel 2007, размер сетки увеличен с 65 000 до более чем одного миллиона строк. Это увеличение повлекло за собой ряд проблем с производительностью и отображением при работе с графическими объектами в новых областях расширенной сетки. В Excel 2010 были оптимизированы функции, в которых в качестве источника используются данные левой верхней части сетки, что позволило повысить производительность при работе с графическими элементами в новых областях сетки. По сравнению с Excel 2007 удалось повысить качество и производительность функций отображения.

Лучше это делать в Word'е, чтобы удовольствие было максимальным...

[Олег (jr.)]

Сообщение от предок Олег, спасибо

Я думаю лучше сначала создать копию листа данных
"CopyData") отсортировать его по столбцу сумм,
потом применить что-то вроде

Код:

[Выделить все]

Sub ExtractSummary()

Dim newSheet As Worksheet
Set newSheet = ThisWorkbook.Sheets.Add
newSheet.Name = "150000"

Sheets("CopyData").Activate
Application.CutCopyMode = xlCut
With ActiveSheet.UsedRange.CurrentRegion

     Dim rw As Long, idx As Long, i As Long
     Dim inv As Currency
    rw = Cells(Rows.Count, "B").End(xlUp).Row
    i = 1
    For idx = rw To 2 Step -1
        inv = Cells(idx, "B").Value
        If inv > 150000 And inv < 250000 Then
       newSheet.Cells(i, 1).EntireRow.Value = Cells(idx, "B").EntireRow.Value
        Cells(idx, "B").EntireRow.Delete
        i = i + 1
        End If
    Next idx
    End With

newSheet.Activate

End Sub