Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копирование строки на лист в зависимости от значения ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование строки на лист в зависимости от значения ячейки (Макросы/Sub)
Копирование строки на лист в зависимости от значения ячейки
Tarassov_Egor Дата: Пятница, 18.06.2021, 05:47 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 20% ±

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

Автор - Tarassov_Egor
Дата добавления - 18.06.2021 в 05:47
nilem Дата: Пятница, 18.06.2021, 09:43 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1596
Репутация: 553 ±
Замечаний: 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
 
Ответить
Сообщение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]

Автор - nilem
Дата добавления - 18.06.2021 в 09:43
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование строки на лист в зависимости от значения ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!