Про вставку картинок (опять)

[Jockernsk]

Супер! Все работает,но...

1. Форма F2 в первом макросе была добавлена не зря. Если встать курсором на строку, то открывается форма и пока форму не закроешь курсором нельзя сдвинуться. Можно, конечно, тыкать на каждую строку мышкой, но это не удобно. Удобно "стрелку вниз" нажимать.
Поэтому если вернуть назад форму F2 и старый макрос по отображению фоток, то вместе все не работает.

2. Макрос для позиций 011 ищет только в папке 011, а должен пробегать по всем папкам. К позиции 011-... может относиться фото 015-...
Пример:

011-68-005 SR6030 Happy holiday свеча д\торта как 015-68-001

011-81-001 MN5631 кукла\ форфор как 015-81-004

[VictorM]

возможно ли создать на листе картинку при нажатии на которую открывается другой лист?

Можно, вставьте картинку на лист и назначьте ей макрос (п.к.м. на рисунке - назначить макрос).

Sub Макрос2()
    Sheets("Лист2").Select
End Sub

[EducatedFool]

1. Форма F2 в первом макросе была добавлена не зря.

Добавляем в код одну строку - и проблема решается без лишних форм:
AppActivate "Microsoft Excel" ' убираем фокус с формы

Макрос для позиций 011 ищет только в папке 011, а должен пробегать по всем папкам

Кто бы мог подумать...
Сразу можно было описать все нюансы?

Придётся применить эту функцию: http://excelvba.ru/code/FilenamesCollection

Проверяйте: http://excelvba.ru/XL_Files/Sample__...__15-29-02.zip

PS: больше бесплатных доработок с моей стороны не будет

[makis555]

VictorM маг и кудесник.Благодарю.

[Jockernsk]

Сообщение от EducatedFool

PS: больше бесплатных доработок с моей стороны не будет

А кто вам сказал, что это все бесплатно? WebMoney R318574877619 - кошелек рабочий?