|
|
|
Регистрация Восстановить пароль |
|||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
29.04.2015, 05:59
|
#1 |
|
Новичок
Джуниор
Регистрация: 29.04.2015
Сообщений: 2
|
Автоматический перенос строки на другой лист
Добрый день! полазив на форуме нашел решение своей проблемы, немного переделал вставил но не работает((( на каждой строчке выдает ошибку(коментирую строку, в след строке ошибка и так далее) в чем может быть причина?
Код 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 = "Выполнено" Then .Rows(Target.Row).Copy Sheets("Архив").Rows(WorksheetFunct ion.CountA(Sheets("Архив").[a:a]) + 1) .Rows(Target.Row).Delete End If End With End Sub Подгонял это дело под свое, т е менял название листов и ставил вместо значения выполнено значение 0 но не так не та не получается((( подскажите плиз что я делаю не так? |
|
|
|
29.04.2015, 08:17
|
#2 |
|
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
пишите выполнено в колонку А (вместо даты)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
|
|
|
01.05.2015, 16:00
|
#3 | |
|
Новичок
Джуниор
Регистрация: 29.04.2015
Сообщений: 2
|
Цитата:
|
|
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Перенос определенной строки на другой лист | Skorpika | Microsoft Office Excel | 10 | 16.12.2020 15:34 |
| перенос строки на другой лист по условию | TimoXEi | Microsoft Office Excel | 12 | 24.01.2013 16:21 |
| Перенос строки в другой лист | _Fish_ | Microsoft Office Excel | 5 | 29.02.2012 10:52 |
| Выборка данных, перенос строки на другой лист) | Viten2 | Microsoft Office Excel | 1 | 03.05.2011 16:14 |
| Автоматический перенос строк из одного листа в другой лист Результат | maksvas | Microsoft Office Excel | 4 | 22.10.2010 14:03 |
