Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » nura28
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
[ Закрыто] Макрос. В чем ошибка?, Макрос по притяжению данных из одной книги в другую с несколькими листами
 
#
21.07.2017 09:47:25
Добрый день!
Помогите, пожалуйста, найти в чем ошибка в макросе. Код ниже . Данные притягиваются к тому листу , который открыт (активный), а ссылаюсь на Sheets("ФактАрх"). Нужно, чтобы данные притягивались в файл отчет.xlsx на лист  ФактАрх. Что нужно поправить. Заранее спасибо!
Код
Sub Отчет()
Dim book1 As Workbook, book2 As Workbook
On Error Resume Next
Set book1 = Workbooks("начало.xlsx")
Set book2 = Workbooks("отчет.xlsx").Sheets("ФактАрх")

With book2

 i = 6
    While Cells(i, 1) <> Empty
Cells(i, 7) = "=VLOOKUP(RC[-6],'[Начало.xlsx]Арх'!C2:C3,2,0)"
Cells(i, 9) = "=VLOOKUP(RC[-8],'[Начало.xlsx]Арх'!C2:C4,3,0)"
Cells(i, 11) = "=VLOOKUP(RC[-10],'[Начало.xlsx]Арх'!C2:C5,4,0)"
Cells(i, 13) = "=VLOOKUP(RC[-12],'[Начало.xlsx]Арх'!C2:C6,5,0)"
Cells(i, 15) = "=VLOOKUP(RC[-14],'[Начало.xlsx]Арх'!C2:C7,6,0)"
 i = i + 1
    Wend
    Range("G6:G12").Select
     Application.CutCopyMode = False
     Selection.Copy
    
     Range("G6:G12").Select
     Selection.PasteSpecial Paste:=xlValues
  Application.CutCopyMode = False
     
  
   Range("I6:I12").Select
     Application.CutCopyMode = False
     Selection.Copy
    
     Range("I6:I12").Select
     Selection.PasteSpecial Paste:=xlValues
  Application.CutCopyMode = False
   
   

 Range("K6:K12").Select
     Application.CutCopyMode = False
     Selection.Copy
    
     Range("K6:K12").Select
     Selection.PasteSpecial Paste:=xlValues
  Application.CutCopyMode = False
   
    

 Range("M6:M12").Select
     Application.CutCopyMode = False
     Selection.Copy
    
     Range("M6:M12").Select
     Selection.PasteSpecial Paste:=xlValues
  Application.CutCopyMode = False
   
    
 Range("O6:O12").Select
     Application.CutCopyMode = False
     Selection.Copy
    
     Range("O6:O12").Select
     Selection.PasteSpecial Paste:=xlValues
  Application.CutCopyMode = False
   
 End With

Application.ScreenUpdating = True
End Sub
Изменено: nura28 - 21.07.2017 09:49:15
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах excel по несколько листов
 
#
13.07.2017 16:38:56
Добрый день!

Помогите,  пожалуйста!
Как макросом из файла Начальные данные вставить данные как значение (числом) в файл Сюда сохраняем (Итоговый файл). На двух файлах по несколько листов (вкладок).
С листа 1 файла Начальные данные на лист Арх файла Сюда сохраняем (Итоговый файл)
С листа 2 файла Начальные данные на лист Новод файла Сюда сохраняем (Итоговый файл)
С листа 3 файла Начальные данные на лист Северод файла Сюда сохраняем (Итоговый файл)

В реальных файлах данных и листов больше, каждый раз разное количество данных.

Так я пользуюсь для активной открытой книги (см ниже).  А если в открытой книге несколько листов ,
что надо добавить в макрос, чтобы на определенный лист копировались данные?
Код
i = 2 
While Cells(i, 1) <> Empty
Cells(i, 2) = "=VLOOKUP(RC[-1],'[Начальные данные.xlsx]1'!C1:C2,2,0)" 
i = i + 1 
Wend
Range("B1:B1000").Select     
Application.CutCopyMode = False     
Selection.Copy     
Range("B1:B1000").Select     
Selection.PasteSpecial Paste:=xlValues  
Application.CutCopyMode = False   
End Sub

Заранее спасибо!
Изменено: nura28 - 14.07.2017 15:38:16
 
Перейти    
Выборка из первого столбца по слову и цифрам соответствующих значениям городов, Выборка из первого столбца по слову высшего и цифрам 2,5,10,25 суммы количества соответствующей значениям городов
 
#
27.06.2017 15:19:39
Добрый день!

Помогите, пожалуйста, как в первой столбце по слову высшего и цифрам 2,5,10,25 и по горизонтали сумме нескольких городов формулой притянуть
соответствующие значения, как показано в примере?
Заранее спасибо!!!
Изменено: nura28 - 27.06.2017 15:23:38
 
