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

Страницы: 1 2 3 4 След.
Поиск столбцов с датами и правка формата, Исправление формата столбцов с датами
 
RAN,  Благодарю! То, что нужно)
Поиск столбцов с датами и правка формата, Исправление формата столбцов с датами
 
Добрый день!
Есть фрагмент выгрузки данных, где ячейки столбцов с датами отображаются в ОБЩЕМ формате. Покажите, пожалуйста, как макросом найти все такие стобцы (могут находиться совершенно в различных столбцах) и исправить формат таких ячеек в КРАТКИЙ формат даты.
Пример прилагаю.
Удаление дублей строк и сцепка содержимого ячеек
 
Цитата
casag написал:
не отработал несмежные.
casag, сорри! Всё отлично) Тема закрыта)
Удаление дублей строк и сцепка содержимого ячеек
 
casag, огромное спасибо! Вы мне всё разъяснили!
Однако, несмежные одинаковые строки не обрабатывает.
Изменено: aesp - 23 Авг 2019 13:46:11
Удаление дублей строк и сцепка содержимого ячеек
 
Цель достигнута!)
Нашёл решение здесь:
в "Копилке идей"
Как посчитать с помощью сводной таблицы количество контрагентов, а не количество записей (с данным контрагентом)
 
hudoi, предлагаю Вам скопировать столбец "Контрагенты" на отдельный лист и удалить стандартным способом дубликаты. Получится список уникальных записей. В Вашем примере = 39.
Удаление дублей строк и сцепка содержимого ячеек
 
Уважаемый, casag, всё отлично работает. Благодарю!

Поясните только, пожалуйста, почему цикл "То 7", а также не понятен смысл условия:
Цитата
If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2) And Cells(i, 4) = Cells(i - 1, 4)
И ещё: извините, забыл в описании задачи указать, что повторяющиеся строки могут быть и несмежными (Пример2).
Изменено: aesp - 23 Авг 2019 13:39:46
Удаление дублей строк и сцепка содержимого ячеек
 
Доброе время суток!

Задачка по преобразованию таблички в несколько тысяч строк.
В файле Пример показано, как может выглядеть исходная таблица (Лист1) и к какому виду нужно преобразовать (Лист2).
В исходной много строк с одинаковым содержимым, за исключением ячейки в крайнем правом столбце (№документа). Причём, количество повторов у разных строк различное. Нужно дубликаты строк удалить, одновременно заполнив правую ячейку новым содержимым - сцепив через "; " номера документов, указанных в задублированных строках.
Фильтрация строк таблицы по искомой дате в ячейках, Фильтрация строк таблицы по искомой дате в ячейках с учётом диапазона между датами
 
Dima S, Mershik, благодарю, работает)
Фильтрация строк таблицы по искомой дате в ячейках, Фильтрация строк таблицы по искомой дате в ячейках с учётом диапазона между датами
 
Mershik, извините - не вижу макрос в Вашей версии файла. Как называется?
Фильтрация строк таблицы по искомой дате в ячейках, Фильтрация строк таблицы по искомой дате в ячейках с учётом диапазона между датами
 
Dima S, Спасибо, хорошая формула.. Однако, нужно, чтобы строки фильтровались автоматически при вводе искомой даты.
Фильтрация строк таблицы по искомой дате в ячейках, Фильтрация строк таблицы по искомой дате в ячейках с учётом диапазона между датами
 
Цитата
Dima S написал:
имеется ввиду, что дата фильтра попадает в интервал между датой начала и конца.
Совершенно верно поняли)
Фильтрация строк таблицы по искомой дате в ячейках, Фильтрация строк таблицы по искомой дате в ячейках с учётом диапазона между датами
 
Приветствую!
Задача: в искомой таблице с данными есть два столбца с датами и временем начала операции.
Нужно, чтобы, при вводе конкретной даты в контрольную ячейку, таблица фильтровалась построчно и оставались видны строки не только с указанной датой, но и диапазонами дат, между которых искомая находится. Исходный лист и то, как будет выглядеть итог - показал на примере.
Как решить?
Всех благодарю заранее!
Фильтрация строк таблицы по ключевым адресам ячеек, Фильтрация по массиву адресов ячеек
 
