Макрос для перемещения строки из одного wksheet в другой в одной книге после изменения статуса

У меня есть книга с двумя листами (1 лист называется final, 1 лист называется ожидающим), которые используют одни и те же заголовки столбцов и формулы столбцов.

Мне сложно определить макрос / VBA, который поможет мне автоматически переносить строки данных с «ожидающего» листа на «окончательный» лист, как только статус четвертого столбца изменится с ожидающего на окончательный. Это значит, что все данные для ожидающих и конечных клиентов хранятся на отдельных листах.

Пожалуйста помоги.

Попробуйте что-то подобное на вашем коде woorkbook:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Name = "pending" And Target.Column = 4 Then If Sh.Cells(Target.Row, Target.Column) = "final" Then Sh.Select Sh.Rows(LTrim(Str(Target.Row)) & ":" & LTrim(Str(Target.Row))).Select Selection.Copy ' or cut Sheets("final").Select Rows("20:20").Select ' here is your destination row... you must set a global to control it... Selection.Insert Shift:=xlDown End if End Sub 

Удачи!

  • Как рассчитать сумму на основе нескольких If в Excel?
  • Excel не может изменить формулу без ошибок
  • Функция IF для идентификации первого символа ячейки
  • Поиск и подсчет количества дубликатов
  • Excel вложенной функции IF с AND / OR
  • Функция массива t.test
  • Условная функция LARGE
  • Вложенные операторы IF с точными значениями OR
  • Разница функций Excel между двумя датами
  • Диапазоны в операторах IF для Excel
  • Как вы извлекаете первое предложение в Excel
  • Давайте будем гением компьютера.