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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 52 След.
Разделить на строки ячейку
 
Код
Sub кнопка()
    Columns("K:M").ClearContents
    cr = 1
    arr = Range("A2:C" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    For i = 1 To UBound(arr)
        ss = Split(arr(i, 2))
        For j = 0 To UBound(ss)
            Cells(cr, "K") = arr(i, 1)
            Cells(cr, "L") = arr(i, 2)
            Cells(cr, "M") = arr(i, 3)
            cr = cr + 1
        Next
    Next
End Sub
Быстрое выборочное копирование данных из нескольких листов в сводную
 
Пишу в личку.
Сделано.
Оплачено.
Изменено: skais675 - 19 Фев 2020 14:08:14
Доработка макроса, придётся разобраться в чужом коде
 
Пишу в личку.
Сделано.
Оплачено.
Изменено: skais675 - 16 Фев 2020 13:48:36
Объединить ячейки. содержащие значения, с пустыми под этими зачениями
 
замените на PasteSpecial
Объединить ячейки. содержащие значения, с пустыми под этими зачениями
 
Код
  Range("D25:L26").Copy
    For Each Cell In ActiveSheet.UsedRange.Range("A27:A250").Cells
        If Cell.Value > 0 Then Cell.Offset(, 1).PasteSpecial
    Next
Изменено: skais675 - 12 Фев 2020 12:42:32
Объединить ячейки. содержащие значения, с пустыми под этими зачениями
 
VVS_001 приложите пример как есть и как нужно.
Вставляем не в activecell а в cell (снова те же грабли)
Изменено: skais675 - 12 Фев 2020 12:18:32
Объединить ячейки. содержащие значения, с пустыми под этими зачениями
 
Код
For Each Cell In ActiveSheet.UsedRange.Range("A25:A250").Cells
        If Cell.Value > 0 Then Cell.Resize(2).Merge
Next
Как скрыть пустые строки в всей книге
 
Код
Sub Скрыть_строки()
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Sheets
          For Each cell In ws.UsedRange.Columns(1).Cells
                If cell.Value = "" Then cell.EntireRow.Hidden = True
          Next
    Next
    Application.ScreenUpdating = True
End Sub
Изменено: skais675 - 12 Фев 2020 11:06:21
Подсчёт количества серий из цифр
 
Peet, поправил.
Подсчёт количества серий из цифр
 
Peet, Решение.
Изменено: skais675 - 11 Фев 2020 11:28:12
создание таблицы, Формирование таблицы зависимого выбора с автоматическим подтягиванием фото и стоимости
 
Пишу в личку.
Ожидаю согласия на выполнение.
ТС взял паузу.
Изменено: skais675 - 8 Фев 2020 13:09:17
Макрос на установление одинаковых максимумов на графиках
 
Zealot92 Решение.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("AD24:AE27")) Is Nothing Then
       ChartObjects("Диаграмма 2").Chart.Axes(xlValue, xlPrimary).MaximumScale = ChartObjects("Диаграмма 1").Chart.Axes(xlValue, xlPrimary).MaximumScale
       ChartObjects("Диаграмма 2").Chart.Axes(xlValue, xlSecondary).MaximumScale = ChartObjects("Диаграмма 1").Chart.Axes(xlValue, xlSecondary).MaximumScale
    End If
End Sub
Изменено: skais675 - 7 Фев 2020 10:10:53
Сборка больших книг PQ не помогает
 
merytoy В этом случае нужно смотреть файлы, запросы, макросы.
Сборка больших книг PQ не помогает
 
Цитата
merytoy написал:
из определенного количества книг, в каждой книге по 400 000 строк, надо выкинуть лишнее около 300 000,
Андрей VG определенное количество книг - неопределено, вдруг их 100 и 100*(400k-300k)=100 000k.
Потому и спрашиваю про
Цитата
Каким образом нужно собирать данные, сколько всего данных и сколько гипотетически может получиться после сборки?
Изменено: skais675 - 6 Фев 2020 14:30:51
вставка значений из таблицы по дням недели
 
Решение.
Код
=IFERROR(INDEX($J6:$AN6;;MATCH($D$1;$J$5:$AN$5;0)-(WEEKDAY($D$1;2)-COLUMN()+1));0)
Сборка больших книг PQ не помогает
 
merytoy, Нужно расписать задачу более детально. на странице 1000000 строк - больше не удастся вписать. Каким образом нужно собирать данные, сколько всего данных и сколько гипотетически может получиться после сборки?
Отбор по номенклатуре
 
Пишу в личку.
В работе.
Сделано.
Оплачено.
Изменено: skais675 - 6 Фев 2020 12:23:44
Подсчёт количества серий из цифр
 
Peet я думаю дальше разберетесь сами.
Посчитать результат в зависимости от условия
 
Nika90 а Если значение >= границы, тогда что?
Подсчёт количества серий из цифр
 
Peet, есть решение.
Изменено: skais675 - 4 Фев 2020 14:03:59
Подсчёт количества серий из цифр
 
Формула массива.
Код
=SUM(IF((B6:AG6<>C6:AH6)*(B6:AG6="");1;0))
Шаблон строительной сметы, Есть шаблон сметы в эксель, его нужно улучшить
 
Предварительно договорились, жду файлы.
В работе.
Сделано.
Оплачено.
Изменено: skais675 - 20 Фев 2020 22:20:54
Шаблон строительной сметы, Есть шаблон сметы в эксель, его нужно улучшить
 
olega-san1, ответ поступил после моего сообщения #2, еще раз ответил, ожидаю связи по мессенджеру. Тема требует обсуждения.
Изменено: skais675 - 3 Фев 2020 12:03:16
Шаблон строительной сметы, Есть шаблон сметы в эксель, его нужно улучшить
 
Пишу в личку.
Безответно.
Изменено: skais675 - 3 Фев 2020 09:37:45
Счет кол-ва уникальных значений по 2 критериям, Счет кол-ва уникальных значений по 2 текстовым критериям
 
franchesko, Ну так я выложил оба варианта, выбирайте.
Счет кол-ва уникальных значений по 2 критериям, Счет кол-ва уникальных значений по 2 текстовым критериям
 
Сводная по сводной или формулами (взято отсюда).
Код
=SUMPRODUCT(--(MATCH($A$2:$A$7&$B$2:$B$7;$A$2:$A$7&$B$2:$B$7;0)=ROW($1:$6))*($A$2:$A$7=D2))
Изменено: skais675 - 31 Янв 2020 11:01:42
Прибавка рабочих часов к дате
 
andronus, сорри, поправил.

Скрытый текст
Окрасить ячейки в зависимости от процента вероятности стадий
 
Еще вариант.
Изменено: skais675 - 28 Янв 2020 10:38:46
Ошибка при обновлении связей в файле
 
BiteR А почему вы макрос разместили в модуле листа? Создайте отдельный модуль и поместите их туда.
Удаление строки по результату формулы в "умной таблице"
 
Ответ
Код
Sub DeleteLastRow()
Dim lRws As Long
    With Worksheets("Application Form")
       lRws = .Cells(.UsedRange.Rows.Count, "M").End(xlUp).Row
        .Rows(lRws).Delete
        Call DeleteLastRow_Details
    End With
End Sub

Вы здесь на первом листе почему то удаляете только последнюю строку с галочкой (странно почему не все?), после чего у Вас слетает формула на втором листе для этой строки, после чего макрос уходит в ошибку.
Нужно - сначала удалить все на втором, а потом на первом!!!

Как-то так, если правильно Вас понял.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 52 След.
Наверх