Здравствуйте.
Помогите пожалуйста со следующей проблемой:
перестал работать макрос обрабатывающий выгрузку (ничего не перенастраивал и не менял - комп дополнительный, только для формирования и обработки отчетов).
Макрос разбивал ячейку с содержанием вида
,1,1, , ,Makita Oy (MFN), ,MRU-SEA-02-98,0/00/00,Inactive,

на несколько, с помощью формул вида

    Selection.NumberFormat = "General"
   ActiveCell.FormulaR1C1 = "=Substring(RC[-1],"","",2)"


Теперь выдает только #ИМЯ?
На остальных компьютерах все работает. В чем может быть дело?
 

Здравствуйте, не подскажите - можно ли макросом сохранить общий документ для всех, кто его открыл в данный момент? Смысл, соответственно, в том, что бы внесенные пользователем, с помощью макроса изменения, сразу отображались всем остальным.

Здравствуйте,  
Для правильной работы макроса необходимо, чтобы выбранная ячейка находилась в нужном столбце, а проверку по типу ячейки и значению сделать невозможно - подобные данные есть и в других местах.  
Каким образом можно поверить принадлежность к нужному столбцу?

Здравствуйте,  
Возникла необходимость задать постоянную переменную(курс доллара) для макроса, выполняющего разовую проверку. Вводить каждый раз курс очень неудобно, есть ли возможность задать его на все время работы с документом?

Здравствуйте,  
Подскажите пожайлуста, как узнать имя документа?  
 
попробовал по аналогии с sName = ActiveSheet.Name  
 ActiveWindow.Name - не работает.  
Спасибо.

Здравстуйте,  
возникла такая проблема:  
для удаления лишних пустых строк я добавил цикл  
   Do Until ActiveCell = "ТOTAL EUR:"  
           Selection.EntireRow.Delete  
           ActiveCell.Offset(1, 0).Select  
   Loop  
но когда доходит до этого дело, макрос начинает жутко тормозить и просто спускаться по  строчкам вниз, без их удаления. Вне цикла команда прекрасно работает, в чем может быть дело?

Здраствуйте,  
возникла такая проблема:  
Когда формула возвращается в эксель, то переменная Zavod(текстовая) взозвращается без ""  
и условие не срабатывает. Подскажите, пожалуйста, корректное написание данной формулы  
 
 
ActiveCell.FormulaR1C1 = _  
       "=SUMIFS(C[-5],C[-13]," & KOD & ",C[-4]," & Zavod & ",C[-5],""<>#ДЕЛ/0!"",C[-5],""<>#Н/Д"",C[-5],""<>#ЗНАЧ!"")"

Здравствуйте!  
Подскажите пожалуйста решение такой задачи:  
 
Как правильно переделать    
 
ActiveSheet.Range("$A$1:$N$8593").AutoFilter Field:=2, Criteria1:= "XXX"  
 
так чтоб область была от A1 до конца столбца N (с помощью, например End(xlDown), можно как-нибу

Здравствуйте.  
Собственно проблема в сабже...  
Макрос просто идет дальше, забив на Selection.FillLeft...  
Подскажите пожалуйста, каким образом можно правильно выполнить данное действие?

Здравствуйте.  
Возник такой момент - при сортировке, иногда(и вроде бы без какой-либо закономерности) макрос оставляет верхнюю строчку так, как будто было указано, что она заголовок.  
   
Выглядит это дело так:  
   
Range("A1").Select  
   Range(Selection, Selection.End(xlToRight)).Select  
   Range(Selection, Selection.End(xlDown)).Select  
 
 Range(Selection, Selection).Sort Key1:=Range("A:A"), Order1:=xlAscending, _  
 Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _  
 DataOption1:=xlSortNormal  
 
Разьве за такое не отвечает параметр Header:=xlGuess?