Выбрать ячейки из столбца выделенные цветом и копировать - Страница 2

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_, DrMini

Выбрать ячейки из столбца выделенные цветом и копировать (Макросы/Sub)

Выбрать ячейки из столбца выделенные цветом и копировать

RAN

Дата: Воскресенье, 27.08.2017, 09:49 | Сообщение № 21

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата petyavova, 27.08.2017 в 09:30, в сообщении № 19 ()

Ругается: Variable not defined

Объявите переменную, на которую ругается.

Цитата petyavova, 27.08.2017 в 09:30, в сообщении № 19 ()

Object required

Добавьте отсутствующий объект.

Быть или не быть, вот в чем загвоздка!

Ответить

KuklP

Дата: Воскресенье, 27.08.2017, 09:53 | Сообщение № 22

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

В моем коде нет новых переменных или объектов.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

petyavova

Дата: Воскресенье, 27.08.2017, 23:42 | Сообщение № 23

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

KuklP, Обалденно, так просто и копирует, и формулы подставляет!!!!
Только у меня в оригинальном файле идёт задвоение и затроение ИНН.
Попытался сделать пример, но ваш скрипт на этом файле всё чисто отрабатывает.
попробую ещё покумекать.
НЕ могу понять почему? и в моём скрипте тоже выдавал несколько раз.
думал из-за цифр но на примерном файле всё чисто....

К сообщению приложен файл: _3626199_1.xlsm (31.8 Kb)

Сообщение отредактировал petyavova - Понедельник, 28.08.2017, 00:02

Ответить

KuklP

Дата: Понедельник, 28.08.2017, 00:01 | Сообщение № 24

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Мой код никак не изменяет Ваши формулы.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

petyavova

Дата: Понедельник, 28.08.2017, 00:04 | Сообщение № 25

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

KuklP, ошибку со сдвигом нашел. в примерном файле
в 7-Й строке стоял поиск 8-й.
В оригинальном файле всё чисто отрабатывает

К сообщению приложен файл: 5754625.xlsm (31.8 Kb)

Сообщение отредактировал petyavova - Понедельник, 28.08.2017, 00:20

Ответить

petyavova

Дата: Понедельник, 28.08.2017, 00:32 | Сообщение № 26

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

petyavova, блин счастье так близко, всё работает, но почему задваивается?
причём разное количество раз, не пойму связь с чем. Может было похожее?

Ответить

petyavova

Дата: Понедельник, 28.08.2017, 01:01 | Сообщение № 27

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

petyavova, Нашел!!!!!!,
не знаю правильно или нет, но задвоенные ушли
[vba]

Код

If newCell = (.Cells(i, "D")) Then

[/vba]
подскажите вылезет когда нибудь косяк?

К сообщению приложен файл: 8731781.xlsm (31.3 Kb)

Ответить

petyavova

Дата: Понедельник, 28.08.2017, 01:06 | Сообщение № 28

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

KuklP, Огромное спасибо,
направили в нужном направлении,
я верил, что можно решить в два щелчка, но не думал что настолько.
ВЫ ГОЛОВА. преклоняюсь. Спасибо.

Ответить

petyavova

Дата: Понедельник, 28.08.2017, 01:32 | Сообщение № 29

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата petyavova, 24.08.2017 в 17:16, в сообщении № 11 ()

Круто, а чтобы оставить при Н/Д бывшее значение? (название фирмы?)

Цитата iMrTidy, 24.08.2017 в 15:16, в сообщении № 10 ()

если просто отображаться с другого листа без Н/Д, то=ЕСЛИОШИБКА(...)

Спасибо всем огромное, добавление отработали на все 100%, а что делать если контрагент отпал?
формулы в ячейках остаются те же и опять Н/Д, как оставить последнее значение?
Или это уже новая тема?