Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 След.
Открытие гиперссылки с помощью макроса
 
RAN,  тут либо я его неправильно применяю - либо ваш код не работает.
Код
Sub ГИПЕРССЫЛКА_АВАТАРКА()

ThisWorkbook.FollowHyperlink Range("a1")  
 
End Sub
БМВ, да я впр на другую ячейку кинул AP1, а потом уже с нее сделал гиперссылку в AP2 и все работает! Спасибо за помощь 8)  
Изменено: Молодое_Поколение - 12.11.2020 15:10:43
Впитываю знания, как борщ после тренировки ^^)
Открытие гиперссылки с помощью макроса
 
БМВ,
ОНи друг от друга ничем не отличаются

AO2 -
Код
=ГИПЕРССЫЛКА("https://www.instagram.com/"&U2&"/")

"https://www.instagram.com/akuna_matata__official/"

AP2 -
Код
=ГИПЕРССЫЛКА(ВПР(U2;ВЫБОР({1;2};'Исходная таблица'!A4:B1003;'Исходная таблица'!AD4:AD1003);2;ЛОЖЬ))

"https://scontent-arn2-1.cdninstagram.com/v/t51.2885-19/s320x320/122201100_1549765365411362_7789959929216279160_n.jpg?_nc_ht=scontent-arn2-1.cdninstagram.com&_nc_ohc=Aw0SkOQKZkAAX_eZERD&_nc_tp=25&oh=054ed24bc7d845a5124afa11a39be22d&oe=5FD51E29"
AQ2 -
Код
=ГИПЕРССЫЛКА(ВПР(U2;ВЫБОР({1;2};'Исходная таблица'!A4:B1003;'Исходная таблица'!AA4:AA1003);2;ЛОЖЬ))

"https://genz-trends.com/nakedmoney"
Изменено: Молодое_Поколение - 12.11.2020 11:41:27
Впитываю знания, как борщ после тренировки ^^)
Открытие гиперссылки с помощью макроса
 
caramelmaniac, спасибо

А почему несколько ссылок так не работают?
Выделяет эту строку - при запуске второго и третьего макросов....
Код
FormulaHyperlink = Evaluate(Mid$(Split(cell.Formula, ",")(0), 12))
Код
Sub ГИПЕРССЫЛКА_ПРОФИЛЬ()
   Url$ = FormulaHyperlink(Range("Ao2"))  
   If Len(Url$) Then ThisWorkbook.FollowHyperlink Url$      
End Sub

Sub ГИПЕРССЫЛКА_АВАТАРКА()
   Url$ = FormulaHyperlink(Range("AP2"))
   If Len(Url$) Then ThisWorkbook.FollowHyperlink Url$      
End Sub

Sub ГИПЕРССЫЛКА_САЙТ()  
   Url$ = FormulaHyperlink(Range("AQ2"))
   If Len(Url$) Then ThisWorkbook.FollowHyperlink Url$    
End Sub
  
Function FormulaHyperlink(ByRef cell As Range) As String
    If cell.HasFormula And (cell.Hyperlinks.Count = 0) Then
        If cell.Formula Like "=HYPERLINK*" Then
            FormulaHyperlink = Evaluate(Mid$(Split(cell.Formula, ",")(0), 12))
        End If
    End If   
End Function
Впитываю знания, как борщ после тренировки ^^)
Открытие гиперссылки с помощью макроса
 
Доброго времени суток!

Вместо .Range("F22")  - было (Activecells). С активной ячейкой все работает. Как сделать чтобы данные брались не с активной ячейки, а с F22?
Этот макрос не работает
Код
Sub ГИПЕРССЫЛКА()
 
   Url$ = FormulaHyperlink.Range("F22")
     

   If Len(Url$) Then ThisWorkbook.FollowHyperlink Url$
     
End Sub
 
Function FormulaHyperlink(ByRef cell As Range) As String

    If cell.HasFormula And (cell.Hyperlinks.Count = 0) Then
        If cell.Formula Like "=HYPERLINK*" Then
            FormulaHyperlink = Evaluate(Mid$(Split(cell.Formula, ",")(0), 12))
        End If
    End If
    
End Function
Впитываю знания, как борщ после тренировки ^^)
Не работает радиокнопка после скрытия/отображения столбцов
 
Добрый день всем!
Код
Option Explicit
Sub ПХ_ОБЩАЯ_скрытьвсе1()   
    Sheets("ОБЩАЯ").Shapes("Группа 3").Visible = msoTrue
    Sheets("ОБЩАЯ").Shapes("ОБЩАЯ1").Visible = msoTrue
    
    Sheets("ОБЩАЯ").Range("A:AT").EntireColumn.Hidden = False
