Точно, спасибо большое, я-то не мог понять почему по ней инфы нет в инете.
это одна из функций PLEX, который исчез из надстроек почему-то на том компьютере.

Не подскажете вкратце, что это значит и как исправить?

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

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

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


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

Нашел отличную команду  
Sub Refresh()  
ActiveWorkbook.AcceptAllChanges  
End Sub  
с поджиранием ресурсов теперь проблем нет  
еще бы суметь сделать так, чтоб макрос одного пользователя запускал этот макрос у всех остальных

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

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

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

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

Действительно, спасибо  
поступил так:  
ActiveCell = "удалить"  
Selection.End(xlDown).Offset(-1, 0).Select  
Range(Selection, Selection.End(xlUp)).Select  
Selection.EntireRow.Delete  
 
или можно как нибудь убрать одну нижнюю ячейку из выделения вида  
Range(Selection, Selection.End(xlDown)).Select

Здравстуйте,  
возникла такая проблема:  
для удаления лишних пустых строк я добавил цикл  
   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],""<>#ЗНАЧ!"")"

Действительно...  
зашел с не той стороны и сам себя запутал  
пытаюсь теперь решить задачу с помощью СУММЕСЛИМН  
простите за глупый вопрос, можно ведь не присвоить формулу ячейке, а подсчитать с помощью нее значение переменной?  
типа nSumm = SUMIFS?

Уточню:  
если просто повторить фильтрацию, наподобие такого:    
ActiveSheet.Range("A:N").AutoFilter Field:=2, Criteria1:= "XXX"  
ActiveSheet.Range("A:N").AutoFilter Field:=3, Criteria1:= "XXX2"  
 
то команда ActiveCell.Offset(1, 0).Select почему-то работает так, как будто включен только один    
ActiveSheet.Range("A:N").AutoFilter Field:=2, Criteria1:= "XXX"  
а необходимо, чтоб макрос работал со столбцом, отфильтрованным по 2м параметрам  
 
ЗЫ  
кстате, RAN, спасибо за помощь

А, понял - в Criteria1:= "XXX" надо убрать кавычки  
А как сделать, чтоб сортировка шла по 2 столбцам с разными параметрами?

Не выходит - видимо параметр XXX воспринимается таки влоб, а не как переменная.  
(в break mode видно, что XXX присвоено правильное значение)

дь это сделать?), а ХХХ был переменной String?

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

Спасибо большое!!    
а если не лень, объясните как работает этот цикл..  
 
Я обычно делаю подобное таким образом:  
Do Until IsEmpty(ActiveCell)  
if then  ченьть    
   ActiveCell.Offset(1, 0).Select  
Loop  
что гораздо медленнее  
 
Я бы хотел добавить, чтоб копировалось и оформление ячейки, но даже не знаю с какой стороны подступися..

Толико заметил - получается не слияние столбцов, а копирование    
т.е. порядок следования нарушается  
Необходимо пропускать скрытые ячейки столбца С (напротив которых #Н/Д)  
Это возможно при подобном копировании?

Огромное спасибо! Именно то, что нужно!  
Эх, видимо всеже пользоваться кусками кода из автоматической записи макросов плохая практика.

Извините за корявый слог, писал в несколько присестов сообщение Х_Х

Извините  
Собственно вот  
 
Изначально у меня стоит фильтр, чтоб скрыть все #Н/Д в столбце с новыми данными  
 
Сначала я копирую шапку на столбец с новыми данными    
   Range("B1").Select  
   Selection.AutoFill Destination:=Range("B1:C1"), Type:=xlFillDefault  
   Range("B1:C1").Select  
     
Затем выделяю его, при включенном фильтре сверху вниз выделяю этот столбец  
   Range("C1").Select  
   Range(Selection, Selection.End(xlDown)).Select  
         
Тут, по идее я должен слить столбцы, но этого не происходит  
   Selection.FillLeft

Здравствуйте.  
Собственно проблема в сабже...  
Макрос просто идет дальше, забив на 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?