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

Страницы: 1 2 3 4 След.
Скопировать все ссылки с сайта VBA
 
Спасибо за ответ, я поняла что слишком сложно) Сделала в питон, все намного проще вышло)
Скопировать все ссылки с сайта VBA
 
Добрый день!

Я не работала с сайтами, сейчас надо выгрузить все ссылки с сайта. Они содержаться в атрибуте href
Все что у меня получается это копировать с сайта.

Буду благодарна, если подскажете как скопировать ссылки.
Код
Sub Oem_Value()

    Dim post As Object
 Dim selectItems As Variant

    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "https://zunamiprotocol.medium.com/followers"
      
        While .readyState < 4: DoEvents: Wend

        For Each post In .Document.getElementsByName("eh ei bz ca cb cc cd ce cf bl ej ek cg el em")
            r = r + 1: Cells(r, 1) = post.innerText
        Next post
        .Quit
    End With

End Sub
Преобразование числа в текст
 
Добрый день! не могу понять как мне сделать, макрос копирует столбец и вставляет как значение, после удаляет символы, но вылезает ошибка Преобразовать в число, с зеленым уголочком и нужно вручную проводить.
Как макрос сделать, чтобы после копирования, сразу было значение.
В вручную все проходит хорошо, а макросом вылезает эта ошибка.
Код
 Range("A2:A8").Copy
   Worksheets("Лист1").Range("A2:A8").PasteSpecial Paste:=xlPasteValues
      
        
    Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="$", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Найти наибольшее значение в столбце между жирными шрифтами
 
Цитата
БМВ написал:
2 Что делать ?4223
Тут наверное без разницы какой выбирать, можно первый, если значения совпадают
Найти наибольшее значение в столбце между жирными шрифтами
 
Принципа нет,это выгрузка из проги, это сумма ниже стоящих элементов, но нужно выбрать именно в этом диапазоне наибольшее число
Найти наибольшее значение в столбце между жирными шрифтами
 
Добрый день!
Простая вроде задача, не могу сообразить сейчас.
Надо найти наибольшее значение между жирными шрифтами и может как н выделить.
Думала про макрос, не не поняла как это обозначить в цикл.
По очереди в каждом диапазоне. Те сначала в строках 4,5, потом 7,8 и так далее
Распределение суммы по дням недели
 
Спасибо большое!
Распределение суммы по дням недели
 
Спасибо за помощь огромное, то что нужно)) От души)
Распределение суммы по дням недели
 
Сейчас сумма плана 702, а надо 720. Те разницу распределить так по плану оставшемуся  чтобы вышло в итоге 720. Каждый день в факт заносится сумма и план пересчитывается.
Изменено: kleo90 - 15.06.2020 11:51:41
Распределение суммы по дням недели
 
Не нужно считать то что подставлено из факта, только то что осталось в плане,  сейчас в ручную распрелеляем, те то что еще без факта. По сумме без факта распределить остаток до 720, но с учетом параметров  
Распределение суммы по дням недели
 
Добрый день! Факт может отличаться от плана, и нужно остаток плана пересчитывать, так чтобы в чт пт сб и вск, было не меньше 40, а в пн вт ср не меньше 15. Те  распределить сумму в плане так чтобы получалось 720, но придерживаться заданных параметров. В файле сейчас получается в плане 706, а надо чтобы было 720.
Распределение суммы по дням недели
 
Добрый день! столкнулась с проблемой такого характера. есть план продаж на месяц. но в определенные дни должны продавать не меньше 40 тыс, в другие не меньше 15 тыс. также есть факт который подставляется в план и в зависимости от этого дальнейший план пересчитывается, чтобы сумма месяца соответствовала плановой сумме продаж, которой надо придерживаться. так вот, проблема в пересчете, как прописать формулу чтобы пересчитывал по параметру не меньше 40000 в определенный день и не меньше 15 в другой день, а сумма месячного плана всегда соответствовала заданной цифре.
Скопировать данные со страницы explorer
 