Цитата
Sanja написал:
А еще в перечне есть адрес 'G1', как с ним быть? Что выделять?
- оставлять только строки с адресами ячеек, размещённых а табличке на Лист2. "На лету" - подразумеваю, что, если изменю перечень на Лист2 - сразу увижу изменения на Лист1.
Фильтрация строк таблицы по ключевым адресам ячеек, Фильтрация по массиву адресов ячеек
 
Доброго дня!
Столкнулся с необходимостью быстрой построчной фильтрации "на лету" основной таблицы, расположенной на Листе1, по столбцу с указанными адресами ключевых ячеек на Листе2. Т.е. в перечне адресов есть, например, "G14", то в итоговой табличке останется строка №14 с выделенной ячейкой G14. Обе таблицы в формате "умных". В итоге по примеру должны отображаться 6 строк из 17 плюс шапка таблицы.
Решения подобной задачи на форуме не нашёл. Прошу помощи)
Копирование шапки при разбиении таблицы на листы, Доработка рабочего кода
 
Маугли, спасибо за помощь!
Всё работает! Пошёл код изучать :D
Копирование шапки при разбиении таблицы на листы, Доработка рабочего кода
 
Уважаемые, форумчане!
Подсмотрел на форуме код уважаемого, tester. Макрос разбивает таблицу по содержимому столбца по файлам.
Помогите, пожалуйста, доработать его в части: копирования шапки исходной таблицы  в каждый новый файл.
В примере разбор идёт по содержимому 1го столбца.


Код
Sub Разделить_по_книгам()
    Dim oDic As Object, arrData(), arrSeparateItems(), arrTemp(), i&, n&, m&, k&
 
    If MsgBox("Разделить данные по книгам?", vbQuestion + vbYesNo, "Вопрос") = vbNo Then Exit Sub
    Application.ScreenUpdating = False
    arrData() = Range("A1").CurrentRegion.Value
    Set oDic = CreateObject("Scripting.Dictionary")
    For i = LBound(arrData) To UBound(arrData)
        If Not oDic.exists(arrData(i, 1)) Then oDic.Add arrData(i, 1), arrData(i, 1)
    Next i
    arrSeparateItems() = oDic.items
    For n = LBound(arrSeparateItems) To UBound(arrSeparateItems)
        ReDim arrTemp(1 To UBound(arrData), 1 To UBound(arrData, 2))
        k = 0
        For i = LBound(arrData) To UBound(arrData)
            If arrData(i, 5) = arrSeparateItems(n) Then
                k = k + 1
                For m = LBound(arrData, 2) To UBound(arrData, 2)
                    arrTemp(k, m) = arrData(i, m)
                Next m
            End If
        Next i
        Workbooks.Add
        Range("A1").Resize(UBound(arrTemp), UBound(arrTemp, 2)).Value = arrTemp
        Columns("A:E").AutoFit
        Columns("B:B").HorizontalAlignment = xlLeft
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Right(arrSeparateItems(n), 10), xlExcel8
        ActiveWorkbook.Close SaveChanges:=True
    Next n
    Application.ScreenUpdating = True
    MsgBox "Данные разделены и сохранены в " & ThisWorkbook.Path & "\", vbInformation, "Конец"
End Sub
Изменено: aesp - 10 Май 2019 19:43:20
Разбить файл по содержимому ячейки (VBA)
 
Уважаемый, tester!
Очень помог Ваш код, указанный здесь: #3
Помогите доработать макрос:
1) чтобы копировалась первая строка таблицы - шапка - на каждый лист;
2) чтобы сохранялось форматирование данных из исходной таблицы.

Заранее благодарю! :)
Сохранение файла XML, открытого в Блокноте с именем из ячейки., Xml с именем из Xlsb
 
Помогите, пожалуйста, доработать код в части сохранения открываемого файла xml с наименованием из ячейки xlsbl файла. Пример прилагаю. Строчкой "ActiveWorkbook.SaveAs" не получается)
Копирование и вставка диапазона из файла Excel в файл Блокнота, Excel - Блокнот
 