End Sub

Sub ПХ_ОБЩАЯ_скрытьвсе()
    Sheets("ОБЩАЯ").Shapes("Группа 3").Visible = msoFalse
    Sheets("ОБЩАЯ").Shapes("ОБЩАЯ1").Visible = msoTrue
    
    Sheets("ОБЩАЯ").Range("A:AT").EntireColumn.Hidden = True
End Sub
После этих макросов группа 3 - это две радиокнопки  active X, перестают работать, помогает только разгруппировка и группировка заново. Подскажите в чем причина?
Впитываю знания, как борщ после тренировки ^^)
VBA. Как устранить ошибку 1004 "Сбой инициализации источника данных"
 
Проблема решена!!!
Помог способ №1
https://lumpics.ru/how-to-reinstall-net-framework-in-windows-10/#helpgood
Впитываю знания, как борщ после тренировки ^^)
Запрос в PQ. Подправить запрос данных о инста-аккаунтах.
 
Никто не шарит в PQ ? ;(
Впитываю знания, как борщ после тренировки ^^)
Запрос в PQ. Подправить запрос данных о инста-аккаунтах.
 
Доброго времени суток уважаемые знатоки!

Нужно подправить запрос в PQ. Запрос данных о инста-аккаунтах.

При использовании запроса заметил, что в каждом посте плавают пункты от 31 до 36 ( подробно в файле примере, на листе Настройки) .... Из-за этого сбивается вся работа, так как ячейки которые собирают и обрабатывают информацию  стоят на месте, и собирают не ту информацию... Так же и с количеством постов, бывает 12 бывает 23 поста.

Сделайте пожалуйста:
1) Чтобы из каждого поста брались неизменные пункты их 35 (указаны в файле примере);
2) Постов было 50 штук;

Если в посте нет какого-то из пунктов, пускай он остается пустым..... Так же и с постами если 50 не набирается, пускай остальные будут пустыми (пример можете видеть на листе ЖЕЛАЕМЫЙ результат начиная с 30 поста идут пустые строки - мне так и нужно). Главное чтобы размер таблицы запроса всегда оставался неизменным (A:BPR)

Файл-пример находится в облаке:
https://cloud.mail.ru/public/2TY8/3cKLzC2sy

Кого заинтересовало пишите в личку, обсудим оплату, и прочие вопросы.
Впитываю знания, как борщ после тренировки ^^)
VBA. Как исправить ошибку Run-time error '1004' Application-defined or object-defined error
 
Юрий М, сообщение #39 , я отписался что получил то что хотел, всех поблагодарил за помощь))))))))) ва с дедушкой еще в и личке пообщались  8)  
Впитываю знания, как борщ после тренировки ^^)
VBA. Как исправить ошибку Run-time error '1004' Application-defined or object-defined error
 
БМВ, хорошо что мы в интернете, а то у меня уже начались панические атаки :oops:  
Впитываю знания, как борщ после тренировки ^^)
VBA. Как исправить ошибку Run-time error '1004' Application-defined or object-defined error
 
БМВ, я понимаю, что Вы знаете больше, и смотрите на меня как на первоклассника... Просто такое чувство что все наоборот стремятся упрекнуть в чем-то или посмеяться.... А так я к критике отношусь нормально,))))))
Впитываю знания, как борщ после тренировки ^^)
VBA. Как исправить ошибку Run-time error '1004' Application-defined or object-defined error
 
Юрий М, какие обещания? О чем вы? если я что-то упустил напишите мне пожалуйста
Впитываю знания, как борщ после тренировки ^^)
VBA. Как исправить ошибку Run-time error '1004' Application-defined or object-defined error
 
БМВІгор Гончаренко, vikttur, Юрий М,, почему вы такие агрессивные?? все работает мой прежний макрос тоже, не работал хз из-за чего мб лаги какие-то........
Впитываю знания, как борщ после тренировки ^^)
VBA. Как исправить ошибку Run-time error '1004' Application-defined or object-defined error
 
Ігор Гончаренко, понял не ругайтесь ;)
Впитываю знания, как борщ после тренировки ^^)
VBA. Как исправить ошибку Run-time error '1004' Application-defined or object-defined error
 
Ігор Гончаренко, не работает в моем файле, в вашем работает...

Михаил Лебедев,  рабочий файл к сожалению не могу скинуть по 2 причинам. так как он большой 21 Мб, и так как он рабочий..


Возможно ли такое что все дело именно в файле?
Впитываю знания, как борщ после тренировки ^^)
VBA. Как исправить ошибку Run-time error '1004' Application-defined or object-defined error
 
