Добрый день.
2 компа Офис 2003, 1 комп Офис2007
На одном 2003м прстейшая конструкция:

срабатывает и значению ячейки присваивается значение "НЕТ" на двух других компах
данное действие валится с ошибкой 1004 = "Application-defined or object-defined error"

Скорее всего причина ОЧЕНЬ простая... но вот найти не могу уже который день.
Пробовал присвоение и без Value, и через Formula, FormulaLocal нихрена!

Единственное, что заметил странного - на том компе, где все работает на ошибку VBA выдает
стандартное окошко с кодом ошибки и пояснением, на тех машинах где код не работает этого не
происходит - после возникновения ошибки сразу происходит остановка выполнения кода,
сразу переход к "End Sub".


Кто сталкивался - отзовитесь пожалуйста!

Заранее благодарен!
Ok.MadG

Hugo121Попробуй заменить Sheets("1 сторона") на Sheets(номерлиста) - может региональные настройки другие, как у меня на работе :)


Попробовал - не получилось...
Еще одно попробовал - записал макрос, вносящий данные в ячейку, запустил, работатет.
Подставил в этот макрос в свой модуль - НЕ РАБОТАЕТ!!!!!!
Удалить? чего либо? или что сделать?

Помогите - ситуация аж ...

MaximuS_Gпопробуйте получить данные этой ячейки, получается ?
попробуйте заменить range на cells(row, column)
попробуйте добавить activeworkbook или workbooks("MyBook")

Получить данные - получается.
activeworkbook ругается 1004

Обращение к Gells выдает ошибку:
438
"Object doesn't support this property or method"

Извиняюсь, Cells конечно, и ошибка 1004.
Я понимаю, что дело в нутренностях Excel, но почему работает код записанного макроса?!
И почему не работает он же, без изменений, при переносе в другое место?
Причем если к записанному макросу добавить все обработки, их то всего 5-6 строчек!
работать так же перестает!!!
ХЗ...

Hugo121Просто в новом файле в ThisWorkbook код

Sub test()
Sheets(1).Range("g22").Value = "НЕТ"
End Sub

работает?

Работает.
Неуж то придется просто тупо все копировать в новый документ? :(

MaximuS_Gчтобы проверить глюк это в Ваших настройках екселя или нет, выложите сюда книгу с кодом неработающим...

Вот...

MaximuS_G, но ведь на одном офисе работает!!!
Почему так?
Причем, не совсем был корректен по поводу 3х машин и 3х офисов.
на одной машине установлены 2 офиса 2007 и 2003, на второй 2003.
Так вот, на этой самой первой машине в 2007 файл не работает, а в 2003 работает!
Ну и не работает в 2003 на второй машине...РС стоит на работе.
Vloocup это пользовательская функция "усовершенствованного" ВПР, и срабатывать он будет конечено при каждом изменении в книге. В том офисе, где все работает проблем с этим нет.

В общем сегодня все скопирую в новый файл. Может быть поможет?
Когда то сталкивался с чем то подобным при работе с Access, не работает код и все тут...
Лечилось это простым копированием в новый файл mdb, в который все что надо просто импортировалось из исходника...

Hugo121, выданный файл это уже... такая кучка мусора из способов, которые применял...
так что возможны нестыковки...

Hugo121У меня такие - см. приложение

Аналогично, только вместо 9,0 у меня или 11,0 или 12,0. В зависимости от версии офиса

White OwlУж сколько раз твердили миру: ЛИСТЫ НЕ БОЛТАЮТСЯ В ВОЗДУХЕ!
Если у тебя в макросе есть команда: То при ее выполнении Эксель будет искать этот самый лист у объекта который имеет фокус в данную секунду. Кто там у тебя имеет фокус, какая кнопка на листе/форме/в меню - никто предсказать не может.
Хочешь жить без проблем указывай родителя:


Скопировал все на новый лист - и ничего!
Как была ошибка, так и есть...ХЗ даже не знаю что и делать.
Кстати - Thisworkbook или не Thisworkbook пофиг... не работает и все тут...
Кто еще чего имеет сказать?

White OwlmadgСкопировал все на новый лист - и ничего!
Как была ошибка, так и есть...ХЗ даже не знаю что и делать.
Кстати - Thisworkbook или не Thisworkbook пофиг... не работает и все тут...
Кто еще чего имеет сказать?И где ты это писал?
Стало любопытно, скачал твой "Шаблон путевки".... ой... Форматировать код тебя в школе не учили?
Кстати, а ты знаешь что из функции нельзя исправлять значения в листах?

Про исправлять подробнее...
:) умной какой, форматирование ему не понравилось...сделай красиво и вылож...ежеле не
в лом...
Во! может быть после этого он у меня и заработает? :(
С тоски установил VS2008 буду стряпать exeшник...
НО! Если у кого есть мысли и действия - ОЧЕНЬ прошу отозваться!

Ok.MadG

Вот что еще заметил:
Обрабатываю событие:
Private Sub Worksheet_Calculate()
Все работает, НО!!! очень долго! Т.к., как и было замечено в модуле VLOOKUP2 это событие вызывает почти зацикливание.

Если обрабатываю:
Private Sub Worksheet_Change(ByVal Target As Range)
Зацикливания нет, все работает быстро, кроме описанной выше проблемы.
Итого:
Применение
Sheets("1 сторона").Range("g22").Value = "НЕТ"
т.е. присваивание значения ячейке при обработке события Worksheet_Change порождает ошибку 1004.
нихрена уже не понимаю! А почему на одном из офисов работает?...

MaximuS_G, я был бы рад если бы кто нить подсказал как запустить макрос, ТОЛЬКО после обновления данных в определенной ячейке!
По обновлению есть только два метода - один зацикливается, второй глючит...