Перенос ссылок на ячейку с N- листов на сводный

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос ссылок на ячейку с N- листов на сводный (Макросы/Sub)

Che79

Дата: Вторник, 21.04.2015, 16:39 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

Всех приветствую!
В макросах я пока не очень.. точнее, очень не очень.. точнее, ну совсем))
Тема не нова, но боюсь не осилю без помощи.
При помощи макроса необходимо собрать на лист Сводный в столбец 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.
Пожалуйста, не ругайте сильно... Хотя, нет, почему, ругайте! Умнее буду yes

Спасибо!

К сообщению приложен файл: makro.xlsm (19.4 Kb)

Делай нормально и будет нормально!

Ответить

_Boroda_

Дата: Вторник, 21.04.2015, 16:46 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sheets("Сводный").Cells(i + 1, 4).Formula = "='" & i - 1 & "'!B2"

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Che79

Дата: Вторник, 21.04.2015, 16:53 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

_Boroda_, да, именно так! а "доллары" пририсовать не велика задача))
спасибо за оперативную помощь!

Делай нормально и будет нормально!

Ответить

Che79

Дата: Среда, 22.04.2015, 15:19 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

Прошу прощения, что снова поднимаю эту тему.
На деле отказалось все сложнее. Поскольку файл это выгрузка из стороннего софта, то названия листов могут быть и 1, 2,3, 4, 5 как в примере выше, так и называться черт-те как (что намного чаще). Во вложении более "жизненный" пример, адаптированный к моим реалиям...
Как быть в этом случае?
В примере на Листе Сводный то, что хотелось бы получить

К сообщению приложен файл: makro2.xlsx (12.8 Kb)

Делай нормально и будет нормально!

Ответить

_Boroda_

Дата: Среда, 22.04.2015, 15:24 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Так?
[vba]

Код

Sheets("Сводный").Cells(i + 1, 4).Formula = "='" & Sheets(i).Name & "'!B2"

[/vba]

Цитата Che79, 21.04.2015 в 16:53, в сообщении № 3

"доллары" пририсовать не велика задача))

А зачем они Вам нужны?

Ответить

Che79

Дата: Среда, 22.04.2015, 15:45 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

_Boroda_, Да, теперь все идеально, спасибо!

А "баксы" нужны для того, чтобы нерадивые коллеги при переносе/копировании информации (которой на самом деле в разы больше) не сдвинули значения.
Т.к. в сводный далее заносится еще куски информации, как правило, вручную и уже потом привязываются формулы...
Лично мне и без долларов замечательно

Еще раз, благодарю за помощь!

Делай нормально и будет нормально!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос ссылок на ячейку с N- листов на сводный (Макросы/Sub)

Страница 1 из 1
1