| Вопрос: Работа с данными | Добавлено: 29.07.08 19:50 |
Автор вопроса:  joker-pnz
|
| Ответы | Всего ответов: 20 |
|
Номер ответа: 16 Автор ответа:  Jasmin Вопросов: 23 Ответов: 417 |
Профиль | | #16 | Добавлено: 30.07.08 20:18 |
|
Тут попутно еще пришло на ум дополнение. If (Val(sh) - i) > 0 Then
Вот так корректней будет. Появляются только существующие, нормальные ссылки.
.Cells(1, Col).Formula = "='" & Val(sh) - i & "'!A1" 'вставка ссылки. Если листа нет, то будет отображаться #Ref! End If Col = Col + 1 'следующая колонка |
||
|
Номер ответа: 17 Автор ответа: joker-pnz Вопросов: 1 Ответов: 8 |
Профиль | | #17 | Добавлено: 30.07.08 20:20 |
| теперь ругается на строку If (Val(sh) - i) > 0 Then | ||
|
Номер ответа: 18 Автор ответа: JasminВопросов: 23 Ответов: 417 |
Профиль | | #18 | Добавлено: 30.07.08 20:21 |
| Нажми остановить макрос в редакторе. А потом нажми кнопку. Должно помочь. | ||
|
Номер ответа: 19 Автор ответа: joker-pnzВопросов: 1 Ответов: 8 |
Профиль | | #19 | Добавлено: 30.07.08 20:22 |
| Слава Богам! Все получилось! Благодарю вас!!!!!!!!!!!!!!!!!!!!!!!!! | ||
|
Номер ответа: 20 Автор ответа: JasminВопросов: 23 Ответов: 417 |
Профиль | | #20 | Добавлено: 30.07.08 20:27 |
Вот теперь букет заслуженно принимаю.  Спасибо.
|
||