Что делаю;
имею таблицу 2000 сторок, 16 столбцов. в столбцах E, C, B даты (россия, европпа, америка)
сротирую по дате, после сортировки нужно вернутся в ту часть таблицы сторки котрой не имеют заливки
или залиты другим цветом чем строка с ячейкой начала диапозона А4.
оба макроса отдельно работают и делают, что нужно. Обединить не получается не опыта работы с кодами.
- Код: Выделить всё
Sub сортировка()
'
' сортировка Макрос
' сортировка по датам
'
' Сочетание клавиш: Ctrl+я
'
Range("A4:P2000").Select
ActiveWorkbook.Worksheets("приходы").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("приходы").Sort.SortFields.Add Key:=Range("E4:E2000" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("приходы").Sort.SortFields.Add Key:=Range("C4:C2000" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("приходы").Sort.SortFields.Add Key:=Range("B4:B2000" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("приходы").Sort
.SetRange Range("A4:P2000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub WhatColor()
If ActiveCell.Interior.Color <> 16777215 Then
Do While ActiveCell.Interior.Color = ActiveCell.Offset(1, 0).Interior.Color
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(1, 0).Select
End If
End Sub
[Viper] :: Во-первых, пользуйся тэгом CODE. Во-вторых, тема открыта не в том раздел, как мне кажется более подходящим является раздел по VBA.
