Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти  
Форумы "Планета Excel" » Пользователи » Юрий М
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1773 След.
переместить значение внутри ячейки, удалить значение внутри ячейки
 
#
24 Апр 2019 06:34:15
Artsem K, и бросайте привычку писать через строку.
 
Перейти    
Разбивка на строки по разделителю с копированием
 
#
24 Апр 2019 01:29:14
Поменял файл. Скачайте новую версию.
 
Перейти    
Разбивка на строки по разделителю с копированием
 
#
24 Апр 2019 01:09:08
Готово.
 
Перейти    
Разбивка на строки по разделителю с копированием
 
#
23 Апр 2019 23:31:51
Цитата
askex написал:
столбцов со всякими разными данными, которые нужно скопировать, может быть много, до 20 шт
Хорошо, что предупредили: пришлось переделать ))
См. вариант.
 
Перейти    
Переделать макрос пометки ячеек цветом на пометку слов цветом
 
#
23 Апр 2019 22:41:55
PDO, в нас на форуме к не знакомым людям принято обращаться на Вы.
 
Перейти    
Макрос для поиска не пустых ячеек по горизонтали
 
#
23 Апр 2019 21:44:54
Теперь понял ))
Код
Sub Macro1()
Dim i As Long, j As Long, LastRow As Long, iColumn As Long, Arr(), x As Long, Counter As Long
    iColumn = 4 'Количество заполненных ячеек в строке
    LastRow = Cells(Rows.Count, 4).End(xlUp).Row
    Arr = Range(Cells(5, 2), Cells(LastRow, 9)).Value
    ReDim arrout(1 To UBound(Arr), 1 To 1)
        For i = 1 To UBound(Arr)
            For j = 2 To UBound(Arr, 2)
                If Arr(i, j) <> "" Then Counter = Counter + 1
            Next
            If Counter = iColumn Then
                x = x + 1
                arrout(x, 1) = Arr(i, 1)
            End If
            Counter = 0
        Next
    With Sheets("Лист2")
        LastRow = .Cells(Rows.Count, 4).End(xlUp).Row
        Range(.Cells(4, 4), .Cells(LastRow + 1, 4)).ClearContents
        If x > 0 Then .Range("D4").Resize(x, 1).Value = arrout 'Добавлена проверка
    End With
End Sub
'См. строку № 20
 
Перейти    
Сводная таблица
 
#
23 Апр 2019 21:30:35
val_, предложите адекватное название темы, из которого будет понятна проблема - модераторы поменяют.
Помощь скрыта до устранения замечяния.
 
Перейти    
[ Закрыто] Функция СМЕЩ
 
#
23 Апр 2019 21:28:35
Тема закрыта и будет удалена: читаем правила, придумываем адекватное название и создаём новую тему.
 
Перейти    
[ Закрыто] нужна помощь...., пытаюсь разобраться, нужна помощь
 
#
23 Апр 2019 00:12:58
Уже 6 сообщений, а правила так и не прочитали. Придумайте название, из которого будет понятна проблема и создайте новую тему - эта закрыта и будет удалена.
И код оформляйте соответствующим тегом: ищите такую кнопку (см. скрин).
 
Перейти    
Разделение листа на отдельные книги по критерию
 
#
22 Апр 2019 16:43:41
Цитата
sokolovssv написал:
Необходимо создать файлы
Кому необходимо? Кому задачу ставите?
 
Перейти    
как из графика выходов автоматически рассортировать фамилии по датам с учетом смен, график выходов
 
#
22 Апр 2019 16:25:10
Я тоже ) Уже сделал, но заказчик пока молчит.
Готово.
 
Перейти    
как из графика выходов автоматически рассортировать фамилии по датам с учетом смен, график выходов
 
#
22 Апр 2019 15:23:14
Автор утром обратился в личку. Обсуждаем...
P.S. Структура таблицы в реальном файле отличается от примера.
 
Перейти    
Помещение функции в окошечко Userform, Помогите добавить функцию в окно Userform
 
