Не выполняется условие для присваивания гиперссылки
DreOne
Дата: Среда, 24.02.2016, 16:44 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Здравствуйте, форумчане! Не могу понять, почему не выполняется условие при котором создается гиперссылка. Прошу указать на ошибку. Если необходимо - сброшу файл. [vba]Код
Private Sub Workbook_Open() n = 6 While Worksheets("12").Cells(n, 7) <> "" n = n + 1 Wend g = n - 1 For i = 6 To g c = Worksheets("12").Cells(i, 7).Value If c > 101 _ Then ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("12").Cells(i, 12), Address:= _ "\\vadim\rabota\skany\s4eta\ttk\1-99\" & c & ".pdf", TextToDisplay:=c & ".pdf" Else ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("12").Cells(i, 12), Address:= _ "\\vadim\rabota\skany\s4eta\ttk\" & c & ".pdf", TextToDisplay:=c & ".pdf" Next i End Sub
[/vba] Спасибо.
Здравствуйте, форумчане! Не могу понять, почему не выполняется условие при котором создается гиперссылка. Прошу указать на ошибку. Если необходимо - сброшу файл. [vba]Код
Private Sub Workbook_Open() n = 6 While Worksheets("12").Cells(n, 7) <> "" n = n + 1 Wend g = n - 1 For i = 6 To g c = Worksheets("12").Cells(i, 7).Value If c > 101 _ Then ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("12").Cells(i, 12), Address:= _ "\\vadim\rabota\skany\s4eta\ttk\1-99\" & c & ".pdf", TextToDisplay:=c & ".pdf" Else ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("12").Cells(i, 12), Address:= _ "\\vadim\rabota\skany\s4eta\ttk\" & c & ".pdf", TextToDisplay:=c & ".pdf" Next i End Sub
[/vba] Спасибо. DreOne
Саморазвитие - это всё...
Ответить
Сообщение Здравствуйте, форумчане! Не могу понять, почему не выполняется условие при котором создается гиперссылка. Прошу указать на ошибку. Если необходимо - сброшу файл. [vba]Код
Private Sub Workbook_Open() n = 6 While Worksheets("12").Cells(n, 7) <> "" n = n + 1 Wend g = n - 1 For i = 6 To g c = Worksheets("12").Cells(i, 7).Value If c > 101 _ Then ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("12").Cells(i, 12), Address:= _ "\\vadim\rabota\skany\s4eta\ttk\1-99\" & c & ".pdf", TextToDisplay:=c & ".pdf" Else ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("12").Cells(i, 12), Address:= _ "\\vadim\rabota\skany\s4eta\ttk\" & c & ".pdf", TextToDisplay:=c & ".pdf" Next i End Sub
[/vba] Спасибо. Автор - DreOne Дата добавления - 24.02.2016 в 16:44
DreOne
Дата: Среда, 24.02.2016, 16:48 |
Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Прошу прощения, не указал главное: если номер у счета меньше 100, то ищет в папке ниже, если нет, то в этой же. Ошибка происходит, если номер меньше 100.
Прошу прощения, не указал главное: если номер у счета меньше 100, то ищет в папке ниже, если нет, то в этой же. Ошибка происходит, если номер меньше 100. DreOne
Саморазвитие - это всё...
Ответить
Сообщение Прошу прощения, не указал главное: если номер у счета меньше 100, то ищет в папке ниже, если нет, то в этой же. Ошибка происходит, если номер меньше 100. Автор - DreOne Дата добавления - 24.02.2016 в 16:48
_Boroda_
Дата: Среда, 24.02.2016, 17:06 |
Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация:
6478
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
А где у Вас End If перед Next i ?
А где у Вас End If перед Next i ? _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение А где у Вас End If перед Next i ? Автор - _Boroda_ Дата добавления - 24.02.2016 в 17:06
DreOne
Дата: Среда, 24.02.2016, 17:16 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
А где у Вас End If перед Next i?
В коде есть, здесь не вставил кусок. Прошу прощения. При ошибке он не открывает файлы из папки "1-99"
А где у Вас End If перед Next i?
В коде есть, здесь не вставил кусок. Прошу прощения. При ошибке он не открывает файлы из папки "1-99"DreOne
Саморазвитие - это всё...
Ответить
Сообщение А где у Вас End If перед Next i?
В коде есть, здесь не вставил кусок. Прошу прощения. При ошибке он не открывает файлы из папки "1-99"Автор - DreOne Дата добавления - 24.02.2016 в 17:16
RAN
Дата: Среда, 24.02.2016, 17:28 |
Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
При ошибке он не открывает файлы из папки "1-99"
Этот макрос и не должен ничего открывать. Он создает гиперссылку. А ежели она кривая, то что вам сказать можно? Выправляйте дорожку.
При ошибке он не открывает файлы из папки "1-99"
Этот макрос и не должен ничего открывать. Он создает гиперссылку. А ежели она кривая, то что вам сказать можно? Выправляйте дорожку.RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение При ошибке он не открывает файлы из папки "1-99"
Этот макрос и не должен ничего открывать. Он создает гиперссылку. А ежели она кривая, то что вам сказать можно? Выправляйте дорожку.Автор - RAN Дата добавления - 24.02.2016 в 17:28
Udik
Дата: Среда, 24.02.2016, 17:28 |
Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
При ошибке он не открывает файлы из папки "1-99"
иОшибка происходит, если номер меньше 100.
т.е. если с<100, то адрес с 1-99 не записывает, Вы это хотите сказать?
При ошибке он не открывает файлы из папки "1-99"
иОшибка происходит, если номер меньше 100.
т.е. если с<100, то адрес с 1-99 не записывает, Вы это хотите сказать?Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Сообщение отредактировал Udik - Среда, 24.02.2016, 17:34
Ответить
Сообщение При ошибке он не открывает файлы из папки "1-99"
иОшибка происходит, если номер меньше 100.
т.е. если с<100, то адрес с 1-99 не записывает, Вы это хотите сказать?Автор - Udik Дата добавления - 24.02.2016 в 17:28
_Boroda_
Дата: Среда, 24.02.2016, 17:29 |
Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация:
6478
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
У Вас противоречие какое-то. Вы пишете:если номер у счета меньше 100, то ищет в папке ниже, если нет, то в этой же. Ошибка происходит, если номер меньше 100
При ошибке он не открывает файлы из папки "1-99"
И все бы ничего, но вот в коде у Вас все наоборот:If c > 101 _ Then ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("12").Cells(i, 12), Address:= _ "\\vadim\rabota\skany\s4eta\ttk\1-99\" & c & ".pdf", TextToDisplay:=c & ".pdf"
- если с>101,то лезем в папку 1-99, иначе - в текущую папку. Определитесь уже как-нибудь, что же Вам нужно. И да, после того, как определитесь, кидайте файл и полный код макроса.
У Вас противоречие какое-то. Вы пишете:если номер у счета меньше 100, то ищет в папке ниже, если нет, то в этой же. Ошибка происходит, если номер меньше 100
При ошибке он не открывает файлы из папки "1-99"
И все бы ничего, но вот в коде у Вас все наоборот:If c > 101 _ Then ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("12").Cells(i, 12), Address:= _ "\\vadim\rabota\skany\s4eta\ttk\1-99\" & c & ".pdf", TextToDisplay:=c & ".pdf"
- если с>101,то лезем в папку 1-99, иначе - в текущую папку. Определитесь уже как-нибудь, что же Вам нужно. И да, после того, как определитесь, кидайте файл и полный код макроса. _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение У Вас противоречие какое-то. Вы пишете:если номер у счета меньше 100, то ищет в папке ниже, если нет, то в этой же. Ошибка происходит, если номер меньше 100
При ошибке он не открывает файлы из папки "1-99"
И все бы ничего, но вот в коде у Вас все наоборот:If c > 101 _ Then ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("12").Cells(i, 12), Address:= _ "\\vadim\rabota\skany\s4eta\ttk\1-99\" & c & ".pdf", TextToDisplay:=c & ".pdf"
- если с>101,то лезем в папку 1-99, иначе - в текущую папку. Определитесь уже как-нибудь, что же Вам нужно. И да, после того, как определитесь, кидайте файл и полный код макроса. Автор - _Boroda_ Дата добавления - 24.02.2016 в 17:29
DreOne
Дата: Среда, 24.02.2016, 18:18 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Вот файл. Все ссылки от 100 открываются на ура. до 100 - "не удается открыть файл"
Вот файл. Все ссылки от 100 открываются на ура. до 100 - "не удается открыть файл" DreOne
Саморазвитие - это всё...
Ответить
Сообщение Вот файл. Все ссылки от 100 открываются на ура. до 100 - "не удается открыть файл" Автор - DreOne Дата добавления - 24.02.2016 в 18:18
Udik
Дата: Среда, 24.02.2016, 18:41 |
Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
Вот гиперссылки, первая, как Вы говорите, рабочая я ничего синтаксически неправильного во второй не вижу. Возможно у вас путь неправильный к документам прописан.
Вот гиперссылки, первая, как Вы говорите, рабочая я ничего синтаксически неправильного во второй не вижу. Возможно у вас путь неправильный к документам прописан. Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Ответить
Сообщение Вот гиперссылки, первая, как Вы говорите, рабочая я ничего синтаксически неправильного во второй не вижу. Возможно у вас путь неправильный к документам прописан. Автор - Udik Дата добавления - 24.02.2016 в 18:41
DreOne
Дата: Воскресенье, 28.02.2016, 14:08 |
Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Возможно у вас путь неправильный к документам прописан.
Запустил на другом компе - всё норм. Потом обратно перекинул файл себе и тоже заработал...
Возможно у вас путь неправильный к документам прописан.
Запустил на другом компе - всё норм. Потом обратно перекинул файл себе и тоже заработал...DreOne
Саморазвитие - это всё...
Ответить
Сообщение Возможно у вас путь неправильный к документам прописан.
Запустил на другом компе - всё норм. Потом обратно перекинул файл себе и тоже заработал...Автор - DreOne Дата добавления - 28.02.2016 в 14:08