Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » shlang
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
Регулярные выражения - извлечь из полного адреса стандартного формата только улицу
 
#
12.07.2019 14:39:59
Спасибо! Могли бы расшифровать? Хочу эту премудрость освоить.
 
Перейти    
Регулярные выражения - извлечь из полного адреса стандартного формата только улицу
 
#
12.07.2019 13:56:24
Спасибо.
А первое число с конца? Буду очень благодарен!
 
Перейти    
Регулярные выражения - извлечь из полного адреса стандартного формата только улицу
 
#
12.07.2019 12:21:09
А как сделать, чтобы извлекалось слово перед "проспект"?
 
Перейти    
Excel 2016 тормозит при работе с файлами, выгруженными из 1С, Решение проблемы с загрузкой процессора файлами из 1с, открытыми в Excel 2016
 
#
29.03.2018 10:44:35
Цитата
Это решение давно известно, сохраняйте в xlsx и не будут тормозить.
Нет, xlsx не спасает, это неправда. Попробуйте сами. Если бы решение было таким простым, никто бы не писал на форум тех. поддержки Майкрософт.  
 
Перейти    
Excel 2016 тормозит при работе с файлами, выгруженными из 1С, Решение проблемы с загрузкой процессора файлами из 1с, открытыми в Excel 2016
 
#
29.03.2018 10:29:24
Уважаемые форумчане! Долго искал решение проблемы: почему файл, выкачанный из 1с, в Excel 2010 работает абсолютно нормально, а при открытии в Excel 2016 сильно загружает процессор и вызывает зависание всех открытых файлов Excel. Сегодня на одном из форумов нашел решение, хотел поделиться, если кто-то не сделал это раньше меня:
Решение проблемы между файлами 1с и Excel 2016
 
Перейти    
Как разобрать файл excel (выгрузка из 1с) со сложной структурой в плоскую таблицу ?
 
#
12.10.2016 10:08:17
Ребята, а выгружать в плоском виде из 1с?
Преобразование Универсального отчета в сводную таблицу Excel
смотрите во втором комментарии или в картинке ниже.

Спасибо этому человеку!
 
Перейти    
[ Закрыто] Из общего файла со сводной таблицей сделать несколько файлов со сводной, используя фильтр исходных данных, разослать различным пользователям только их данные
 
#
17.03.2016 19:19:58
Спасибо! А как к этому коду прикрутить функцию удаления кавычек при сохранении файла? Например такого кода http://www.planetaexcel.ru/forum/?FID=8&PAGE_NAME=read&TID=23133 Подскажите пожалуйста!
 
Перейти    
[ Закрыто] Из общего файла со сводной таблицей сделать несколько файлов со сводной, используя фильтр исходных данных, разослать различным пользователям только их данные
 
#
02.03.2016 17:18:09
Работает! Спасибо! Единственный замин выходит в чем: пользуюсь файлами .xlsb и при сохранении каждого нового документа выдает сообщение


Отключаю этот параметр в общем файле, но не очень помогает. Во вновь созданных документах он снова оказывается включенным.
 
Перейти    
[ Закрыто] Из общего файла со сводной таблицей сделать несколько файлов со сводной, используя фильтр исходных данных, разослать различным пользователям только их данные
 
#
02.03.2016 14:18:30
а подскажите, как прописать исключение для Criteria1:=, если допустим Criteria1:=Sheets("справочник").Cells(2 + i, 1)?
можно как-то  для названия ячеек вписать <>?
 
Перейти    
[ Закрыто] Из общего файла со сводной таблицей сделать несколько файлов со сводной, используя фильтр исходных данных, разослать различным пользователям только их данные
 
#
02.03.2016 14:05:18
Проделал все, что вы советуете. При выборе другого столбца и замене параметра, перестает отбирать что-либо кроме Иванова. Причем названия файлам дает разные - Иванов, Петров и Сидоров.
 
Перейти    
[ Закрыто] Из общего файла со сводной таблицей сделать несколько файлов со сводной, используя фильтр исходных данных, разослать различным пользователям только их данные
 
