Всем здравствуйте! В Экселе пока новичок но работа вынуждает заниматься саморазвитием.
Прошу помощи в следующей проблемке.
Есть таблица с данными. В случае если в ячейке столбца Е есть данные, эту строку перенести в конец файла csv "Данные" (см.файл), а из самой таблицы экселя удалить. Видела подобное только при переносе на другой лист.
Спасибо всем за помощь!
Прошу помощи в следующей проблемке.
Есть таблица с данными. В случае если в ячейке столбца Е есть данные, эту строку перенести в конец файла csv "Данные" (см.файл), а из самой таблицы экселя удалить. Видела подобное только при переносе на другой лист.
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) With Sheets("Лист1" ) .Select If Target.Count > 1 Then Exit Sub If Not Intersect(Target, [g:g] ) Is Nothing And Target.Value > "" Then .Rows(Target.Row).Copy Sheets("Лист2" ).Rows(WorksheetFunction.CountA(Sheets("Лист2" ).[a:a] ) + 1) .Rows(Target.Row).Delete End If End With End Sub |