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

Страницы: 1 2 След.
Макрос удаления лишних пробелов в Excel
 
#
16.07.2019 08:01:56
kuklp, casag, супер! спасибо!
 
Перейти    
Макрос удаления лишних пробелов в Excel
 
#
15.07.2019 12:58:12
Цитата
Казанский написал:
With Range("I1", Cells(Rows.Count, "I").End(xlUp))
  .Value = Evaluate("INDEX(TRIM(" & .Address & "),)")
End With
Добрый день. Как в данном макросе задать только видимый диапазон ячеек столбца I ? Дело в том, что на столбце A стоит автофильтр и часть строк скрыто, поэтому надо, чтобы обрабатывались только видимые ячейки
 
Перейти    
Вывод макросом в одну ячейку всех уникальных значений видимого диапазона
 
#
01.07.2019 21:39:37
Sanja, RAN, спасибо большое Вам за помощь, оба варианта работают отлично!
 
Перейти    
Вывод макросом в одну ячейку всех уникальных значений видимого диапазона
 
#
01.07.2019 18:52:55
Нужно, чтобы в ячейке B3 было: УК-1, УК-2
 
Перейти    
Вывод макросом в одну ячейку всех уникальных значений видимого диапазона
 
#
01.07.2019 18:20:31
В результате у меня получается пустая ячейка. В обоих случаях
 
Перейти    
Вывод макросом в одну ячейку всех уникальных значений видимого диапазона
 