Ігор Гончаренко, какой смысл мне тратить свое время, а самое главное ваше время? в первую очередь на данный форум я обращаюсь за советами к знающим людям, у меня мой макрос не работает, ваш кстати тоже, выскакивает ошибка 424
Код
    .Range("AK1:AFF1010").Copy
подсвечивается эта строка... возможно ли такое что причина именно в моем компьютере? мб после обновления виндовс, какие-то расширения слетели или еще что-то... бывало ли такое в вашей практике? У меня уже отчаяние, что с макросами не так, и как такое возможно, что они работают все хорошо, а потом ни с того ни с сего выдает ошибку.....  мне очень нравится работать с excel'ем но вечно какие-то ошибки баги, все настроение убивает...
Впитываю знания, как борщ после тренировки ^^)
VBA. Как исправить ошибку Run-time error '1004' Application-defined or object-defined error
 
Доброго времени суток!

Последнее время экселю плохо, те макросы которые всегда хорошо работали потихоньку перестают работать... объясните пожалуйста в чем ошибка?
Код
Sub ИНФО_ПОСТЫ()
With Worksheets("Запрос")
    Sheets("Запрос").Select
    Range("AK1:AFF1010").Select
    Selection.Copy
    Range("AGR1:BLM1010").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
            Application.CutCopyMode = False
End With
End Sub
Впитываю знания, как борщ после тренировки ^^)
VBA. Как устранить ошибку 1004 "Сбой инициализации источника данных"
 
Михаил Л, закомментил ничего не поменялось, также не работает

Дмитрий(The_Prist) Щербаков, напишите пожалуйста какая необходима информация, комп локальный, мой домашний, скрипт запускал сам, не работает.... Видимо проблема не в excel потому что, все нормально работает вручную, а через vbs файл начинает выдавать ошибку
Впитываю знания, как борщ после тренировки ^^)
VBA. Как устранить ошибку 1004 "Сбой инициализации источника данных"
 
Дмитрий(The_Prist) Щербаков, отличный сайт возьму на заметку... а как наделить планировщик права? может все дело в "настройке источника данных" в PQ. Хотя вручную же работает....  
Впитываю знания, как борщ после тренировки ^^)
VBA. Как устранить ошибку 1004 "Сбой инициализации источника данных"
 
Когда ошибка вылетает подсвечивается желтым .Refresh
Код
Sub ОБН_посты()
    With ThisWorkbook.Connections("Запрос — ЗП_ПОЛНАЯ_ФИФА")
    .OLEDBConnection.BackgroundQuery = False
    .Refresh
    End With
End Sub

поможет ли Option Explicit?
Впитываю знания, как борщ после тренировки ^^)
VBA. Как устранить ошибку 1004 "Сбой инициализации источника данных"
 
Михаил Л, когда вручную делаю, все работает отлично, закомментирую макрос - скорей всего сегодня вечером или завтра утром дам обратную связь
Цитата
Например, закомментировав один из макросов, проверьте работает ли незакомментированный   макрос.Код
искал ответы в гугле - некоторым помог вариант установки net framework - мне не помог ((

Андрей VG, в одной из тем Вы сказали что в такой проблеме вам помогла установка power BI - я так понял это не решение, это замена excel ?
Ваш комментарий:
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=89275
Впитываю знания, как борщ после тренировки ^^)
VBA. Как устранить ошибку 1004 "Сбой инициализации источника данных"
 
Шутить получается, а подсказывать молодым к сожалению нет 😄
Впитываю знания, как борщ после тренировки ^^)
VBA. Как устранить ошибку 1004 "Сбой инициализации источника данных"
 
Доброго времени суток господа!

Живу все хорошо, как тут макросы которые работали на протяжении полугода без нареканий, стали выдавать ошибку. Запускаю макросы через планировщик задач. Через планировщик выскакивает ошибка, если делать вручную все работает.
Подскажите пожалуйста, что за ошибка и как ее решить.

Текст ошибки:
Цитата
Run-time error '1004':
Сбой инициализации источника данных.
Проверьте сервер или обратитесь к администратору базы данных. Убедитесь, что внешняя база данных доступна, и вновь повторите операцию. При повторении сообщения, создайте новый источник для подключения к базе данных.

Макросы:
Код
Sub ОБН_информации()
With ThisWorkbook.Connections("Запрос — ЗП_ПОЛНАЯ_ИНФА")
    .OLEDBConnection.BackgroundQuery = False
    .Refresh
    End With
Call КП_СТАТИСТИКА_ОБЩАЯ
    End Sub

