Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 72 След.
цикл выгрузки данных с сайта
 
как-то так (но не тестировал)

Код
Sub FOBO()
Dim IE As Object
Dim LastRowLOG As Long, iRow As Long, LastRowSales As Long

    Sheets("LOG").Select
    LastRowLOG = Sheets("LOG").Cells(Rows.Count, 1).End(xlUp).Row 'номер последней заполненной ячейки на листе LOG в столбце А
    On Error Resume Next
    Set IE = CreateObject("InternetExplorer.Application")
    
    For iRow = 2 To LastRowLOG 'цикл со 2-й строки до последней
    
        Sheets("LOG").Select
        IE.Navigate "https://fobo-mon.corp.redit.ru/onlinesales"
        Application.Wait Now + TimeSerial(0, 0, 1)
        IE.Document.getelementbyID("in_username").Value = Sheets("LOG").Cells(iRow, 1) 'меняем строки в цикле
        IE.Document.getelementbyID("in_password").Value = Sheets("LOG").Cells(iRow, 2) 'меняем строки в цикле
        IE.Document.getelementbyID("btnpass").Click
        Application.Wait Now + TimeSerial(0, 0, 1)
        IE.Document.GetElementsByTagName("form")(0).submit
        Application.Wait Now + TimeSerial(0, 0, 2)
        Application.SendKeys "^a"
        Application.SendKeys "^c"
       
        Sheets("sales").Select
        LastRowSales = Sheets("sales").Cells(Rows.Count, 1).End(xlUp).Row 'номер последней заполненной ячейки на листе sales в столбце А
        Cells(LastRowSales + 3, 1).Select 'делаем отступ 2 строки (-1)
        ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
        
    Next iRow
        
    IEe.Quit: Set IEe = Nothing

    MsgBox "Конец", vbInformation, ""
 End Sub
Формирование списка на основе нескольких переменных
 
См. файл

КОД
Изменено: New - 20 апр 2021 17:06:50
Автозамена текста с условием частичного совпадения
 
желательно дать нам пример в Excel

P.S. А можно, например, сформировать справочник на соседнем листе, где указать "Детский сад" это "Сад детский" ....
Изменено: New - 20 апр 2021 15:01:47
Сцепка строк до числового значения
 
ещё вариант
Ошибка при сохранении файла Excel с поддержкой макросов
 
DJMC, А что с ним не так? Вроде нормально открывается. Вот ссылка https://dropmefiles.com/uRh5M
Объединение книг в один лист, Копирование с нескольких книг в один лист
 
aybek04, см. файл

P.S. Ваш файл с именем "210416608-К639 Ирина Липеск 19-04 рынок.xls" должен иметь расширение "XLSM", а не "XLS"
Изменено: New - 19 апр 2021 15:45:26
Макрос для отображения длинного текста в ячейке при наведении мышки на нее.
 
МатросНаЗебре, мне кажется можно было обойтись свойством "подгонять размер фигуры под текст"

Код
 Set sp = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, Target.Cells(2, 2).Left, Target.Cells(2, 2).Top, 500, 50)
 With sp.TextFrame2
      .AutoSize = msoAutoSizeShapeToFitText ' <-- вот это
   With .TextRange.Font
        .NameComplexScript = "Courier New"
        .NameFarEast = "Courier New"
        .Name = "Courier New"
       .Size = 10
 End With
  .TextRange.Characters.Text = s
End With
Изменено: New - 19 апр 2021 12:22:31
Макрос объединяет выделенные ячейки и копирует в буфер
 
приложите небольшой файл-пример
Макрос курса валют нбу или автообновление веб запроса
 
https://www.planetaexcel.ru/techniques/13/129/
Выбор периода дат и отдельные месяца из таблицы
 
См. файл
Изменено: New - 14 апр 2021 12:08:12
Расчёт и вставка данных в ячейки только выходных дней
 
Повторите ваше сообщение здесь ещё раз (и не забудьте приложить небольшой пример в файле Excel)
Как выгрузить массив после сортировки ссылкой?
 
У меня одинаково
System.Collections.ArrayList - 5,86328125
Jack forum - 5,84765625
Изменено: New - 13 апр 2021 16:54:54
Получение данных из закрытого файла
 
alex_j, вам намекают, что даже вашей функцией - файл открывается, но вы этого не замечаете.
Метод Close - закрывает ранее открытый файл. То есть файл ранее был открыт кодом выше
Изменено: New - 13 апр 2021 14:35:53
Глючат кнопки переключателей на листе
 
