Перенести данные в определённую колонку по условию

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

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

Перенести данные в определённую колонку по условию (Макросы/Sub)

shkiliovdmitriyaih

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

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

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

Сообщений: 2

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

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

Добрый день всем экспертам! Прошу помощь...

Во вложении файл - для лучшего понимания описания задачи.
В файле 2 листа: Report и База. На листе Report в строке 2 указаны номера недель (21W01 ... 21W53). На листе База в ячейке B1 также указан номер определённой недели (например 21W11). Нужно, чтобы макрос "видя" номер недели на листе База вставлял значения из колонки B этого листа (в данном примере - диапазон B2:B14) в нужную неделю на листе Report (как должно быть - в файле)

Заранее благодарю всех, кто откликнется!

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

Ответить

Kuzmich

Дата: Четверг, 25.03.2021, 19:03 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 713

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

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

Excel 2003

При активном листе База запустить макрос
[vba]

Код

Sub Perenos()
Dim FoundCell As Range
  With Worksheets("Report")
    Set FoundCell = .Rows(2).Find(Range("B1"), , xlValues, xlWhole)
    If Not FoundCell Is Nothing Then
      Range("B2:B14").Copy FoundCell.Offset(1)
    End If
  End With
End Sub

[/vba]

Ответить

shkiliovdmitriyaih

Дата: Четверг, 25.03.2021, 19:41 | Сообщение № 3

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

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

Сообщений: 2

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

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

Kuzmich, ОГРОМНОЕ СПАСИБО! То, что нужно!

Ответить

Перенести данные в определённую колонку по условию (Макросы/Sub)

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