Цитата
Мне нужен цикл, а у меня не получается с данным кодом цикл(
Изменено: kleo90 - 05.12.2019 14:19:58
Скопировать данные со страницы explorer
 
Спасибо огромное всем!
Скопировать данные со страницы explorer
 
Добрый день!
Буду очень благодарна, если подскажите как мне скопировать индекс почтовый в ексель.
Никак не получается у меня.

Заранее спасибо!
Код
Sub Индекс()

 Dim IE As Object
 Dim N As Integer
 
Dim lLastRow As Variant
lLastRow = ThisWorkbook.Worksheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row

Set IE = CreateObject("InternetExplorer.Application")

   IE.Navigate "https://indexphone.ru"

    While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend
    With IE.Document
  
     For N = 2 To Cells(Rows.Count, 2).End(xlUp).Row
     
     .GetElementsByName("search")(0).Value = Cells(N, 2).Value
    SendKeys ("{Enter}")

Sheets("Лист1").Cells(N, 4).Value = IE.Document.getElementsByClassName("post-search-list-postalcode")(0).innerText
  Application.Wait Time:=Now + TimeValue("0:00:10")

 Next
     End With
End Sub
Изменено: kleo90 - 04.12.2019 14:31:07
Фильтрация данных по списку по одному месяцу
 
Спасибо всем большое за помощь!
Фильтрация данных по списку по одному месяцу
 
Добрый день!
Может есть какой то  способ для фильтрации по месяцам данных. Мне нужно чтобы при выборе месяца мне выдавало только данные по этому месяцу и тп. Как например это делает фильтр в сводной таблицы.
Данные во вложении
Распределить данные из одной ячейки по столбцам
 
Цитата
Wiss написал:
ФИО формулой:
Спасибо!
Распределить данные из одной ячейки по столбцам
 
Цитата
Mershik написал:
р
Спасибо)
Распределить данные из одной ячейки по столбцам
 
Цитата
Mershik написал:
PQ
Это то что надо)) еще бы знать как это сделать)
Распределить данные из одной ячейки по столбцам
 
К сожалению да
Распределить данные из одной ячейки по столбцам
 
Добрый день!
Кто может подсказать как вытащить данные из ячейки, в одной ячейке много инфы, но нужны только фио паспорт и номер серия, те определенные данные.
Но в ячейке текст распределен непонятно и даже текст по столбцам не работает(
Если какие приемы чтобы распределить данные по ячейкам, если данные в таком формате.
Разбить текст из одной ячейки на несколько по условию
 
Спасибо всем!! помогло)
Разбить текст из одной ячейки на несколько по условию
 
Добрый день!
Никак не могу найти решение как мне разбить текст из одной ячейки по условию.
Допустим у меня текст в одной ячейке:" ООО "СЭТЛ СИТИ" 196066 САНКТ-ПЕТЕРБУРГ ГОРОД ПРОСПЕКТ МОСКОВСКИЙ 212 ЛИТ.А , ОГРН: 1027804904379, Дата присвоения ОГРН: 17.12.2002, ИНН: 7810212380, КПП: 781001001, Генеральный Директор: Еременко Илья Анатольевич"

я хочу разделить отдельно в ячейки адрес, огрн, инн, кпп, только без слова ИНН и огрн, кпп

Заранее спасибо!
Копирование данных в цикле по условию
 
Спасибо!!! Все получилось)))  
Копирование данных в цикле по условию
 
Да
Копирование данных в цикле по условию
 
Добрый день! Я повышаю свои знания по работе с VBA)
Подскажите, у меня вот такой код, все делает как надо, НО копирует данные во вторую ячейку, и не копирует данные последней ячейки, те в интернете находит, а данные не копирует, и это именно последняя ячейка всегда((
В итоге мне нужно что находило значение из ячейка А1 и найденные данные копировал соответственно в ячейку В1
Но выходит так, что копирует данные найденные по значение А1 и вставляет в В2(( А надо чтобы в А1
И последние данные не копирует вообще.
Что я не так делаю в цикле
Код
Sub f()

 Dim IE As Object
 Dim N As Integer
 Dim sAnswer As String

' On Error Resume Next
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False
   IE.Navigate "http://egrul.nalog.ru/index.html"
   
    While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend
    With IE.document
 
     For N = 1 To Cells(Rows.Count, 1).End(xlUp).Row
     
       .GetElementsByName("query")(0).Value = Cells(N, 1).Value
       .getElementById("btnSearch").Click

   Sheets("Лист1").Cells(N, 2).Value = IE.document.getElementById("resultContent").innerText
  
      
 Application.Wait Time:=Now + TimeValue("0:00:10")
 
 Next N
  
    End With

End Sub
Копировать данные с сайта с помощью VBA
 
Спасибо! Для меня новый скил по работе с сайте через VBA)  
Копировать данные с сайта с помощью VBA
 
Добрый Вечер! Возник еще один вопрос( как скопировать данные которые я нашла по поиску на сайте, те результат поиска(
По тому что я нашла на просторах интернета не подходит, одна последняя строчка никак не идет.
Код
Sub f()
 Dim IE As Object
' On Error Resume Next
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
   IE.Navigate "http://egrul.nalog.ru/index.html"
   
    While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend
    With IE.Document

        .GetElementsByName("query")(0).Value = Cells(0, 1).Value
       .GetElementById("btnSearch").Click

    Cells(0, 2).Value = IE.Document.getElementsByClassName("div.res-text")(0).innerText
 
'ЗДЕСЬ НИКАК НЕ ВЫХОДИТ НИЧЕГО((
    End With
End Sub
Изменено: kleo90 - 15.03.2019 10:48:16
Поиск данных в интернете через VBA
 
Спасибо! Заработало!!
Страницы: 1 2 3 4 След.
Наверх