Всех приветствую! В макросах я пока не очень.. точнее, очень не очень.. точнее, ну совсем)) Тема не нова, но боюсь не осилю без помощи. При помощи макроса необходимо собрать на лист Сводный в столбец D значения из листов 1-5, находящихся там в ячейке B2, сохранив при этом абсолютную ссылку на соотв. Лист. Записал действия макрорекордером. Потом задал все это в цикл. Залил в модуль книги. Не работает((( Где я ошибаюсь? Подскажите, пжл. Собственно, код [vba]
Код
Sub Form() Dim i As Integer For i = 2 To ThisWorkbook.Worksheets.Count Sheets("Сводный").Cells(i + 1, 4).FormulaR1C1 = "=Sheets(i)!" & Cells(2, 2) Next i End Sub
[/vba]
Пример во вложении. На деле листов конечно больше, чем 5. Пожалуйста, не ругайте сильно... Хотя, нет, почему, ругайте! Умнее буду Спасибо!
Всех приветствую! В макросах я пока не очень.. точнее, очень не очень.. точнее, ну совсем)) Тема не нова, но боюсь не осилю без помощи. При помощи макроса необходимо собрать на лист Сводный в столбец D значения из листов 1-5, находящихся там в ячейке B2, сохранив при этом абсолютную ссылку на соотв. Лист. Записал действия макрорекордером. Потом задал все это в цикл. Залил в модуль книги. Не работает((( Где я ошибаюсь? Подскажите, пжл. Собственно, код [vba]
Код
Sub Form() Dim i As Integer For i = 2 To ThisWorkbook.Worksheets.Count Sheets("Сводный").Cells(i + 1, 4).FormulaR1C1 = "=Sheets(i)!" & Cells(2, 2) Next i End Sub
[/vba]
Пример во вложении. На деле листов конечно больше, чем 5. Пожалуйста, не ругайте сильно... Хотя, нет, почему, ругайте! Умнее буду Спасибо!Che79
Прошу прощения, что снова поднимаю эту тему. На деле отказалось все сложнее. Поскольку файл это выгрузка из стороннего софта, то названия листов могут быть и 1, 2,3, 4, 5 как в примере выше, так и называться черт-те как (что намного чаще). Во вложении более "жизненный" пример, адаптированный к моим реалиям... Как быть в этом случае? В примере на Листе Сводный то, что хотелось бы получить
Прошу прощения, что снова поднимаю эту тему. На деле отказалось все сложнее. Поскольку файл это выгрузка из стороннего софта, то названия листов могут быть и 1, 2,3, 4, 5 как в примере выше, так и называться черт-те как (что намного чаще). Во вложении более "жизненный" пример, адаптированный к моим реалиям... Как быть в этом случае? В примере на Листе Сводный то, что хотелось бы получитьChe79
А "баксы" нужны для того, чтобы нерадивые коллеги при переносе/копировании информации (которой на самом деле в разы больше) не сдвинули значения. Т.к. в сводный далее заносится еще куски информации, как правило, вручную и уже потом привязываются формулы... Лично мне и без долларов замечательно
Еще раз, благодарю за помощь!
_Boroda_, Да, теперь все идеально, спасибо!
А "баксы" нужны для того, чтобы нерадивые коллеги при переносе/копировании информации (которой на самом деле в разы больше) не сдвинули значения. Т.к. в сводный далее заносится еще куски информации, как правило, вручную и уже потом привязываются формулы... Лично мне и без долларов замечательно