#
02.03.2016 11:47:39
И еще хотел вопрос задать: если у меня данные для фильтра будут в другой колонке (не в B), какие мне значения менять?Почему спрашиваю? Так есть в работе есть 4-5 файлов с разными таблицами, где стоит задача разделить по пользователям.
Изменено: shlang - 02.03.2016 12:08:36 (дополнил вопрос)
 
Перейти    
[ Закрыто] Из общего файла со сводной таблицей сделать несколько файлов со сводной, используя фильтр исходных данных, разослать различным пользователям только их данные
 
#
02.03.2016 10:19:54
Все хорошо, спасибо большое, единственное, когда переношу этот макрос в личную книгу макросов, то начинается ругаться на строку:
Код
wsme.Range("A1:F" & iRow).RemoveDuplicates Columns:=1, Header:=xlNo

скриншот прилагаю.
 
Перейти    
[ Закрыто] Из общего файла со сводной таблицей сделать несколько файлов со сводной, используя фильтр исходных данных, разослать различным пользователям только их данные
 
#
01.03.2016 17:57:59
Сейчас я делаю все это вручную. Открываю фильтр, удаляю лишнее, затем следующий пользователь.
 
Перейти    
[ Закрыто] Из общего файла со сводной таблицей сделать несколько файлов со сводной, используя фильтр исходных данных, разослать различным пользователям только их данные
 
#
01.03.2016 17:54:30
кнопка цитирования не для ответа [МОДЕРАТОР]

Я так и делаю! С той только разницей, что сначала я делаю копию итогового файла, а потом удаляю лишние данные. Вот и обращаюсь за помощью - как бы автоматизировать это процесс?
 
Перейти    
[ Закрыто] Из общего файла со сводной таблицей сделать несколько файлов со сводной, используя фильтр исходных данных, разослать различным пользователям только их данные
 
#
01.03.2016 14:11:10
Здравствуйте!  Подскажите, пожалуйста, решение такой проблемы. Есть файл: исходные данные для нескольких пользователей ( в моем примере 3 человека) и по ним построена сводная таблица. Как можно автоматически разделить этот общий файл на три отдельных файла, чтобы в каждом вновь созданном файле осталась такая же сводная таблица, но из исходных данных остались только те, которые нужно отправить пользователю? Я догадываюсь, что на Планете такую проблему уже решали до меня, но обыскался, не могу найти. Буду очень благодарен!
 
Перейти    
Макрос проверки условий и запрета на редактирование
 
#
04.11.2015 17:29:18
Спасибо огромное!
 
Перейти    
Макрос проверки условий и запрета на редактирование
 
#
04.11.2015 16:02:06
Ребята, а если нужно произвести проверку такую: сумма в итоговой ячейке должна быть не МЕНЬШЕ какого-то значения? как добиться, чтобы Excel дал мне ввести данные во весь диапазон и только после этого проверил условие?
файл прикладываю.
Нужно добиться, чтобы пользователь не мог ввести в три ячейки (А3:С3) значения, которые в сумме (ячейка D3) дадут меньше 5. спасибо огромное за помощь!
Изменено: shlang - 04.11.2015 16:07:28 (конкретизировал задание)
 
Перейти    
Как в макросе прописать диапазон от заданной ячейки до конца таблицы
 
#
26.08.2015 17:20:04
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.Calculation = xlAutomatic
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, 14).End(xlUp).Row 'Последняя строка по столбцу 14 (N)
    If Sheets("данные").Range(Cells(3, 1), Cells(LastRow, 14)) SpecialCells(xlCellTypeBlanks).Cells(1, 1).Column <> 2 Then
        Sheets("данные").Activate: MsgBox "Полностью Заполните поля строки !!!!!"
        Cancel = True
    End If
End Sub
Изменено: shlang - 26.08.2015 17:22:19 (выпала часть кода при копировании)
 
Перейти    
Как в макросе прописать диапазон от заданной ячейки до конца таблицы
 
#
26.08.2015 15:57:23
вот, исправил
 
Перейти    
Как в макросе прописать диапазон от заданной ячейки до конца таблицы
 
