Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Новый участник


Сообщения: 31
Благодарности: 0

Профиль | Отправить PM | Цитировать


a_axe, спасибо это работает! А можете подсказать как мне вообще отказаться от функции CreateHypelinkInTextCell и перенести ее функционал в:
Код: Выделить весь код
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1:A666")) Is Nothing Then
   If Target <> "" Then
     Call CreateHypelinkInTextCell
   End If
 End If

Отправлено: 11:54, 07-09-2020 | #3