#
01.07.2019 15:52:50
Sanja, к сожалению не работает(
Изменено: DARR - 01.07.2019 15:54:19
 
Перейти    
Вывод макросом в одну ячейку всех уникальных значений видимого диапазона
 
#
01.07.2019 11:28:43
Цитировать тоже с умом нужно [МОДЕРАТОР]

Excelman, добрый день! Всё таки помогите ответить на этот вопрос, тоже очень он интересует...
Код
Sub dc()Dim dic, myRange As Range, myCell As Range, msg As String
Set dic = CreateObject("Scripting.Dictionary")
Set myRange = Range("B2:B29").SpecialCells(xlCellTypeVisible)
For Each myCell In myRange
    If Not dic.Exists(myCell.Value) Then
        If Len(msg) = 0 Then msg = "№" & myCell.Value Else msg = msg & ",№" & myCell.Value
        v = dic.Item(myCell.Value)
    End If
Next myCell
[a1] = "Найдены следующие договоры: " & msg
End Sub
Что нужно сюда добавить, чтобы в конечном результате не учитывались 0 или пустые значения?
Изменено: DARR - 01.07.2019 12:17:51
 
Перейти    
Макрос последовательной печати всех критериев автофильтра
 
#
10.12.2018 13:11:39
БМВ, прошу прощение за некорректную формулировку((( Изменил первый пост
Изменено: DARR - 10.12.2018 13:53:04
 
Перейти    
Макрос последовательной печати всех критериев автофильтра
 
#
10.12.2018 12:54:38
БМВ, нужно включить фильтр с первым критерием (это "Иванов"), напечатать, потом второй критерий ("Петров") - напечатать, третий критерий ("Сидоров") - напечатать. И так последовательно все критерии которые будут в столбце R
 
Перейти    
Макрос последовательной печати всех критериев автофильтра
 
#
10.12.2018 12:13:09
Добрый день. Помогите пожалуйста с макросом. Нужно последовательно напечатать результат применения критериев автофильтра столбца R. Пример таблицы приложил, в реальности она конечно же больше
Изменено: DARR - 10.12.2018 13:52:43
 
Перейти    
Макрос отображения нескольких критериев автофильтра в отдельную ячейку
 
#
03.12.2018 15:45:26
sokol92, спасибо огромное, всё получилось!
 
Перейти    
Макрос отображения нескольких критериев автофильтра в отдельную ячейку
 
#
03.12.2018 14:48:28
alexleoix, полагаю мне нужна помощь с этим)
 
Перейти    
Макрос отображения нескольких критериев автофильтра в отдельную ячейку
 
#
03.12.2018 14:37:40
Z, у меня большая таблица будет.. и критериев фильтра будет 2 или 3. Потом печатать. Нужно, чтобы критерии были отображены в отдельной ячейке как в примере..
 
Перейти    
Макрос отображения нескольких критериев автофильтра в отдельную ячейку
 
#
03.12.2018 14:21:05
Ну вот я протянул, поставил фильтр на Иванов и Петров, а в ячейке J3 отображается Иванов. А мне нужно, чтобы было Иванов Петров. Через запятую или пробел не важно
 
Перейти    
Макрос отображения нескольких критериев автофильтра в отдельную ячейку
 
#
03.12.2018 14:04:06
Добрый день. С помощью созданной функции значение автофильтра отображается в ячейке J3. Но нужно сделать так, чтобы отображались несколько критериев автофильтра в этой ячейке, а не только один как в моём примере. Помогите с макросом пожалуйста.
 
Перейти    
Сцепить уникальные значения из нескольких ячеек
 
#
07.07.2018 14:04:11
Спасибо за помощь, работает как надо
 
Перейти    
Сцепить уникальные значения из нескольких ячеек
 
#
07.07.2018 13:16:12
Как эта функция работает? Что подставить в RngU, а что в Dlm?
 
Перейти    
Сцепить уникальные значения из нескольких ячеек
 
#
07.07.2018 10:17:35
Доброго дня! Получается так, что в моём документе сцеплять приходится очень много строк, а формулы значительно утяжеляют файл. Можно ли решить эту проблему макросом, а не формулой?
 
Перейти    
Скопировать все значения автофильтра
 
#
29.06.2018 13:49:33
Nordheim
Ух, спасибо огромнейшее!
 
Перейти    
Скопировать все значения автофильтра
 
#
29.06.2018 13:17:35
Доброго дня всем! Помогите пожалуйста с макросом. Мне нужно скопировать все значения автофильтра на другой лист. Желаемый результат указал в примере. Спасибо
 
Перейти    
Сортировка дубликатов с сохранением исходного порядка
 
#
24.01.2018 12:20:24
Спасибо большущее!
 
Перейти    
Сортировка дубликатов с сохранением исходного порядка
 
#
24.01.2018 11:52:31
Добрый день. Помогите решить задачу. Мне нужно отсортировать значения строк как в примере, с сохранением исходного порядка. Если воспользоваться функцией сортировка, то значения будут располагаться по алфавиту, а мне надо, чтобы сохранился исходный порядок
 
Перейти    
Макрос печати нескольких отмеченных бланков
 
#
10.07.2017 18:45:44
Цитата
теперь его надо заполнить... значениями из строки от "n"... - в цикле Do...Loop...
задание нового значения ячейке через .Value...
Так как это сделать? Помогите кто нибууууудь (
 
Перейти    
Макрос печати нескольких отмеченных бланков
 
#
10.07.2017 12:45:58
Цитата
вы даже не хотите узнать
Неправда. Я уже пересмотрел кучу примеров прежде чем написать здесь. Только циклы для меня тёмный лес((
 
Перейти    
Макрос печати нескольких отмеченных бланков
 
#
10.07.2017 12:30:23
Цитата
теперь его надо заполнить... значениями из строки от "n"... - в цикле Do...Loop...
задание нового значения ячейке через .Value...
Я не знаю как это сделать. Можно написать что должно быть?
 
Перейти    
Макрос печати нескольких отмеченных бланков
 
#
10.07.2017 06:31:58
Вот в этом примере http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=29117  почти то что мне нужно, только мне надо напечатать только то что отмечено. Помогите отредактировать макрос. Там наверное одну или две строки кода надо изменить, только я не разбираюсь в циклах((
 
Перейти    
Макрос печати нескольких отмеченных бланков
 
#
09.07.2017 12:39:20
Добрый день!
Создал бланк и теперь необходимо напечатать отмеченные значком "п" (в первом столбце) бланки. Это листы "путевка1 и "путёвка2" (будет двусторонняя печать). И после печати хорошо бы, чтоб отметки "п" удалялись. Помогите сделать макрос... за ранее спасибо!
Изменено: DARR - 09.07.2017 14:32:08
 
Перейти    
Сцепить уникальные значения из нескольких ячеек
 
#
10.11.2016 11:49:32
Bema
Главное, что результат получается. Ну а доп. столбец при желании можно и скрыть. Ещё раз спасибо!
 
Перейти    
Сцепить уникальные значения из нескольких ячеек
 
#
10.11.2016 10:24:07
Bema
А если ячеек будет три?
Изменено: DARR - 10.11.2016 10:25:43
 
Перейти    
Сцепить уникальные значения из нескольких ячеек
 
#
10.11.2016 09:49:44
Ох спасибо)
 
Перейти    
Страницы: 1 2 След.
Наверх