#
26.08.2015 15:36:29
с 3-ей строки, числа - в третьей строке - это уже данные, я для ускорения ввел, чтобы текст не вбивать. в третьей строке, начиная с ячейки А3 будут данные - фамилии, города и т.д.
 
Перейти    
Как в макросе прописать диапазон от заданной ячейки до конца таблицы
 
#
26.08.2015 15:13:00
Да, извиняюсь. Удалял одну строку, в примечании не исправил.
 
Перейти    
Как в макросе прописать диапазон от заданной ячейки до конца таблицы
 
#
26.08.2015 15:09:20
Можно я еще помощи попрошу?
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.Calculation = xlAutomatic
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, 14).End(xlUp).Row 'Последняя строка по столбцу 14 (О)
    If Sheets("данные").Range(Cells(3, 1), Cells(LastRow, 14)).SpecialCells(xlCellTypeBlanks).Cells(1, 1).Column <> 2 Then
        Sheets("данные").Activate: MsgBox "Полностью Заполните поля строки !!!!!"
        Cancel = True
    End If
End Sub

это код проверяет заполненность всех ячеек таблицы и не дает закрыть документ, если хоть одна пустая ячейка есть. а как сделать, чтобы он не выдавал ошибку, если все ячейки заполнены?
выделяет вот эту строку:
If Sheets("данные").Range(Cells(3, 1), Cells(LastRow, 14)).SpecialCells(xlCellTypeBlanks).Cells(1, 1).Column <> 2 Then
уже возился-возился, и так и этак...

буду очень благодарен!
 
Перейти    
Как в макросе прописать диапазон от заданной ячейки до конца таблицы
 
#
26.08.2015 13:01:02
Спасибо огромное!
 
Перейти    
Как в макросе прописать диапазон от заданной ячейки до конца таблицы
 
#
26.08.2015 12:38:38
Здравствуйте! Прошу вас помочь в таком вопросе. Прописываю Set x = [A3:O6], но вместо О6 может быть и О7 и О8 в зависимости от количества строк в таблице, число которых постоянно изменяется. Что можно написать в макросе, чтобы он определял диапазон от ячейки А3 до последней ячейки столбца О? заранее благодарен!
 
Перейти    
Вставка значения из буфера обмена в фильтр
 
#
14.08.2015 15:16:22
спасибо огромное!
 
Перейти    
Вставка значения из буфера обмена в фильтр
 
#
14.08.2015 12:58:39
Вот файл. Есть перечень районов и населенных пунктов в двух столбцах, нужно возле каждого района написать населенные пункты слева направо в одной строке.
 
Перейти    
Вставка значения из буфера обмена в фильтр
 
#
14.08.2015 11:33:44
Код
Selection.Copy
    Windows("личная книга макросов.xlsb").Activate
    ActiveSheet.ListObjects("Таблица3").Range.AutoFilter Field:=1, Criteria1:= _
        Selection.Copy
    Range("Таблица3[[#Headers],[Столбец1]]").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("проект бланка.xlsm").Activate
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

А могли бы помочь внести необходимые правки?
 
Перейти    
Вставка значения из буфера обмена в фильтр
 
#
14.08.2015 11:12:07
Здравствуйте! Подскажите, пожалуйста, как вставить значение из буфера обмена в фильтр при помощи макроса?

ActiveSheet.ListObjects("Таблица3").Range.AutoFilter Field:=1, Criteria1:= _
     "значение из буфера обмена"

Selection.Copy - не работает, если поставить вместо кавычек:
ActiveSheet.ListObjects("Таблица3").Range.AutoFilter Field:=1, Criteria1:= _
       Selection.Copy
Может быть есть другая команда? Благодарю!
 
Перейти    
Функция "Если" с текстовым параметром в вычисляемых полях
 
#
20.04.2015 09:20:01
К сожалению не работает.
 
Перейти    
Функция "Если" с текстовым параметром в вычисляемых полях
 
#
17.04.2015 12:37:30
Добрый день! Подскажите, пожалуйста, особенности использования формулы "Если" в вычисляемых полях.
Можно ли в зависимости от названия города вывести коэффициент (файл прикладываю)? Спасибо!
 
Перейти    
Страницы: 1 2 След.
Наверх