Добрый день!
Совсем плохо разбираюсь в Эксель, помогите, пожалуйста.
На примерах получилось добавить макрос с помощью которого при установке знака "+" в графе "статус", строка автоматически попадала на второй лист. Но не понимаю, как прописать возможность про удаление знака "+" или поставив знак "-", строка со второго листа удалилась. На тот случай, если не туда поставил "+"
Пыталась прописать, но что-то идет не так.....
Совсем плохо разбираюсь в Эксель, помогите, пожалуйста.
На примерах получилось добавить макрос с помощью которого при установке знака "+" в графе "статус", строка автоматически попадала на второй лист. Но не понимаю, как прописать возможность про удаление знака "+" или поставив знак "-", строка со второго листа удалилась. На тот случай, если не туда поставил "+"
Пыталась прописать, но что-то идет не так.....
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
Set trgt_rng = Range([C4], [C4].End(xlDown))
If Target.Count = 1 Then
If Target.Value = "+" Then
Set out_rng = Worksheets("Коммерч").[A1].Offset(Cells.Rows.Count - 2).End(xlUp).Offset(1)
Target.EntireRow.Copy out_rng
Application.CutCopyMode = False
End If
End If
Set trgt_rng = Range([C5], [C5].End(xlDown))
If Target.Count = 1 Then
If Target.Value = "-" Then
Set out_rng = Worksheets("Коммерч").[A1].Offset(Cells.Rows.Count - 2).End(xlUp).Offset(1)
Rows(1).EntireRow.Delete
Application.Deleted = False
End If
End If
End Sub |
