Еще актуально?

Процедура отлично работает с разъединенными ячейками,
а прочитать надо как раз значения, которые объединены.

Sub myCellValue(myPath As String, myFile As String)
Dim mySheet As String

mySheet = "Sheet1"
With Range("C2:C11"
.UnMerge '!!!!!!!!!!!!!не так надо, похоже
.Formula = "='" & myFile & "[" & myFile & "]" & mySheet & "'!" & "A1:A10"
.Value = .Value
End With

В приложении файлик закрытой книги для для примера, в котором интересуют значения
желтых ячеек.
Файл рабочий, но коммерческой тайны не содержит

При экспериментах с FSO перестали выполняться макросы и вылетают в отладку с run-time error '-214731979' (8002801d) Automation error Object library not registered, хотя библиотеки зарегистрированы в референсах. Как исправить эту беду? Скриншот приложен

Вот сюда посмотрите http://planetaexcel.ru/forum/?PAGE_NAME=read&FID=2&TID=8

командник выполнить надо? посмотрите сюда
http://planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=47124&MID=391743#message391743
параметры передаются %1 и тд

То ли это уж очень просто и не заслуживает внимания... То ли невозможно... Что скажут специалисты высшего уровня?

В модуле есть строка Shell "cmd /c copy file1.txt lpt1"
Прикол в том, что под отладчиком она работает, а в модуле без него-нет
EducatedFool подсказал FileCopy file1.txt file2.txt
Как это можно использовать при выводе на консоль или принтер?

Макрос -то можно прикрутить к событию "изменение листа"-ничего нажимать не надо будет, сменились данные-прошел поиск-вывел результат куда надо

форматировать, как таблицу-смотри уроки http://planetaexcel.ru/techniques/2/136/

после нажатия кнопки GO в ячейке D4 появится то, что искали в колонке B-на скорую руку

Макросом помочь?

Shell "cmd /c copy file1.txt lpt1"
так сделал, работает

Я уже сделал, спасибо за Вам за отклик, и форуму. И ссылочку Вашу нашел по созданию Юзера Васи Пупкина и расшаренной папки для него. Кстати помогла очень!
реальная команда copy file.txt lpt1
Это принтер штрихкодов зебра, с ним непросто, проще так было

Есть строка кода
   r = Shell(ThisWorkbook.Path & "\" & "dircommand.cmd", 1)
за нее отдельное спасибо KuklP и Казанскому.
В файле dircommand.cmd всего одна строка:
copy file1.txt file2.txt
Как ее выполнить, не прибегая к созданию командного файла?

Спасибо, я до этого уж сам додумался, оба кода рабочие. Ветку с благодарностью закрываем

опечатка -А что за код ошибки 16?

Спасибо, KuklP! Работает.... А ято за код ошибки 16?
Код Казанского почему-то не сработал... Но все равно Спасибо!

Добрый вечер, мастера! В архиве форума нашел, как запустить из Excel внешнюю программу.
А свой cmd-файл dircommand.cmd запустить не получается. Что не так делаю? Пробую в первый раз.  
в dircommand.cmd только строчка dir c: /p

Начать надо с оптимизации размера файла подкачки и свободного дискового пространства,
да еще проверить диск чекдиском

Посмотрите здесь, может быть поможет http://excelvba.ru/code/SaveActiveSheet

=ЕСЛИ(И(A1>=0;A1<=150);1;ЕСЛИ(A1<=300;2;ЕСЛИ(A1<=600;3;ЕСЛИ(A1<=800;4;ЕСЛИ(A1<=1000;5;6)))))

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

А если отрицательные или >=301, что делаем? пока все, что больше 150 A2 присвоит двойку

=ЕСЛИ(И(A1>=0;A1<=150);1;2)

В остальном присоединяюсь к LightZ, уж очень длинные листы

В начале модуля

В конце

Да еще неплохо отменить обновление экрана при счете, и включать его при выводе

посмотрите урок http://www.excel-info.ru/Excel-1/Excel-Transponirovat-284/

А сам каталог защитить от криворуких, почитав предварительно http://planetaexcel.ru/techniques/5/ и смежные ссылки

Образцы данных неплохо бы выложить, чтобы разговор мог быть предметным, vikttur прав. Да и при решении проблемы тему бы закрывать надо, если неактуально

Это просто должно работать в модуле инвентаризации, и нельзя писать остатки не по своему складу... Юрий, я еще сам потыкаюсь и шишек побью, Вам же реально некогда с каждым-то разбираться до мелочишек... Я понимаю, что если за тебя все будут код обдумывать, то сам фиг чему научишься. А за помощь-спасибо!!!

У меня при нажатии стрелки вниз автоматом подставляется следующее значение из списка, а если Label6 становится непустым, то уходит из комбобокса, а не должен до нажатия Enter, а что обрабатывать Change или KeyUp - не соображу никак, вроде и то и другое надо... Склад же должен быть определен чётко.