Как скопировать, вставить, а затем удалить строку в зависимости от значения ячейки - PullRequest
Новая
       52

Как скопировать, вставить, а затем удалить строку в зависимости от значения ячейки

0 голосов
/ 04 августа 2020

Я больше читал и экспериментировал с моим кодом, но мне снова нужен совет специалиста, пожалуйста! Я хочу, чтобы в моей книге работали два макроса. Один из них - когда город выбирается из раскрывающегося меню, эта строка копируется в соответствующий рабочий лист города. Во-вторых, когда в раскрывающемся меню выбрано «Завершено», я хочу, чтобы эта строка была перемещена в электронную таблицу «Завершено».

У меня есть следующий код: 

Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Column = 6 Then

 tRow = Target.Row

 Range("F" & tRow).EntireRow.Copy Sheets("London").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
 Range("F" & tRow).EntireRow.Copy Sheets("Manchester").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
 Range("F" & tRow).EntireRow.Copy Sheets("Leeds").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
 Range("F" & tRow).EntireRow.Copy Sheets("Birmingham").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
 Range("F" & tRow).EntireRow.Copy Sheets("Cardiff").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

 End If

Application.EnableEvents = False

If Target.Column = 9 Then

tRow = Target.Row

Range("I" & tRow).EntireRow.Delete Sheets("Completed").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

End If

Application.EnableEvents = True


End Sub

Город часть работает нормально. Вторая часть удаляет только строку. Я хочу, чтобы он сначала был скопирован и вставлен, а затем удален или просто перемещен. Я не могу понять, какой код добавить и как.

...