Перейти    
Извлечение данных макросом из 1С, Извлечение данных макросом или скриптом из 1С в эксель по продажам, код
 
#
05.04.2017 09:59:55
Добрый день!

Есть ли возможность из 1С тянуть данные из 1С макросом иди скриптом в эксель? Как это сделать?
Подскажите, пожалуйста, как обращаться к 1С, чтобы вытянуть данные из 1С (код), например как в отчете 1С Продажи-продажи (по номенклатуре и контрагентам за определенный период)?
Заранее спасибо!
 
Перейти    
Поиск значений по условию и выделение с большим количеством данных
 
#
17.08.2016 05:18:45
Здравствуйте!
Подскажите, пожалуйста
Как в строках найти данные , если есть и выделить значение цветом меньше средней цены чем на 0,7*Средняя цена (Средняя цена - последний столбец) и одновременно если найдется такое значение выделялось цветом в столбце наименование?
Данных на самом деле очень много, по строкам более 10 тыс и по столбцам около 200.
Пример во вложении, столбики A-M будут как сводная таблица, остальное расчетное.
Пробовала в строке делать условным форматирование , при протягиванием вниз по столбцам правило сбивается, не работает, а копировать с первой строки правило и вставлять как форматы в каждую строку для 10 тыс строк нереально...
Заранее спасибо!
 
Перейти    
Функция ВПР для ячеек без заливки
 
#
14.08.2016 04:57:56
Здравствуйте!
Подскажите, пожалуйста
Как в макросе подставить условие, чтобы притягивались значения функцией ВПР для ячеек без заливки в столбике B, и значения в этих же ячейках копировались и вставлялись бы как значения? Еще чтобы формулы в ячейках B6,B12 и B13 заранее забитые в файле оставались бы не тронутыми.
Пример во вложении.
Вот макрос
Код
Sub Макрос()
     I = 3
    While Cells(I, 1) <> Empty
    Cells(I, 2) = "=VLOOKUP(RC[-1],'[Пример.xlsx]Лист2'!C1:C2,2,0)"
      I = I + 1
        Wend
    Range("B3:B11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B3:B11").Select
    Selection.PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
    Cells(6, 2) = "=B3+B4+B5"
   Cells(12, 2) = "=B8+B9+B10"
    Cells(13, 2) = "=B6+B12"
End Sub


В моем макросе очень неудобно, если добавляются или убираются строки, приходится в макросе вручную постоянно менять вот эти формулы
 
Код
 Cells(6, 2) = "=B3+B4+B5"
   Cells(12, 2) = "=B8+B9+B10"
    Cells(13, 2) = "=B6+B12"

Заранее спасибо!
Изменено: nura28 - 14.08.2016 12:48:10
 
Перейти    
Удаление указанных значений из текста в ячейке
 
#
03.08.2016 18:58:24
Добрый вечер!
Подскажите, пожалуйста, как из данных ячейки вычесть часть данных и получить результат, как в столбце, выделенным желтой заливкой?
Заранее спасибо!
 
Перейти    
Выбор наличия в магазинах
 
#
30.07.2016 16:13:30
Добрый день! Подскажите, пожалуйста, как с помощью формулы выбрать и записать в 3 и 4 столбики данные из наименований по магазинам, выделенные желтым цветом, как в 30 строке, если есть продукт в магазине , записать в 3 столбик номера магазинов, через запятую, если нет в четвертый. Номера магазинов в шапке таблиц 2,5,21,30 и 35. Может быть и больше. Тут привела 5 для примера. Файл во вложении.
 
Перейти    
Отбор данных без повтора из нескольких таблиц
 
#
24.07.2016 05:28:29
Здравствуйте! В файлике Пример 2 нужно из пяти таблиц отобрать данные по наименованию в столбик, выделенный желтым цветом, без повторов с помощью формулы. В формуле как правильно прописать диапазон выбора данных ?
=ЕСЛИОШИБКА(ИНДЕКС($A$3:$I$25;НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ($A$29:A29($A$3:$I$25)=0;СТРОКА($A$2:$I$26));1));"")
Изменено: nura28 - 24.07.2016 06:16:10
 
Перейти    
Как притянуть данные по столбику количество
 
#
24.07.2016 04:45:55
Здравствуйте! ПОмогите, пожалуйста! Может, подскажите, что нужно добавить в формулу =ИНДЕКС(A$2:A20;ПОИСКПОЗ(E4;$B$2:$B$18;0);1), какое условие? Во вложении пример. Надо найти 10 максимальный позиций и к ним по столбику количество притянуть данные с наименованием, чтобы к повторяющимся данным правильно притягивалось наименование.
Изменено: nura28 - 24.07.2016 06:14:11
 
Перейти    
Страницы: 1
Наверх