#
22 Апр 2019 14:48:17
CATS, о чём Ваша цитата в #6?
= = =
P.S. Сайт по ссылке открывается нормально.
 
Перейти    
Макрос для поиска не пустых ячеек по горизонтали
 
#
22 Апр 2019 14:31:01
Уточните условия, при которых возникает ошибка. А ещё лучше покажите это в небольшом файле.
Очистил строку у Екатерины - ошибки нет.
 
Перейти    
Помещение функции в окошечко Userform, Помогите добавить функцию в окно Userform
 
#
22 Апр 2019 14:13:44
CATS, если Вы внимательно посмотрите на все сообщения Sanja, то увидите, что эта подпись есть в каждом из них.  
 
Перейти    
Путевые листы на автотранспортном предприятии, Учёт путевых листов
 
#
22 Апр 2019 11:31:48
dR0N, кто исполнитель?
И поменяйте в своём профиле отображаемое имя (логин) - не нужно подменять буквы цифрами и другими символами.
 
Перейти    
Как отфильтровать числа, когда в ячейках ТЕКСТ?, Корявый
 
#
21 Апр 2019 23:03:29
Цитата
Kela написал:
Фильтр, Корявый
Это не фильтр корявый - название темы корявое. Предложите новое - модераторы поменяют.
 
Перейти    
Макрос для поиска не пустых ячеек по горизонтали
 
#
21 Апр 2019 22:20:45
Можно даже без дополнительной проверки: достаточно вынести имеющуюся за пределы цикла:
Код
Sub Macro1()
Dim i As Long, j As Long, LastRow As Long, iColumn As Long, Arr(), x As Long, Counter As Long
    iColumn = 5 'Количество заполненных ячеек в строке
    LastRow = Cells(Rows.Count, 4).End(xlUp).Row
    Arr = Range(Cells(5, 2), Cells(LastRow, 9)).Value
    ReDim arrout(1 To UBound(Arr), 1 To 1)
        For i = 1 To UBound(Arr)
            For j = 2 To UBound(Arr, 2)
                If Arr(i, j) <> "" Then Counter = Counter + 1
            Next
            If Counter = iColumn Then
                x = x + 1
                arrout(x, 1) = Arr(i, 1)
            End If
            Counter = 0
        Next
    With Sheets("Лист2")
        LastRow = .Cells(Rows.Count, 4).End(xlUp).Row
        Range(.Cells(4, 4), .Cells(LastRow + 1, 4)).ClearContents
        .Range("D4").Resize(x, 1).Value = arrout
    End With
End Sub
Только Вы меняете условия: ведь изначально что писали? - 5 заполненных ячеек и больше - подходит. Так и было сделано.
 
Перейти    
Макрос, выполняемый с заданным периодом автоматически
 
#
21 Апр 2019 22:14:36
Цитата
Юрий М написал:
исправьте своё сообщение
Исправить - это значит зайти в своё сообщение и исправить (отредактировать его), а не писать код в новом.
 
Перейти    
Сортировка столбца с смешанными данными, число+текст сортировать как числа.
 
#
21 Апр 2019 22:04:33
Цитата
drev написал:
Сортировка в exce
Есть такой инструмент в Excel и многие из нас знают про него. А проблема в чём? Вот это и нужно кратко формулировать в названии. Предложите новое - модераторы поменяют.
Не помешает небольшой файл-пример.
 
Перейти    
Макрос, выполняемый с заданным периодом автоматически
 
#
21 Апр 2019 22:01:14
1. Код следует оформлять соответствующим тегом. Ищите такую кнопку (см. скрин) и исправьте своё сообщение.
2. Код копируйте при русской раскладке клавиатуры - не будет проблем с кириллицей.
 
Перейти    
Макрос, выполняемый с заданным периодом автоматически
 
#
21 Апр 2019 21:59:00
Цитата
Philosopher написал:
Я пробовал сделать много раз. Если нечего сказать по делу- не пишите.
Philosopher, а повежливее нельзя? Иначе Вам в ответ напишут: "Не можете сделать правильно - Ваша проблема".
 
