Перевод формулы гиперссылки с условием на макрос

Дата: Среда, 10.05.2023, 13:20 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 47

Репутация: 0 ±

Замечаний: 20% ±

EXCEL 2013

Есть формула, как перевести в макрос, через "запись макроса", не работает, не правильно формирует. Вот формула:

Код

=ЕСЛИ(ЕПУСТО(B2);" ";ГИПЕРССЫЛКА("[Книга.xlsx]'Пункт'!A2";"Пункт"))

Файл во вложении, за что был наказан, ну что правила есть правила Serge_007

К сообщению приложен файл: kniga.xlsx (10.9 Kb)

Сообщение отредактировал flywithme1299 - Среда, 10.05.2023, 14:35

Дата: Среда, 10.05.2023, 13:29 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата flywithme1299, 10.05.2023 в 13:20, в сообщении № 1 (

)

не правильно формирует

У меня правильно формирует
http://www.excelworld.ru/forum/3-46788-308369-16-1611906826

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 10.05.2023, 13:46 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 47

Репутация: 0 ±

Замечаний: 20% ±

EXCEL 2013

Serge_007, Спасибо посмотрю

Дата: Среда, 10.05.2023, 13:53 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

так

Код

=ЕСЛИ(ЕПУСТО(B2);"";ГИПЕРССЫЛКА("#'Пункт'!A"&СТРОКА();"Пункт"))

наверное нужно

ЮMoney 41001841029809

Дата: Среда, 10.05.2023, 14:00 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 47

Репутация: 0 ±

Замечаний: 20% ±

EXCEL 2013

Nic70y, Ага, вышеизложенное не получилось применить:) Да не много формулу с ошибкой указал:) как перевести в макрос, рекодер всячину какую-то выдает

[vba]

Код

Range("J2").Select
Application.Goto Reference:="Пункт!R2C1"
Range("A2").Select

[/vba]

Сообщение отредактировал flywithme1299 - Среда, 10.05.2023, 14:06

Дата: Среда, 10.05.2023, 14:29 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата flywithme1299, 10.05.2023 в 13:20, в сообщении № 1 (

)

правила есть правила

Цитата flywithme1299, 10.05.2023 в 14:00, в сообщении № 5 (

)

не много формулу с ошибкой указал

Правила так же требуют оформление формул тегами формул - в тегах сразу видны ошибки в формулах

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 10.05.2023, 14:35 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 47

Репутация: 0 ±

Замечаний: 20% ±

EXCEL 2013

Serge_007, понял, исправился:)

Дата: Среда, 10.05.2023, 14:41 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата flywithme1299, 10.05.2023 в 13:20, в сообщении № 1 (

)

через "запись макроса"

[vba]

Код

FormulaR1C1 ="=IF(ISBLANK(RC[-8]),"" "",HYPERLINK(""[Книга.xlsx]'Пункт'!A2"",""Пункт""))"

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 10.05.2023, 14:54 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 47

Репутация: 0 ±

Замечаний: 20% ±

EXCEL 2013

Serge_007, Спасибо большое hands

Дата: Среда, 10.05.2023, 15:57 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 47

Репутация: 0 ±

Замечаний: 20% ±

EXCEL 2013

Serge_007, Все же не работает, просто добавляется надпись "Пункт" в ячейку J2, и всё, а слово "Пункт" должно быть гиперссылкой на лист "Пункт" ячейку А2.

Дата: Среда, 10.05.2023, 16:02 | Сообщение № 11

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата flywithme1299, 10.05.2023 в 15:57, в сообщении № 10 (

)

не работает

Цитата Serge_007, 10.05.2023 в 13:29, в сообщении № 2 (

)

У меня работает

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 10.05.2023, 16:15 | Сообщение № 12

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub u_700()
    u = Cells(Rows.Count, "b").End(xlUp).Row
    If u > 1 Then
        For v = 2 To u
            If Range("b" & v) <> "" Then
                ActiveSheet.Hyperlinks.Add Anchor:=Range("j" & v), Address:="#", _
                    SubAddress:="Пункт!A2", TextToDisplay:="Пункт!"
            Else
                Range("j" & v).ClearContents
            End If
        Next
    End If
End Sub

[/vba]

ЮMoney 41001841029809

Дата: Вторник, 23.05.2023, 09:56 | Сообщение № 13

Группа: Пользователи

Ранг: Новичок

Сообщений: 47

Репутация: 0 ±

Замечаний: 20% ±

EXCEL 2013

Nic70y, Отличное решение, а как можно еще сделать, чтобы с других листов тоже также работало? С первого листа, потом с третьего листа, с четвертого и так далее, на тот же лист и на ту же позицию, к сожалению, задача у меня была другая, но найти решение не с мог, буду просто ссылаться на страницу хотя бы:)

Дата: Вторник, 23.05.2023, 10:04 | Сообщение № 14

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

Цитата flywithme1299, 23.05.2023 в 09:56, в сообщении № 13 (

)

к сожалению, задача у меня была другая

если речь об этом: http://www.excelworld.ru/forum/10-51849-1
то я ни чего не понял и судя по количеству ответов, не только я один

ЮMoney 41001841029809

Дата: Вторник, 23.05.2023, 10:10 | Сообщение № 15

Группа: Пользователи

Ранг: Новичок

Сообщений: 47

Репутация: 0 ±

Замечаний: 20% ±

EXCEL 2013

Nic70y, да там довольно сложно объяснить, хотя бы просто ссылку с других страниц бы сделать:(

Дата: Вторник, 23.05.2023, 10:18 | Сообщение № 16

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

структура листов 3, 4 и т.д одинакова с листом 1?

ЮMoney 41001841029809

Дата: Вторник, 23.05.2023, 10:25 | Сообщение № 17

Группа: Пользователи

Ранг: Новичок

Сообщений: 47

Репутация: 0 ±

Замечаний: 20% ±

EXCEL 2013

Nic70y, нет отличается к сожалению, там сами заполняют сотрудники, а на первом листе руководитель

Дата: Вторник, 23.05.2023, 10:38 | Сообщение № 18

Группа: Пользователи

Ранг: Новичок

Сообщений: 47

Репутация: 0 ±

Замечаний: 20% ±

EXCEL 2013

Nic70y, Вот файлик, там еще формула не отрабатывает, не понял почему только, которую вы раннее отправляли, и можно эту формулу, как-то преобразовать, у меня на одной строке в другой таблице, не хочет работать именно с одним человеком, а если выбрать других, то работает, в общем не понятно как-то:(

К сообщению приложен файл: kniga.xlsm (22.0 Kb)

Дата: Вторник, 23.05.2023, 10:53 | Сообщение № 19

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

flywithme1299, на листах водителей куда гиперссылку вставлять?

формула ссылается на название листа, которое берет из столбца F и выводить из этого листа результат из E.
по этому и не работает, что листов "В срок" нет в книге

ЮMoney 41001841029809

Дата: Вторник, 23.05.2023, 11:18 | Сообщение № 20

Группа: Пользователи

Ранг: Новичок

Сообщений: 47

Репутация: 0 ±

Замечаний: 20% ±

EXCEL 2013

Nic70y, Но можно ее как-то не через формулу записать, а через макрос прописать не через R1C1, может так решится проблема далее:)