А если удалить все переключатели и создать заново?
как извлечь должность и ФИО в одной ячейке таблицы
 
Рина Маквед, У вас что Excel не установлен на компьютере? Запрещают делать таблицы в Excel? Запрещают сохранять данные в файле?
Изменено: New - 13 апр 2021 00:12:01
Как забрать нужное значение после "ключевого слова", Извлечение информации после контрольного слова в ячейке
 
подправил
Проблемы при копировании/вставке таблицы
 
кто будет писать ТС в ЛС ?
Изменено: New - 12 апр 2021 16:28:11
Как забрать нужное значение после "ключевого слова", Извлечение информации после контрольного слова в ячейке
 
См. файл (данные начинаются со 2-й строки, нажмите синюю кнопку)
Изменено: New - 12 апр 2021 15:52:12
Как забрать нужное значение после "ключевого слова", Извлечение информации после контрольного слова в ячейке
 
Валентин Ненаю,  обычно ещё принято рядом с данными показывать желаемый результат, какой вы хотите получить.
А то мы сделаем результат в одну ячейку через запятую, а вы скажете - неет, мне надо в столбик... или наоборот
Изменено: New - 12 апр 2021 14:30:29
Подстановка значений из расчетной таблицы в таблицу данных
 
В работе
Обменялись
Изменено: New - 11 апр 2021 23:46:50
Подсветить одинаковые значения в строке
 
пусть ещё будет решение макросом
Подстановка значений из расчетной таблицы в таблицу данных
 
давайте попробуем, пишу вам в ЛС
Изменено: New - 10 апр 2021 11:34:37
Перенос слов из ячеек при заполнении по пробелам
 
Повторите ваше сообщение ещё раз здесь и не забудьте приложить небольшой файл-пример
Копирование данных ячейки на другой лист, каждый раз в строку ниже, Копирование
 
Код
Sub MyCopy()
Dim LastRow As Long

    With Worksheets("Лист2")
        LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row + 1
        If LastRow < 7 Then LastRow = 7
        .Cells(LastRow, "D").Value = Worksheets("Лист1").Range("D5").Value
    End With
End Sub
Сохранить файл в нужной папке с нужным названием.
 
Код
Sub test()
Dim NewFileName As String
    'А2 - 1 этап (папка)
    'A3 - название файла
    NewFileName = "C:\Итоги\выборка\" & Range("A2") & "\" & Range("A3") & ".xlsb"
    ActiveWorkbook.SaveAs Filename:=NewFileName, FileFormat:=xlExcel12 'xlsb
    MsgBox "Файл сохранён!", vbInformation, ""
End Sub
Изменено: New - 9 апр 2021 18:39:37
Макрос вставки нужного количества пустых строк
 
См. картинку
Подтягивание дня недели из другой таблицы
 
если только по Адресу, то так (в ячейку F2)
=ВПР(C2;График!E:G;3;0)
Печать колонтитулов через VBA
 
мне кажется нельзя задать каждому листу разные колонтитулы (вроде можно создать только для 1-го листа и для всех остальных, но вам тоже не подойдёт, наверное)
Копирование строк как значения в другую книгу, ошибка при вставке строки
 
Попробуйте так

Код
Sub stroki2()
   Dim Linia As String, RD As String, i As Long, kol_vo As Long, kol_vo2 As Long, x As Long, r As Long, t As Long
   
    If Not Range("AB24, AB26") Is Nothing Then
        x = 2
        r = 2
        Linia = ThisWorkbook.Sheets("АООК").Range("AB26")
        RD = ThisWorkbook.Sheets("АООК").Range("AB24")
        With Workbooks("Накопительная ТК.xlsm").Sheets("Сварка")
            kol_vo = .Cells(Rows.Count, 2).End(xlUp).Row
            For i = 1 To kol_vo
                If .Cells(i, 4) = Linia Then
                    If .Cells(i, 2) = RD Then
                        x = x + 1
                        .Rows(i).Copy
                        ThisWorkbook.Sheets("Сварка").Cells(x, 1).PasteSpecial xlPasteValues
                    End If
                End If
            Next
         End With
    End If
End Sub
Изменено: New - 8 апр 2021 19:12:33
Копирование строк как значения в другую книгу, ошибка при вставке строки
 
См. картинку
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 72 След.
Наверх