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