Здравствуйте!
Необходимо дописать макрос, с автофильтром у меня не лады  
1) макрос новый товар - нужно дописать, чтобы он сравнивал только по 1-му столбцу автофильтра, то что новое, следовательно, переносит в лист "New" (файл "products"), а то, что есть на листе "прайс", но нет в файле "формат-1", то в столбце 13 напротив этих артикулов прописать "разблокировать"

2)макрос цена - дописать, чтобы он с 3-го и 4-го столбца из файла "формат-1" переносил в 8 и 9 столбец файла "products", листа "прайс" соответственно (только по фильтру)

p.s. то, что выделено жирным - это надо дописать.

Если есть вопросы - пишите.

Подскажите, пожалуйста, есть ли возможность в экселе перенести значения (значения в формате "дополнительный", "все форматы") - в текстовый, если стоят нули перед числом
например:
число:000003 - в формате "дополнительный"-"русский"
008- в формате "дополнительный"-"китайский"
0009 - в формате "все форматы"

Здравствуйте! У меня проблема - не могу найти способ как перенести данные из одной книги в другую при фильтре. (если отфильтровать, то он переносит во все значения по которому идет критерий переноса)
(макрос переноса с файла "пример 2" в файл "пример1" во вложении).
Заранее спасибо

макрос вместо столбца, просчитывает только по одной ячейки. Подскажите, где ошибка.  
 
For Each cell In range1  
MyVar_e = Application.Match(Right(cell.Value, 6), Workbooks("откуда.xls").Sheets(1).Range("a:a"), 0)  
If Application.IsNA(MyVar_e) Then  
   Priznak = False  
     ves = 0  
  Else  
   Priznak = True  
      ves = Workbooks("Вес_КД.xls").Sheets(1).Cells(MyVar_e, 3)  
     End If  
   Workbooks("куда").Sheets("Лист1").Cells(2, 1).End(xlDown).Offset(0, 11) = ves / 1000 * Workbooks("куда.xls").Sheets("Лист1").Cells(2, 1).End(xlDown).Offset(0, 9)            
Next cell  
Workbooks("откуда.xls").Close  
 
(должен сравнивать по коду файлов "откуда" и "куда" и согласно коду, из файла "откуда" по столбцу вес - прописывать в "откуда"*количество в "куда"

Подскажите, возможно ли, в макросе автофильтр (в моем случае протягивание формулы) протянуть не по указанному значению, а до конца значений.  
Selection.AutoFill Destination:=Range("I4:I122")  
 
(файл большой с макросом не могу вставить)  
 
То есть по столбцу I надо протянуть формулу, до значения I122, в другом файле эта же формула до I50, в другом файле до I145 и т.д.