Сортировка по цвету

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Сортировка по цвету (Макросы/Sub)

Сортировка по цвету

Fredigoodle

Дата: Четверг, 20.01.2022, 20:12 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Подскажите как сделать, чтобы из заявок, сортировка шла по цветам которые там указаны, количество там считает при вставки в эксель этих заявок цветных заявок. И второй вопрос по вводу "причины" надо сделать чтобы заполнялись I:3 столбец... Спасибо

К сообщению приложен файл: 123.xlsm (30.1 Kb)

Ответить

msi2102

Дата: Пятница, 21.01.2022, 12:25 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 415

Репутация: 129 ±

Замечаний: 0% ±

Excel 2007

Цитата Fredigoodle, 20.01.2022 в 20:12, в сообщении № 1 (

)

сортировка шла по цветам которые там указаны

Если правильно понял, то попробуйте так
[vba]

Код

Sub Макрос3()
Dim r As Range
Range("D3:G" & Cells(Rows.Count, 3).End(xlUp).Row).Clear
For Each r In Range("C3:C" & Cells(Rows.Count, 3).End(xlUp).Row)
    Select Case r.Interior.Color
        Case 65280
            r.Copy Cells(Cells(Rows.Count, 4).End(xlUp).Row + 1, 4)
        Case 39423
            r.Copy Cells(Cells(Rows.Count, 5).End(xlUp).Row + 1, 5)
        Case 65535
            r.Copy Cells(Cells(Rows.Count, 6).End(xlUp).Row + 1, 6)
        Case 12811406
            r.Copy Cells(Cells(Rows.Count, 7).End(xlUp).Row + 1, 7)
    End Select
Next
End Sub

[/vba]