Цикл «If Then» с копией и вставкой

В настоящее время у меня есть небольшой бит VBA, который ищет критерии и делает базовое добавление на основе условий. Отлично работает и выглядит следующим образом:

Dim i As Long i = 6 Do While Cells(i, "C").Value <> "" If Cells(i, "C").Value = "9/12/2015" And Cells(i, "E").Value = "9/13/2015" Then Cells(i, "M").Value = Cells(i, "M").Value + 12 End If i = i + 1 Loop 

Теперь я хочу перейти на следующий уровень и вместо добавления 12 к столбцу на основе критериев, выполните следующие действия:

-выберите все строки, проходящие оба условия, и скопируйте и вставьте их значения из Sheet1 в Sheet2

Я думаю, что часть для копирования и вставки будет довольно простой, но я не уверен в том, что вы сможете выбрать разные строки на основе результата if … then.

 Dim i As Long: i = 6 Dim r as Range Do While Cells(i, "C").Value <> "" If Cells(i, "C").Value = "9/12/2015" And Cells(i, "E").Value = "9/13/2015" Then if r is nothing then set r = Cells(i, "M") else set r = application.union(r, Cells(i, "M")) end if End If i = i + 1 Loop if not r is nothing then r.Copy Sheet2.Range("A1") end if 
  • Оператор вложенного If, перемещающийся по столбцам
  • Операторы Excel Serial If
  • Формула для расчета разницы во времени по конкретным критериям
  • Excel AND Условие, основанное на результатах запроса MATCH
  • Текст вывода Да или Нет, если ячейка имеет a, и (b или C) и d в Excel
  • Excel VBA instr if statement false
  • Использование нескольких условий IF в Excel
  • где - ошибка во втором выражении IF
  • Как создать эту конкретную формулу if / if excel?
  • Excel VB For цикл не выполняет итерацию через оператор if
  • Если две ячейки совпадают, возвращайте значение из третьего
  • Давайте будем гением компьютера.