|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
|
Опции темы | Поиск в этой теме |
15.02.2012, 15:56
|
#11 | |
|
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
Цитата:
Если ничего не найдено, программа все равно выдает найдено 1 ШТ. 
|
|
|
|
|
15.02.2012, 16:16
|
#12 |
|
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
там есть ошибка (не понятная для меня). FIND перед циклом не выдает ошибки, когда не найдено ничего, а должен бы, поэтому программа попадает в цикл, поэтому увеличивает R на единичку... и пишет в итоге найдено 1, когда не найдено ничего.
уважаемый, slone2179, код открыт, можете сами аккуратненько эту дыру в коде залатать. программисты, а почему нет ошибки в первом FIND, не подскажете?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
|
|
|
15.02.2012, 16:26
|
#13 |
|
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
Спасибо, многоуважаемый IgorGO за ответ! Покопаюсь. Вы как всегда добры к новичкам!
|
|
|
|
|
15.02.2012, 17:00
|
#14 |
|
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Do While Err.Number = 0 And Not rg Is Nothing
добавил (красным цветом)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
|
|
|
15.02.2012, 19:49
|
#15 |
|
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
Спасибо большое!
|
|
|
|
|
23.04.2012, 11:50
|
#16 |
|
Пользователь
Регистрация: 20.07.2011
Сообщений: 47
|
Извините пожалуста какой добавить код чтобы он то что нашел и вытащил в лист2 удалял из листа 1
|
|
|
|
|
23.04.2012, 12:20
|
#17 |
|
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
не надо добавлять.
замените в тексте макроса copy на cut
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Вставка ImageMso как рисунок, на лист. | WizarD.89 | Microsoft Office Excel | 0 | 28.04.2011 15:45 |
| Поиск повторяющегося значения и вывод его на другой лист | tissot | Microsoft Office Excel | 6 | 20.01.2011 19:23 |
| поиск и перенос на другой лист. | artssp | Microsoft Office Excel | 34 | 01.12.2010 05:58 |
| Поиск проблемных значений и вставка строк в другой документ Excel | Gvaridos | Microsoft Office Excel | 3 | 27.10.2010 10:24 |
| Поиск и вывод результата на другой лист!!! | Ilnour1986 | Microsoft Office Excel | 12 | 23.10.2009 11:38 |
