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

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование строки на лист в зависимости от значения ячейки (Макросы/Sub)

Tarassov_Egor

Дата: Пятница, 18.06.2021, 05:47 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 20

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

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

16

Добрый день!
Задачка следующая:
Необходимо сделать так, чтобы макрос искал значение ячейки в столбце с определенным названием (пример приложил), при нахождении любого значения в ячейке столбца, копировал эту строку на конкретный лист с аналогичным названием.
В примере более понятно изложена суть задачи.
Еще если возможно это реализовать, хотелось бы чтобы те строки которые были скопированы с листа "Исходник" закрашивались цветом (так скажем для проверки).
Буду премного благодарен, так как голову сломал как это сделать, VBA только начал изучать, а задача приоритетная, для ускорения рабочего процесса.

К сообщению приложен файл: 9588437.xlsx (19.7 Kb)

Ответить

nilem

Дата: Пятница, 18.06.2021, 09:43 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

Tarassov_Egor, привет
попробуйте так:
[vba]

Код

Sub ertert112()
Dim arr, i&
arr = Array("Новейшая", 4, "Новая", 5, "Завышение %", 6, "ПУстые ячейки", 10)
Application.ScreenUpdating = False
With Sheets("Исходник").Range("A1").CurrentRegion
    .Parent.AutoFilterMode = False
    For i = 0 To UBound(arr) Step 2
        Sheets(arr(i)).Range("A1").CurrentRegion.Clear
        .AutoFilter arr(i + 1), "<>"
        .Copy Sheets(arr(i)).Range("A1")
        With .CurrentRegion
            .Offset(1).Resize(.Rows.Count - 1).Interior.ColorIndex = 43
        End With
        .AutoFilter
    Next i
End With
Application.ScreenUpdating = True
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Страница 1 из 1
1