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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 21 След.
Обработчики собственных событий пользовательской формы Excel
 
Добрый день!
1) Один вопрос - одна тема. (п. 2.6 Правил форума)
2) Какую конкретно задачу нужно решить? Возможно не туда копаете.
3) Где файл пример?  
Рассчитать каждый день тенденцию
 
Цитата
Ольга Привалова написал:
что я делаю не так?
не читаете правила
Формат даты в колонтитулах
 
Макросом
Расчет выплат в зависимости от времени суток
 
Цитата
Татошка написал:
Подскажите, можно что то сделать, чтобы считалось все это автоматически?
Укажите размер оплаты и пропишите везде формулы, будет автоматически.
Импорт данных из одной книги в другую
 
rumpelshtitchen, написал в личку.
Пропал.
Изменено: Андрей_26 - 06.09.2021 11:35:17
Импорт данных из одной книги в другую
 
Цитата
МатросНаЗебре написал:
Не ясно, взял Андрей в работу или нет.Стану в очередь.
пока уточняю детали
Транспортировать информацию из одного столбца в несколько
 
Как то так)
Импорт данных из одной книги в другую
 
Добрый день!
А ни проще сделать форму для ввода, куда операторы будут вводить необходимые данные и при нажатии на кнопку "ОК" эти данные будут правильно распределяться по ячейкам (в том числе с формулами) ?
Парсинг данных сайта flashscore ( платно )
 
Пишу в личку!
Пропал.
Изменено: Андрей_26 - 29.08.2021 09:09:35
Группировка строк по условию. Выполнение цикла до конца документа
 
Код
Sub Sort()
    Application.ScreenUpdating = False
    Dim a, b As Variant
    For b = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        a = Cells(b, 1).DisplayFormat.Interior.Color
        If a = "16777215" Then
            Rows(b).Select
            Selection.Rows.Group
        End If
    Next
    Cells(1, 1).Select
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    Application.ScreenUpdating = True
End Sub
Игнорировать, если нет нужных данных в спарсенной строке, и продолжать работу макроса
 
Вот здесь переменная "n" принимает значение -1
Цитата
ser987 написал:
n = InStr(1, responseF, ChrW(247) & "2.5¬XH") - 1
поэтому вот здесь возникает ошибка
Цитата
ser987 написал:
k = InStr(n, responseF, "¬OG")
т.к. n - не может иметь отрицательное значение
Ввод данных с TextBox в диапазон при условии разных искомых значений
 
Цитата
Julia написал: который будет вводить данные в Лист2...
надо чтобы он брал с Листа2
вы уже определитесь, что вам нужно!
Ввод данных с TextBox в диапазон при условии разных искомых значений
 
как то так
автоматическая вставка строк после строк со значениями
 
Цитата
Look Miracle написал:
как ето сделать не мышкой, а по заданным значениям, подскажите пожалуйста
макросом
Количество совпадений по массиву с условием
 
Добрый день!
Ну как я вижу, можно сделать сводную по каждому направлению, а затем общую сводную из сводных таблиц, либо макросом.
Почему при автоподборе появляются лишние отступы или наоборот - часть текста обрезается
 
Из вашего объяснения ничего ни понятно, где там отступы? а где текст обрезается? Думаете есть желание сидеть разбираться во всем коде?
Конкретно укажите проблему на примере ячеек и т.п......
проверка данных в текстовой ячейке по нескольким ячейкам, вопрос
 
Не знаю, все работает
HTTP запрос из VBA, Альтернативные спосбы
 
попробуйте изменить это
Код
Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
на это
Код
Set oXMLHTTP = CreateObject("Msxml2.XMLHTTP.6.0")
Cортировка (ранжирование) по любому количеству столбцов
 
Добрый день!
Не нужно описывать ваши пути решения, опишите лучше задание, что есть и что нужно получить в итоге.
Вам нужно подсчитать количество каждой цифры в массиве данных?
Вывод данных в TextBox по 4-м условиям ComboBox
 
Добрый день!
Если вам нужен поиск по введенным значениям, то на форуме много таких тем, вот например
Изменение надписи на ленте Excel макросом
 
Пока делал уже опередили ))) Еще вариант)))
Добавление данных одной ячейки к данным другой и перенос части текста в другую ячейку
 
Цитата
erikra написал:
как преобразовать таблицу следующим образом
макросом
В другом диапазоне найти слово, которое входит в текст, но может иметь другое окончание
 

Это

Код
For Each c1 In Range("A1:A99999")
        For Each c2 In Range("E1:E99999")
замените на это
Код
For Each c1 In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        For Each c2 In Range("E1:E" & Cells(Rows.Count, 5).End(xlUp).Row)
Закрыть IE средствами VBA
 
В чем вопрос?
Вставка даты в диапазон после выбора значений из 3-х Combobox-в
 
как то так
Макрос для удаления картинок и строк до начала таблицы с данными
 
Так?
Код
Sub Test()
    ActiveSheet.DrawingObjects.Select
    Selection.Delete
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) = "На собств.складе" Then
           Rows("1:" & i - 1).Delete Shift:=xlUp
           ActiveSheet.AutoFilterMode = False
           Exit For
        End If
    Next
End Sub
Run-time error 429. Компоненту ActiveX не удалось создать объект.
 
Добрый день!
Ситуация следующая, был написан макрос для получения информации с сайта, реализован через браузер Internet Explorer. Макрос запустили на Маке и он прекрасно отработал))) правда только около 20 раз, после чего на строке:
Код
Set IE = CreateObject("InternetExplorer.Application")

стала выскакивать ошибка "Run-time error 429. ActiveX component can't create object", что с одной стороны естественно т.к. Internet Explorer на Маке нет. Больше запустить макрос не удалось. Решено было протестировать его на других Маках и посмотреть какой браузер отрабатывает, как оказалось - Safari прекрасно запускается и работает, к сожалению на одном удалось сделать это 14 раз, на другом 20 раз после чего ситуация повторилась. Кто сталкивался с данной проблемой, есть обходные пути решения, чтобы запустить макрос?

P.S. файл по запросу скину на почту, если будет в этом необходимость

Печать нескольких листов с уникальными колонтитулами
 
Выделяю листы, Печать - Напечатать активные листы. Везде уникальные колонтитулы, никаких проблем нет. (Excel 2016, другого нет чтобы протестировать)
Копирование информации с сайта
 
Нарвский, повторно обратился ко мне за решением.В общем в работе.
Сделано. Оплачено.
Изменено: Андрей_26 - 19.07.2021 08:01:40
Макрос.Заполнение ячеек по диагонали
 
Код
Sub Macro1()
    Dim i&
    For i = 6 To 10
        Cells(i, i) = Cells(i - 1, i - 1) * Cells(4, i - 1)
    Next
End Sub
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 21 След.
Наверх