Перейти    
Макрос для поиска не пустых ячеек по горизонтали
 
#
21 Апр 2019 21:35:51
Ну так добавьте проверку ))
 
Перейти    
Макрос для поиска не пустых ячеек по горизонтали
 
#
21 Апр 2019 20:54:01
Цитата
Fsociety_ написал:
убрал знак">" для поиска именно 5 ячеек. Но что то не работает.
Проделал то же самое - работает )
 
Перейти    
Несколько задач по Макросам VBA, +25 в карму каждому, кто поможет
 
#
21 Апр 2019 18:14:33
andre.anan, с таким подходом прямая дорога в платный раздел. Перенести тему?
 
Перейти    
Макрос для поиска не пустых ячеек по горизонтали
 
#
21 Апр 2019 14:53:27
Код
'https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=116466&TITLE_SEO=116466-makros-na-osnove-vpr-dlya-poiska-ne-pustykh-yacheek-po-gorizontali#postform
Sub Macro1()
Dim i As Long, j As Long, LastRow As Long, iColumn As Long, Arr(), x As Long, Counter As Long
    iColumn = 5 'Количество заполненных ячеек в строке
    LastRow = Cells(Rows.Count, 4).End(xlUp).Row
    Arr = Range(Cells(5, 2), Cells(LastRow, 9)).Value
    ReDim arrout(1 To UBound(Arr), 1 To 1)
        For i = 1 To UBound(Arr)
            For j = 2 To UBound(Arr, 2)
                If Arr(i, j) <> "" Then Counter = Counter + 1
                If Counter >= iColumn Then
                    x = x + 1
                    arrout(x, 1) = Arr(i, 1)
                    Exit For
                End If
            Next
            Counter = 0
        Next
    With Sheets("Лист2")
        LastRow = .Cells(Rows.Count, 4).End(xlUp).Row
        Range(.Cells(4, 4), .Cells(LastRow + 1, 4)).ClearContents
        .Range("D4").Resize(x, 1).Value = arrout
    End With
End Sub
 
Перейти    
Как сделать группировку или структуру на календарный год
 
#
21 Апр 2019 14:51:31
Для того, чтобы обратиться по имени, создана специальная кнопка: она так и называется - "Имя".
Если же есть необходимость процитировать, то не нужно цитировать всё сообщение. Это уже не цитата, а копия сообщения. Посмотрите на свой #14 - зачем там процитировали код? Какой в этом смысл?
 
Перейти    
Макрос для поиска не пустых ячеек по горизонтали
 
#
21 Апр 2019 14:23:53
Можно: если строк ОЧЕНЬ много, то нужно переходить на использование массивов/
 
Перейти    
Макрос для поиска не пустых ячеек по горизонтали
 
#
21 Апр 2019 13:15:31
Код
Sub Macro1()
Dim i As Long, LastRow As Long, FreeRow As Long, iColumn As Long
    Application.ScreenUpdating = False
    iColumn = 5 'Количество заполненных ячеек в строке
    FreeRow = 4
    With Sheets("Лист2")
        LastRow = .Cells(Rows.Count, 4).End(xlUp).Row
        Range(.Cells(4, 4), .Cells(LastRow + 1, 4)).ClearContents
        LastRow = Cells(Rows.Count, 4).End(xlUp).Row
        For i = 5 To LastRow
            If Application.WorksheetFunction.CountA(Range(Cells(i, 3), Cells(i, 9))) >= iColumn Then '9 - правая граница диапазона
                .Cells(FreeRow, 4) = Cells(i, 2)
                FreeRow = FreeRow + 1
            End If
        Next
    End With
    Application.ScreenUpdating = True
End Sub
 
Перейти    
Разделить каждую строку из одной ячейки в отдельный столбец
 
#
21 Апр 2019 13:11:59
Цитата
realmen80 написал:
Не могу понять что должно называться как "Таблица 1" ?
Может быть сама таблица?
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1773 След.
Наверх