Страницы: 1
RSS
Копирование части таблицы основываясь на цвете заливки ячеек
 
Добрый день!
Смотрите на скрепке пример таблицы, которую ежедневно заполняют разные люди.
Перед началом смены, сотрудник копирует все данные предыдущего дня изменяет дату заполнения и фамилию.
Далее сутки с ней работает корректируя и внося изменения. На следующие сутки другой сотрудник повторяет тоже самое.
Вопрос! Как можно автоматически копировать ячейки и вставлять ниже? Возможно есть способ задать диапазон допустим от последнего коричнего цвета заливки и на 50 строк вниз, а далее вставка содержимого в первую пустую ячейку снизу. Или допустим цвет заменить на символ, на который таблица обратит внимание
Данный процесс можно конечно выполнять руками, но когда у тебя в книге 30-100 листов, получается первый рабочий час своего времени тратиться на копирование, ну и сам процесс очень нудный :(  
 
"...От последнего коричнего цвета заливки и на 50 строк вниз, а далее вставка содержимого в первую пустую ячейку снизу..." - непонятно. Приложенный в первом посте файл "что есть", приложите файл "что должно получиться", плз.
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
пример на скрепке
 
Цитата
копирует все данные предыдущего дня изменяет дату заполнения
Макрос в стандартный модуль
Код
Sub iCopyDiapazon()
Dim Sht As Worksheet
Dim iLastRow As Long
Dim FoundData As Range
  For Each Sht In Worksheets
    With Sht
      iLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
      'ищем ячейку с последней датой (слово Дата)в столбце А
      Set FoundData = .Columns(1).Find("Дата", .Range("A1"), xlValues, xlWhole, xlByRows, xlPrevious)
      .Range("A" & FoundData.Row & ":H" & iLastRow).Copy .Cells(iLastRow + 1, 1)
       .Cells(iLastRow + 2, 1) = .Cells(FoundData.Row + 1, 1) + 1
    End With
  Next
End Sub
 
Кузмитч спс! А макрос будет работать, если учесть, что каждый сотрудник использует для входа свою учётную запись? Файл при этом расшарен для общего доступа
Страницы: 1
Наверх