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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 31 След.
Power Query, ошибка при попытке обновления
 
Добрый день!

Есть файл сбор данных из нескольких отчётов с небольшой аналитикой. Файл создан несколько лет назад и ранее работал стабильно. Последнее время возникла проблема, при попытке обновить выходит сообщение об ошибке "Возникло непредвиденное исключение", при этом после многократных попыток, иногда все же удается его обновить. Excel 2016 64 bit. Также в режиме редактора обновление происходит без проблем. На другом компьютере (Excel 2016 32 bit) обновляется. Используемые отчёты - файлы Excel, которые лежат в одной папке на жестком диске. Может кто-то сталкивался с подобным?
баттон для поиска значении по книгам, Поисковик
 
Цитата
Kamyshev написал:
Допустим есть телефонные номера распределенные по годам. 1 книга = один год
Цитата
Kamyshev написал:
К сожалению книг более 100 и каждую проверять очень сложно

Зачем вам телефонные номера начала XX-го века? :)
А если серьёзно, что значит "Каждую проверять очень сложно"? Как иначе Вы собираетесь найти то, что вам нужно?
Изменено: LVL - 18.05.2016 13:05:23
Разбить строку на составляющие формулами
 
Одной строки маловато будет для выявления закономерностей.
Содержание выпадающего списка, определяющееся по формуле
 
Посмотрите здесь
Вообще для решения подобных задач лучше подойдёт база данных, в которой будет реализована вся эта многомерная структура. А уже из неё можно получать что угодно и как угодно. Если же делать это в Excel, я бы реализовывал с помощью VBA и элементов управления, а не с помощью проверки данных и формул.
Перебор листов и вставка линков в другую книгу
 
Код
Sub CreateListLinks()

Dim i As Long
Dim strTemp As String
Dim ItWb As Variant
Dim ItWhs As Variant

i = 1
For Each ItWb In Workbooks
    If ItWb.Name <> "PERSONAL.XLSB" And ItWb.Name <> ThisWorkbook.Name Then
        For Each ItWhs In ItWb.Worksheets
            i = i + 1
            strTemp = "='[" & ItWb.Name & "]" & ItWhs.Name & "'!A1"
            ActiveSheet.Cells(i, 1).Formula = strTemp
        Next
    End If
Next

End Sub
Изменено: LVL - 22.04.2016 11:44:35
Суммирование данных по условию макросом
 
Посмотрите здесь
Вывести Значения с Упаковки на 1 кг.
 
Прочитал несколько раз, так и не понял, что откуда вытаскивать и на что делить... :(
Вопрос по регулярным выражениям в строке найти заменить
 
Что на что поменять-то нужно, пример приложите
Определение принадлежности даты к месяцу, создать список позволяющий фильтровать по месяцам, кварталам...
 
почитайте это
http://www.cyberforum.ru/vba/thread81208.html
можно ещё конечно помудрить с TextBox-ом, но это без меня...
Изменено: LVL - 21.04.2016 08:49:31
Запрос к нескольким xlsb файлам
 
Цитата
gv-kapral написал:
Имеется несколько xlsb файлов
не верю... :sceptic:
Поиск по номерам артикулов в массиве
 
Я так понимаю, что решение в виде картинки Вас устроит? ;)
Продолжение работы формы при ошибке и фокусировке на листбоксе
 
А что мешает выполнить проверку выбора пользователем значения в списке? Если значение не выбрано - завершение процедуры.
Файл с примером выложите.
Определение принадлежности даты к месяцу, создать список позволяющий фильтровать по месяцам, кварталам...
 
у вас Excel какой версии?
Определение принадлежности даты к месяцу, создать список позволяющий фильтровать по месяцам, кварталам...
 
У меня все работает без проблем, попробуйте этот
Определение принадлежности даты к месяцу, создать список позволяющий фильтровать по месяцам, кварталам...
 
исправил
Определение принадлежности даты к месяцу, создать список позволяющий фильтровать по месяцам, кварталам...
 
Нет, считается так: модуль от разности (Возврат - Списание)
А как нужно я так и не понял...
Определение принадлежности даты к месяцу, создать список позволяющий фильтровать по месяцам, кварталам...
 
Выбор периода изменил, а с возвратами так и не поля что нужно делать...
Определение принадлежности даты к месяцу, создать список позволяющий фильтровать по месяцам, кварталам...
 
Цитата
Wetta написал: По условиям задачи этот же!
Тогда я не понимаю что не так? В форму встает разность: Приход - Расход, по модулю, в соответствии с КБК.
Цитата
Wetta написал: еще не достает нарастающим итогом помесячно с начала года
Можно выбирать период через дату начала и окончания.
Дата как текст
 
Используйте функцию ТЕКСТ ;)
Определение принадлежности даты к месяцу, создать список позволяющий фильтровать по месяцам, кварталам...
 
В таком случае к какому КБК он должен быть привязан?
Определение принадлежности даты к месяцу, создать список позволяющий фильтровать по месяцам, кварталам...
 
И в чем проблема?
Цитата
Wetta написал: КБК расходной статьи, но на самом деле это расход
Где противоречие?
Ввод формулы макросом с изменяемым количеством строк
 
Код
'Далее как?
    Cells(end_row + 1, 4).FormulaR1C1 = "=COUNTA(R[-" & (end_row - 2) & "]C:R[-1]C)"
VBA Как оптимизировать код для большого числа строк?, работа с большими данными
 
70 тыс. строк меньше секунды

з.ы. Данные в файл нужно внести
Определение принадлежности даты к месяцу, создать список позволяющий фильтровать по месяцам, кварталам...
 
Упустил тот момент, что приход и расход находятся в разных полях
Изменено: LVL - 14.04.2016 07:19:29
Определение принадлежности даты к месяцу, создать список позволяющий фильтровать по месяцам, кварталам...
 
1. Тип операции не имеет ни какого значения, данные подставляются на основании КБК
2. Ни чего ни в каком месте исправлять не нужно, данные с листа будут взяты в полном объеме, в не зависимости от их количества, единственным ограничением может быть объем доступной оперативной памяти, но это актуально на объемах данных гораздо больше чем 5 тыс. строк
Многопользовательская работа
 
Использовать Access :)
Изъять из ячейки последнее число
 
Привязываться к порядковому номеру числа сомнительная затея, на сколько я понимаю нужно вытаскивать значения неких физических величин. Я бы делал это с помощью регулярных выражений, но это выходит за рамки "формульного" решения.
Сохранение новой книги.
 
Код
Sub q1()
strPath$ = Selection.Parent.Parent.Path
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
On Error Resume Next: Err.Clear
If Val(Application.Version) < 12 Then Exit Sub
ActiveWorkbook.SaveAs strPath$ & "\" & [A2], xlText
End Sub
Изменено: LVL - 12.04.2016 11:22:39
Сохранение новой книги.
 
А что мешает перехватить Path перед созданием новой книги? И вопрос о месте хранения кода остается открытым, если он хранится в третьей книге, как вам поможет ThisWorkbook?
Сохранение новой книги.
 
Цитата
Sanja написал:
1| ThisWorkbook.Path
лучше
Код
ActiveWorkbook.Path
потому как не понятно в какой книге хранится выполняемый код
Изменено: LVL - 12.04.2016 10:53:15
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 31 След.
Наверх