Скопировать сылки со 2 листа на первый

[alco84]

Есть файл xls необходимо сделать так, чтобы во втором столбце таблицы B4:B11 были гиперссылки, имена и непосредственно адреса ссылок расположены на странице names E5:E11

Для всех гиперссылок проставить значение размера шрифта 8 и цвет шрифта "белый".
Задачу решить через макросы VB

[doober]

Сообщение от alco84

Задачу решить через макросы VB

Решение я думаю будет таким

[alco84]

Да я нубок но мне нужна помощь только для начала так сказать (в каком направлении смотреть)

[alco84]

В общем мне нужно знать как обратиться ко 2 листу выбрать нужные ячейки и скопировать их на 1 лист со шрифтом сам разберусь

[javvva]

для обращения ко второму листу я использую функции ГПР и ВПР. незнаю подойдут тебе или нет.

[alco84]

Видимо не подойдут но за помощь спасибо

[doober]

Сообщение от alco84

мне нужна помощь только для начала так сказать (в каком направлении смотреть)

В поиске по форуму ключевое слово гиперссылка
Вариантов море,пояснений так же

[alco84]

Вот что получилось вроде все работает но правильно ли оно с архитектурной точки зрения???

Sub new_()

Sheets("names").Select ' выбрал лист
Range("E5:E11").Select ' выбрал фрагмент листа
Selection.Copy ' скопировал в буфер

Sheets("test1").Select ' выбрал лист
Range("B5:b11").Select ' выбрал фрагмент листа
ActiveSheet.Paste ' вставил

Range("B4:B11").Select ' выбрал фрагмент листа

With Selection.Font ' устанавливаю стиль
.Name = "Times New Roman" ' название шрифта
.Size = 8 ' размер шрифта
.Color = vbWhite ' цвет
End With

End Sub

[EducatedFool]

С точки зрения "архитектуры" правильнее так:

Sub test()
    On Error Resume Next
    Dim cell As Range, descr As Range
    For Each cell In [a4:a11]
        Set descr = Worksheets("names").Range("c:c").Find(cell)
        ActiveSheet.Hyperlinks.Add cell.Next, descr.Next.Next, , _
                                   "Отобразить баннер " & cell, descr.Next.Text
        cell.Next.Font.Size = 8: cell.Next.Font.Color = vbWhite
    Next cell
End Sub

Пример файла:

[alco84]

Огромное спасибо но я не понял этого куска
Sub test()
On Error Resume Next
Dim cell As Range, descr As Range
For Each cell In [a4:a11]
Set descr = Worksheets("names").Range("c:c").Fi nd(cell)
ActiveSheet.Hyperlinks.Add cell.Next, descr.Next.Next, , _
"Отобразить баннер " & cell, descr.Next.Text
cell.Next.Font.Size = 8: cell.Next.Font.Color = vbWhite
Next cell
End Sub