Автоматическая групировка данных в Excel

[maugli1212]

Хотелось бы создать для себя что-то вроде органайзера в Excel. Возникла следующая задача:
В каждой строке указано имя клиента, в тойже строке, но в другой ячейке я указываю дату, когда с этим клиентом надо связаться. Как сделать так, чтобы при наступлении этой даты вся строка автоматически становилась на первое место в списке клиентов?

[motorway]

Примерно так:

If Cells(1,1).Value=Date Then
    Rows("10:10").Select
    Selection.Cut
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
End if

Дальше надо смотреть

[maugli1212]

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

Примерно так:

If Cells(1,1).Value=Date Then
    Rows("10:10").Select
    Selection.Cut
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
End if

Дальше надо смотреть

Можно ли показать на примере:

[R Dmitry]

Sub test()
For i = 4 To 1000
If Cells(i, 2) = Cells(3, 5) Then
Rows(i).Cut
Rows(4).Insert Shift:=xlDown
exit for
End If
Next i

End Sub

можно так

[R Dmitry]

но это при условии что это одна запись

[maugli1212]

Сообщение от R Dmitry

Sub test()
For i = 4 To 1000
If Cells(i, 2) = Cells(3, 5) Then
Rows(i).Cut
Rows(4).Insert Shift:=xlDown
exit for
End If
Next i

End Sub

можно так

А если выпадают одинаковые даты в разных строках?

[SAS888]

Если строк очень много, то перебирать и сравнивать все значения в столбце будет очень долго. В отличии от VB, в VBA Excel есть много специальных методов для работы с ячейками, диапазонами, листами и т.д.
Данную задачу можно решить вообще не используя циклов. Предлагаю один из возможных вариантов:

Sub Main()
    Dim x As Range, i As Long
    i = Cells(Rows.Count, 2).End(xlUp).Row: Application.ScreenUpdating = False
    Set x = [B:B].Find(Date): If x Is Nothing Then Exit Sub
    [B:B].ColumnDifferences(x).EntireRow.Hidden = True
    Set x = Intersect(Rows("1:" & i), [B:B].SpecialCells(xlCellTypeVisible))
    Rows.Hidden = False: Rows("4:" & 4 + x.Rows.Count).Insert
    x.EntireRow.Copy Rows(4): x.EntireRow.Delete
End Sub

Вместо "Date" можно использовать значение ячейки, содержащей требуемую дату. В Вашем примере - ячейка "E3".
Пример во вложении.

[IgorGO]

уважаемый Маугли,
предлагаю Вам обойтись без VB и VBA (надеюсь Сережа меня простит). воспользуйтесь стандартными средствами Excel все, что необходимо сделать - добавить одну колонку с формулой.
пример во вложении.
Ваши действия теперь таковы:
1.пишете клиента, дату встречи, в третьей колонке автоматически заполняется формула
2.жмете по фильтру, жмете Ок (строка спряталась или осталась видимой)
3.ставите курсор куда-нибудь во вторую колонку, жмете по кнопке сортировать от Я до А.

[SAS888]

предлагаю Вам обойтись без VB и VBA (надеюсь Сережа меня простит)

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

P.S А что нужно делать, если, например, пользователь не открывал файл день или два? Дату встречи мы можем пропустить.
Может проще делать сортировку по дате, где сначала будут строки с сегодняшней датой, затем завтрашней и так по порядку, а строки с уже прошедшей датой опускать в самый низ. Если нужно, можно и раскрасить ячейки в зависимости от оставшихся дней др встречи.

[IgorGO]

С VB и VBA я пытался юморить. частенько это у меня получается неуклюже...

А что нужно делать, если, например, пользователь не открывал файл день или два?

- выгонять с работы!!!