Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Ошибка 400 в vba, Возникает ошибка 400 при работе макроса, который делит файл
 
Проблема решилась путем запуска файла с макросом из той же папки,в которой лежит массив на разделение. Но почему он выдает ошибку если макрос находится в другом месте нежели массив, пока не ясно:(
Ошибка 400 в vba, Возникает ошибка 400 при работе макроса, который делит файл
 
Уважаемые формучане, появилась ошибка 400 при работе макроса. Макрос делит один большой файл с кучей информации на много(14) файлов по необходимым параметрам и сохраняет в указанную папку. Прдеположительно, на втором шаге происходит ошибка. Но вроде все там в порядке. С чем может быть свзяана ошибка? Гугл фактически не дал ответа((

П.С Второй шаг прилагается
Step2:

Set wb3 = Workbooks.Add
For i = 2 To k
Branch(i) = wb1.Sheets(1).Cells(i, 3).Value
Channel(i) = wb1.Sheets(1).Cells(i, 4).Value
wb2.Sheets(1).Activate
wb2.Sheets(1).Range("A1:BR50000" ;) .Select
Selection.AutoFilter Field:=bran_fil, Criteria1:=("*" & Branch(i) & "*" ;)
Selection.AutoFilter Field:=chan_fil, Criteria1:=("*" & Channel(i) & "*" ;)

If i = 2 Then
Range("A1:BR50000" ;) .Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
wb3.Sheets(1).Activate
Range("a1" ;) .Select
Selection.PasteSpecial (-4104)
Selection.AutoFilter
Selection.EntireColumn.AutoFit
ActiveWindow.Zoom = 85
With Range("1:1" ;) .Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark2
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
Else
Range("A2:BR50000" ;) .Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
wb3.Sheets(1).Activate
For m = 2 To 50000
If Cells(m, 1) = "" Then
f = m
GoTo Step3
End If
Next m
Изменено: Serega90 - 16.05.2013 00:25:34 (Тема закрыта)
Перечесление значений по параметру, Как верно выгрузить/выбрать/собрать список продуктов по клиенту?
 
Алексей К, это именно тот прием, что искал) Спасибо, выручили)

Владимир, спасибо
Перечесление значений по параметру, Как верно выгрузить/выбрать/собрать список продуктов по клиенту?
 
На всякий случай пример выложу. Этот прием уже был где то на сайте,но никак не могу его найти. Подскажите,где искать?
Перечесление значений по параметру, Как верно выгрузить/выбрать/собрать список продуктов по клиенту?
 
Уважаемые пользователи

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

Смысл приема такой же как описывает Hugo, но там значения вытягиваются не в одну ячейку, а в столбец. Облазил всю историю, весь сайт, но так и не смог найти. Не подскажите адрес странички с этим приемом?
Перечесление значений по параметру, Как верно выгрузить/выбрать/собрать список продуктов по клиенту?
 
Hugo, СПАСИБО! Именно то, что надо. Завтра опробую.

Алексей К, спасибо. Сводной как раз и пользовался. Но хотелось более красивого решения.
Перечесление значений по параметру, Как верно выгрузить/выбрать/собрать список продуктов по клиенту?
 
Добрый вечер, формучане)

Давно и результативно пользуюсь этим сайтом и форумом. Многие приемы взял на заметку. За это сайту огромное СПАСИБО.

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

Задача состоит в следующем. Есть некий список клиентов(все ФИО уникальны) и мне нужно "вытащить" все покупки клиента за год. Мне не нужно считать сумму или количество покупок. Необходимо в ячейке получить перечисление кодов покупок. Помогите, пожалуйста, с идеями как это сделать. И возможно ли такое?

P.S Если нужен эксель пример, то позже смогу его разместить
Страницы: 1
Наверх