[VB] перенос строки на другой лист по условию - Помощь студентам

Будущийумник · 05.02.2019, 00:13

Доброй ночи! Не могли бы подсказать с переносом строки на другой лист по условию. Благодаря вашему форому нашла готовый макрос на перенос, работает, но при удалении данных в столбце строка, перенесенная на лист остается. Можно это как-то усовершенствовать, чтоб она удалялась?
Макрос
[Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Основное"): .Select: If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [e:e]) Is Nothing And Target.Value > 0 Then .Rows(Target.Row).Copy _
Sheets("Результат").Rows(WorksheetF unction.CountA(Sheets("Результат").[a:a]) + 1)
End With: End Sub

05.02.2019, 00:13	#1
Будущийумник Регистрация: 04.03.2018 Сообщений: 8	[VB] перенос строки на другой лист по условию Доброй ночи! Не могли бы подсказать с переносом строки на другой лист по условию. Благодаря вашему форому нашла готовый макрос на перенос, работает, но при удалении данных в столбце строка, перенесенная на лист остается. Можно это как-то усовершенствовать, чтоб она удалялась? Макрос [Private Sub Worksheet_Change(ByVal Target As Range) With Sheets("Основное"): .Select: If Target.Count > 1 Then Exit Sub If Not Intersect(Target, [e:e]) Is Nothing And Target.Value > 0 Then .Rows(Target.Row).Copy _ Sheets("Результат").Rows(WorksheetF unction.CountA(Sheets("Результат").[a:a]) + 1) End With: End Sub Последний раз редактировалось Будущийумник; 05.02.2019 в 04:28.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Перенос определенной строки на другой лист	Skorpika	Microsoft Office Excel	10	16.12.2020 15:34
перенос диапазона стоки на другой лист по условию	xsanderex	Microsoft Office Excel	2	21.01.2019 00:27
перенос строки на другой лист по условию	TimoXEi	Microsoft Office Excel	12	24.01.2013 16:21
перенос строк в другой лист по условию	dzaymko	Microsoft Office Excel	4	23.04.2012 12:16
Перенос строки в другой лист	_Fish_	Microsoft Office Excel	5	29.02.2012 10:52