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

Страницы: 1 2 След.
[ Закрыто] Макрос. В чем ошибка?, Макрос по притяжению данных из одной книги в другую с несколькими листами
 
#
21.07.2017 10:18:24
Sanja, читать умеете? В тексте написано, что я ожидаю на выходе.
 
Перейти    
[ Закрыто] Макрос. В чем ошибка?, Макрос по притяжению данных из одной книги в другую с несколькими листами
 
#
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 по несколько листов
 
#
14.07.2017 17:15:11
А если прописать (B1:В200) не будет работать?
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах excel по несколько листов
 
#
14.07.2017 17:12:45
Спасибо!
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах excel по несколько листов
 
#
14.07.2017 17:05:52
Nordheim, можно к моему примеру
book2.Sheets(sh.Index).Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
так надо book2.Sheets(Свод).Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr?
Или как правильно?
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах excel по несколько листов
 
#
14.07.2017 16:19:49
Nordheim, Мне просто нужно знать, как правильно прописать, чтобы с листа определенного одного файла копировалось в другой файл с определенным листом на коде vba. Остальное я сама сделаю, как мне удобно))
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах excel по несколько листов
 
#
14.07.2017 16:01:19
Nordheim, да не копирование будет. ВПР я притягиваю, а потом вставить как значение. Разрывов несколько будет. Столбцов тоже больше и в разном порядке.
Изменено: nura28 - 14.07.2017 16:02:16
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах excel по несколько листов
 
#
14.07.2017 15:38:48
Nordheim, в 1 сообщении показала
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах excel по несколько листов
 
#
14.07.2017 15:22:49
Nordheim, в 1 сообщении файлы изменила, добавила Листы.
Из файла Начальные данные лист молочка в файл Сюда сохраняем (Итоговый файл) на лист Свод в столбец Молочка,
Из файла Начальные данные лист месяц в файл Сюда сохраняем (Итоговый файл) на лист Свод в столбец Город1, Город2 и Город3 соответственно  
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах excel по несколько листов
 
#
14.07.2017 14:45:51
Может, кто-нибудь подскажет что все-таки добавить в макрос, чтобы было с ссылкой на лист конкретный с названием листа, то не все таблички одинаковые будут в файлах?
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах excel по несколько листов
 
#
14.07.2017 12:29:11
А №индекса листа можно менять? У меня их больше 100
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах excel по несколько листов
 
#
14.07.2017 12:26:39
Нашла сама. Если правой кнопкой на лист встать и нажать Исходный текст, то через vba видно номер листа.
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах excel по несколько листов
 
#
14.07.2017 12:20:47
Nordheim, а где в экселе посмотреть индексы уже переименованных листов?  
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах excel по несколько листов
 
#
14.07.2017 11:57:45
Nordheim, Спасибо работает! Т.е получается с 1 листа тянется на 1 лист др файла? А если в начальном файле будет больше листов, их лучше в конец поставить или скрыть? на что это может повлиять?
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах excel по несколько листов
 
#
14.07.2017 11:41:18
Nordheim, удалила все и ничего не подставляется. Наименования листов различаются. В оригинале у меня будет разное количество листов и их порядок в 1 и 2 файле отличается.  
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах excel по несколько листов
 
#
14.07.2017 11:07:43
Nordheim, НИЧЕГО не происходит по вашему макросу, данные не подтягиваются. Нет ссылок на конкретные листы файлов.
Изменено: nura28 - 14.07.2017 11:12:10
 
Перейти    
Макрос копирования данных из одного файла в другой с несколькими вкладками, В обоих файлах 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 суммы количества соответствующей значениям городов
 
#
28.06.2017 14:00:23
Kuzmich, спасибо, попробую
 
Перейти    
Выборка из первого столбца по слову и цифрам соответствующих значениям городов, Выборка из первого столбца по слову высшего и цифрам 2,5,10,25 суммы количества соответствующей значениям городов
 
#
28.06.2017 13:04:32
АlехМ, формула =СУММ(ЕЧИСЛО(ПОИСК("высш";$A$3:$A$10))*ЕЧИСЛО(ПОИСК($B$1:$K$1;B$12))*$B$3:$K$10)
получается только на определенный интервал... Т.е. при выборе большего количества строк или столбцов она не работает (если в данный момент там пустые ячейки).
Как сделать , чтобы формула работала с большим интервалом $A$3:$A$1000 и $B$1:$AA$1  (в данный момент там пусто, а потом количество заполненных ячеек будет меняться)?  
 
