У меня есть код VBA для создания новой папки, которая работает, кто бы ни небольшая проблема со ссылкой, которая связана

Question

У меня есть запрос на создание папки на основе выбора.Код VBA, кажется, работает, кого бы я ни хотел сделать более легким.Вот некоторые проблемы

1. Ссылочный номер в столбце D на самом деле является гиперссылкой, которой дали дружественное имя или, если я скажу, имя лица, чтобы сохранить чистоту листа для своих пользователей.Коды VBA, кажется, не работают, потому что у меня есть дружественное имя или имя лица для ссылки.

2. для успешного выполнения кода С другой стороны, что я сделал, я создал дубликат столбца D, но без указания имени лица для ссылок.Это позволило успешно запустить код VBA.Однако проблема в том, что при выборе ячейки со ссылкой мне нужно нажимать кнопку «Создать папку», чтобы каждый раз создавать папку.я хочу вместо кнопки «создать» создать папку, если выбрана ячейка со ссылкой.

было бы замечательно, если бы кто-то мог предоставить исправление для проблемы № 1, гдепапка должна быть создана при выборе ячейки из столбца D, содержащей ссылку, а также имя лица.

Для простоты понимания см. таблицу ниже, чтобы понять структуру моего листа:

A:1 Contains Default Starting Name P195-HCT
B:1 Contains Default path (\Desktop\HCT)

A:5 to A:100 contains Revision No.
B:5 to B:100 contains Serial number for Folder
C:5 to C:100 contains formula which is (=HYPERLINK($B$1&B5&" "&"R"&A5,$A$1&B5&" "&"R"&A5)

Код:

Sub MakeSekectionDir()

For Each x In Selection
    If x = "" Then

    ElseIf Len(Dir(x, vbDirectory)) = 0 Then
        MkDir x

    End If

Next x

End Sub

То, что я хочу, это:

Необходимо создать папку при выборе ячейки из столбца D, содержащей ссылку, а также имя лица.

Код VBA должен создавать папку, если выбрана любая ячейка от C: 5 до C: 100.