Добрый день. Некоторое время назад у меня стояла задача создания нескольких сотен листов по таблице с первого листа. Manyasha, меня нереально выручила и помогла сделать это одним нажатием кнопки. За что ей большое человеческое спасибо. Вот тут решение данной проблемы. Теперь помогите мне решить обратную проблему, собрать информацию из заданых ячеек со всех листов кроме первых двух (с третьего и до конца) в другую книгу. В идеале, если макрос будет запускаться из одной книги, потом можно будет ткнуть мышкой с какой книги собрать информацию, и в выбраной книге со всех листов (кроме первых двух) будет собрана и информация и вставлена в книгу, откуда был запущен макрос. Большое всем спасибо =)
Добрый день. Некоторое время назад у меня стояла задача создания нескольких сотен листов по таблице с первого листа. Manyasha, меня нереально выручила и помогла сделать это одним нажатием кнопки. За что ей большое человеческое спасибо. Вот тут решение данной проблемы. Теперь помогите мне решить обратную проблему, собрать информацию из заданых ячеек со всех листов кроме первых двух (с третьего и до конца) в другую книгу. В идеале, если макрос будет запускаться из одной книги, потом можно будет ткнуть мышкой с какой книги собрать информацию, и в выбраной книге со всех листов (кроме первых двух) будет собрана и информация и вставлена в книгу, откуда был запущен макрос. Большое всем спасибо =)trn09
...решить обратную проблему, собрать информацию из заданых ячеек со всех листов...
Сначала создаем себе трудности, потом героически их преодолеваем. Именно за счет таких пользователей живут форумы, за что им огромное спасибо.
[p.s.]А ведь можно было не решать две проблемы (потратив на это два месяца и кучу времени своего и форумчан), а сделать сразу базу данных, из которой выводить нужные отчеты/формы. Но это слишком просто, нужны сложности) [/p.s.]
...решить обратную проблему, собрать информацию из заданых ячеек со всех листов...
Сначала создаем себе трудности, потом героически их преодолеваем. Именно за счет таких пользователей живут форумы, за что им огромное спасибо.
[p.s.]А ведь можно было не решать две проблемы (потратив на это два месяца и кучу времени своего и форумчан), а сделать сразу базу данных, из которой выводить нужные отчеты/формы. Но это слишком просто, нужны сложности) [/p.s.]Serge_007
Serge_007, Если бы все начальные условия и все требования были известны заранее, то, конечно, можно было бы реализовать ваш вариант. Но когда всё выясняется в процессе работы, то приходится создавать проблемы, а потом их решать. Извините, что потратил ваше время.
Serge_007, Если бы все начальные условия и все требования были известны заранее, то, конечно, можно было бы реализовать ваш вариант. Но когда всё выясняется в процессе работы, то приходится создавать проблемы, а потом их решать. Извините, что потратил ваше время.trn09
Sub DataCollection() Dim i&, n&, sh As Worksheet Set sh = ThisWorkbook.Worksheets.Add sh.Name = "Сбор данных" For i = 3 To ActiveWorkbook.Worksheets.Count n = n + 1 With ActiveWorkbook.Worksheets(i) sh.Cells(n, 1) = .Cells(6, 1) ' из A6 sh.Cells(n, 2) = .Cells(6, 4) ' из D6 End With Next End Sub
[/vba]
[vba]
Код
Sub DataCollection() Dim i&, n&, sh As Worksheet Set sh = ThisWorkbook.Worksheets.Add sh.Name = "Сбор данных" For i = 3 To ActiveWorkbook.Worksheets.Count n = n + 1 With ActiveWorkbook.Worksheets(i) sh.Cells(n, 1) = .Cells(6, 1) ' из A6 sh.Cells(n, 2) = .Cells(6, 4) ' из D6 End With Next End Sub