Перейти    
Выборка из первого столбца по слову и цифрам соответствующих значениям городов, Выборка из первого столбца по слову высшего и цифрам 2,5,10,25 суммы количества соответствующей значениям городов
 
#
27.06.2017 16:59:14
В моем файле появляется окно:
При попытке вычислений ресурсы Excel закончились, поэтому значения этих формул вычислить не удалось.
Изменено: nura28 - 27.06.2017 17:03:56
 
Перейти    
Выборка из первого столбца по слову и цифрам соответствующих значениям городов, Выборка из первого столбца по слову высшего и цифрам 2,5,10,25 суммы количества соответствующей значениям городов
 
#
27.06.2017 16:28:52
Спасибо! А если сложить все по одному условию по слову высшего, как формулу прописать?
Изменено: nura28 - 27.06.2017 16:30:46
 
Перейти    
Выборка из первого столбца по слову и цифрам соответствующих значениям городов, Выборка из первого столбца по слову высшего и цифрам 2,5,10,25 суммы количества соответствующей значениям городов
 
#
27.06.2017 15:19:39
Добрый день!

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

Нашла ))
Изменено: nura28 - 11.04.2017 12:08:25
 
Перейти    
Извлечение данных макросом из 1С, Извлечение данных макросом или скриптом из 1С в эксель по продажам, код
 
#
06.04.2017 09:46:45
_Igor_61, спасибо! Но это не то!
 
Перейти    
Извлечение данных макросом из 1С, Извлечение данных макросом или скриптом из 1С в эксель по продажам, код
 
#
05.04.2017 20:59:14
alexthegreat, как автоматически сделать выгрузку в эксель 1С? Так можно настроить в 1С?
 
Перейти    
Извлечение данных макросом из 1С, Извлечение данных макросом или скриптом из 1С в эксель по продажам, код
 
#
05.04.2017 20:52:58
А можно сразу четыре разных отчета из 1 С сформировывать с помощью активных таблиц?
Сейчас я  из 1С формирую отчеты и макросов в один соединяю. Хотелось бы автоматизировать, чтобы они и из 1С формировались автоматически.
Какие варианты предложите?
 
Перейти    
Извлечение данных макросом из 1С, Извлечение данных макросом или скриптом из 1С в эксель по продажам, код
 
#
05.04.2017 09:59:55
Добрый день!

Есть ли возможность из 1С тянуть данные из 1С макросом иди скриптом в эксель? Как это сделать?
Подскажите, пожалуйста, как обращаться к 1С, чтобы вытянуть данные из 1С (код), например как в отчете 1С Продажи-продажи (по номенклатуре и контрагентам за определенный период)?
Заранее спасибо!
 
Перейти    
Поиск значений по условию и выделение с большим количеством данных
 
#
17.08.2016 07:04:13
Просто если какое-то значение из строки меньше 0,7 *Среднюю цену
 
Перейти    
Поиск значений по условию и выделение с большим количеством данных
 
#
17.08.2016 05:18:45
Здравствуйте!
Подскажите, пожалуйста
Как в строках найти данные , если есть и выделить значение цветом меньше средней цены чем на 0,7*Средняя цена (Средняя цена - последний столбец) и одновременно если найдется такое значение выделялось цветом в столбце наименование?
Данных на самом деле очень много, по строкам более 10 тыс и по столбцам около 200.
Пример во вложении, столбики A-M будут как сводная таблица, остальное расчетное.
Пробовала в строке делать условным форматирование , при протягиванием вниз по столбцам правило сбивается, не работает, а копировать с первой строки правило и вставлять как форматы в каждую строку для 10 тыс строк нереально...
Заранее спасибо!
 
Перейти    
Функция ВПР для ячеек без заливки
 
#
14.08.2016 13:16:47
А полностью как код будет выглядеть с оператором if и while одновременно? Я пробовало , у меня не получается, чтобы и то и другое работало.
 
Перейти    
Страницы: 1 2 След.
Наверх