Sub ОБН_посты()
    With ThisWorkbook.Connections("Запрос — ЗП_ПОЛНАЯ_ФИФА")
    .OLEDBConnection.BackgroundQuery = False
    .Refresh
    End With
End Sub
Впитываю знания, как борщ после тренировки ^^)
PQ. Разложить json на кластеры, по примеру, Получение данных о публикациях аккаунтов инстаграмм
 
Доброго времени суток, всем знатокам! И любителям бабьего лета  8)

Помогите пожалуйста довести до ума запрос. Есть запрос который возвращает данные о публикациях в инстаграмме запрос "пример", пример отлично работает, но необходимо получать данные через другой адрес. Так же есть запрос рабочий, который возвращает данные об аккаунте.

Нужно чтобы запрос пример делал все тоже самое только в рабочем варианте. то есть черпал данные из сайта  2, таблица нужна в таком же виде как и в листе "Желаемый результат", красным выделено рабочий запрос - зеленым то что нужно.Бывает возвращает пустые строки - пусть игнорирует все кроме строк с данными, то есть в случае любой ошибки возвращает пустую строку.

Путь:  grahql - user - edge_owner_to_timeline_media - edges - node

1. запрос пример берет данные из этого сайта
Цитата
instagram.com/graphql/query/?query_hash=472f257a40c653c64c666ce877d59d2b&variables={""id"":"""&[Column1]&""",""first"":50,""after"":"""&[Column2]&"""}
2. а нужно из этого
Цитата
instagram.com/"&[Column1]&"/?__a=1
Постарался объяснить все просто, если возникнут вопросы - пишите все разъясню  :)  
Впитываю знания, как борщ после тренировки ^^)
Ошибка в запросе PQ при парсинге страницы инстаграм
 
Михаил Л, да спасибо! первая часть запроса отлично работает информация о аккаунте, а вторая к сожалению не заработала - информация о публикациях
Впитываю знания, как борщ после тренировки ^^)
Копирование только значений (НЕПУСТЫХ ячеек) из одного массива в другой
 
БМВ, Mershik, Михаил Витальевич С., Спасибо за помощь! чуть подредактировал ваши коды, он на пустых ячейках заканчивал диапазон на 49 ячейке.

Окончательный вариант
Код
Option Explicit


Sub КОПИЯ_БАЗА()

    Dim arrin(), arrout(), R&, c&

    arrin = ThisWorkbook.Worksheets("Запрос").Range("AFH4:AGQ1003").Value
    arrout = ThisWorkbook.Worksheets("Запрос").Range("BQF4:BRO1003").Value
    
    
    
    For R = 1 To UBound(arrin)
        For c = 1 To UBound(arrin, 2)
            If Len(arrin(R, c)) = 0 Or arrin(R, c) = " " Then
        '        ни чего не делаем
            Else
                arrout(R, c) = arrin(R, c)
            End If
        Next c
    Next R
    ThisWorkbook.Worksheets("Запрос").Range("BQF4:BRO1003").Value = arrout


End Sub




Изменено: Молодое_Поколение - 31.08.2020 02:43:51
Впитываю знания, как борщ после тренировки ^^)
Копирование только значений (НЕПУСТЫХ ячеек) из одного массива в другой
 
Михаил Витальевич, дома буду обязательно посмотрю и дам обратную связь, спасибо за помощь 😎
Впитываю знания, как борщ после тренировки ^^)
Копирование только значений (НЕПУСТЫХ ячеек) из одного массива в другой
 
Михаил Витальевич С., так точно!

Надо научиться у вас правильно объяснять :)  
Впитываю знания, как борщ после тренировки ^^)
Копирование только значений (НЕПУСТЫХ ячеек) из одного массива в другой
 
пока что лучшее решение вот это
Код
Sub help()
'
    Set SourceRng = Range("A1:ai1000")
    Set ResultRng = Range("AK1:BS1000")
    Set InsertRng = Range("AK1:BS1000")
    Application.ScreenUpdating = False 'отключаем экран
    For i = 1 To SourceRng.Count
        If Len(SourceRng.Item(i).Value) = 0 Then
            ResultRng.Item(i).Value = InsertRng.Item(i).Value
        Else
            ResultRng.Item(i).Value = SourceRng.Item(i).Value
        End If
     
    Next
    Application.ScreenUpdating = True 'включаем экран
    
End Su
Впитываю знания, как борщ после тренировки ^^)
Копирование только значений (НЕПУСТЫХ ячеек) из одного массива в другой
 
New, к сожалению нет, он удаляет пустые строки ..  :cry:  
Впитываю знания, как борщ после тренировки ^^)
Страницы: 1 2 3 4 5 След.
Наверх