Anchoret, извините, учту)
Копирование и вставка диапазона из файла Excel в файл Блокнота, Excel - Блокнот
 
Hugo, решено! Благодарю!
Копирование и вставка диапазона из файла Excel в файл Блокнота, Excel - Блокнот
 
Anchoret, радость оказалась не долгой.. Вставляю текст в отдельный модуль в своём проекте - не работает. Даёт ошибку << Run-time Error '6' Overflow >> и останавливается на строке
Код
For a = 1 To UBound(arr, 1)

Вставляемый диапазон с данными (столбец) более 40000 строк. Уменьшаю количество строк с данными - отрабатывает.
К сожалению, не могу выложить файл - весит более 1,5 МБ. Как обойти ошибку?
Изменено: aesp - 25 Мар 2018 13:43:32
Копирование и вставка диапазона из файла Excel в файл Блокнота, Excel - Блокнот
 
Anchoret, это то, что надо!
БЛАГОДАРЮ! :D
Копирование и вставка диапазона из файла Excel в файл Блокнота, Excel - Блокнот
 
Здравствуйте!
Подскажите, как вставить скопированный диапазон на Листе Exel и вставить его из буфера в шаблон текстового файла в "Блокнот" и сохранение с заполненного файла  с новым именем "Новый.txt"

Код
Sub Bloknot1()
'
Dim ReturnValue

    Sheets("Лист1").Select
    Range("E7:E20").Select
    Selection.Copy
'
ReturnValue = Shell("C:\Windows\system32\notepad.exe C:\Users\Papa\Desktop\Пустой.txt")

End Sub
Изменено: aesp - 24 Мар 2018 18:27:34
Поиск фрагмента текста с пробелами, Анализ текста в ячейке на наличие не верных разделителей фрагментов
 
Bema, огромное спасибо! РАБОТАЕТ!
Поиск фрагмента текста с пробелами, Анализ текста в ячейке на наличие не верных разделителей фрагментов
 
Цитата
Z написал:
весь этот сыр-бор?!.
Данные в Excel попадают из базы. Нужно найти позиции с не правильными разделителями, раздать районным подразделениям для ручного исправления в базе. Загрузка в базу из Excel исправленных данных не возможна. Кто может помочь с формулой - большое спасибо!
Поиск фрагмента текста с пробелами, Анализ текста в ячейке на наличие не верных разделителей фрагментов
 
Цитата
Sanja написал:
сразу ИСПРАВЛЯТЬ на месте
НЕТ, надо только выявить (указать) такие ячейки.
Поиск фрагмента текста с пробелами, Анализ текста в ячейке на наличие не верных разделителей фрагментов
 
Здравствуйте!

Ячейки столбца содержат текст, разделённый установленным сочетанием символов "ОДИНПРОБЕЛ>ОДИНПРОБЕЛ" (только такой разделитель!). Текст выгружен из базы данных.
Нужно с помощью формулы найти ячейки в которых один или более раз встречаются другие разделители, например, без пробелов ">"; или "НЕТПРОБЕЛА>ОДИНПРОБЕЛ";"ОДИНПРОБЕЛ>НЕТПРОБЕЛА";"ДВАПРОБЕЛА>ДВАПРОБЕЛА".
Поиск одинаковых строк в таблице по нескольким условиям, альтернатива СУММЕСЛИМН, ускорить вычисления
 
БМВ, спасибо Вам большое. Пошёл вникать в способы анализа с Power Query :D  
Поиск одинаковых строк в таблице по нескольким условиям, альтернатива СУММЕСЛИМН, ускорить вычисления
 
Юрий М, нет, нужно именно отделить "зерна" от "плевел", оставив на одном листе уникальные и поместив задвоения на другой лист. Нужно не потерять в сумме ни одной строки. Я с помощью СЧЕТЕСЛИМН помечаю строки цифрами 2 и 1. Т.е. те, что задвоились и уникальные. Этого тоже достаточно. Вопрос во времени, необходимой для подсчета!
Страницы: 1 2 3 4 След.
Наверх