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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1773 След.
переместить значение внутри ячейки, удалить значение внутри ячейки
 
Artsem K, и бросайте привычку писать через строку.
Разбивка на строки по разделителю с копированием
 
Поменял файл. Скачайте новую версию.
Разбивка на строки по разделителю с копированием
 
Готово.
Разбивка на строки по разделителю с копированием
 
Цитата
askex написал:
столбцов со всякими разными данными, которые нужно скопировать, может быть много, до 20 шт
Хорошо, что предупредили: пришлось переделать ))
См. вариант.
Переделать макрос пометки ячеек цветом на пометку слов цветом
 
PDO, в нас на форуме к не знакомым людям принято обращаться на Вы.
Макрос для поиска не пустых ячеек по горизонтали
 
Теперь понял ))
Код
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
Сводная таблица
 
val_, предложите адекватное название темы, из которого будет понятна проблема - модераторы поменяют.
Помощь скрыта до устранения замечяния.
[ Закрыто] Функция СМЕЩ
 
Тема закрыта и будет удалена: читаем правила, придумываем адекватное название и создаём новую тему.
[ Закрыто] нужна помощь...., пытаюсь разобраться, нужна помощь
 
Уже 6 сообщений, а правила так и не прочитали. Придумайте название, из которого будет понятна проблема и создайте новую тему - эта закрыта и будет удалена.
И код оформляйте соответствующим тегом: ищите такую кнопку (см. скрин).
Разделение листа на отдельные книги по критерию
 
Цитата
sokolovssv написал:
Необходимо создать файлы
Кому необходимо? Кому задачу ставите?
как из графика выходов автоматически рассортировать фамилии по датам с учетом смен, график выходов
 
Я тоже ) Уже сделал, но заказчик пока молчит.
Готово.
как из графика выходов автоматически рассортировать фамилии по датам с учетом смен, график выходов
 
Автор утром обратился в личку. Обсуждаем...
P.S. Структура таблицы в реальном файле отличается от примера.
Помещение функции в окошечко Userform, Помогите добавить функцию в окно Userform
 
CATS, о чём Ваша цитата в #6?
= = =
P.S. Сайт по ссылке открывается нормально.
Макрос для поиска не пустых ячеек по горизонтали
 
Уточните условия, при которых возникает ошибка. А ещё лучше покажите это в небольшом файле.
Очистил строку у Екатерины - ошибки нет.
Помещение функции в окошечко Userform, Помогите добавить функцию в окно Userform
 
CATS, если Вы внимательно посмотрите на все сообщения Sanja, то увидите, что эта подпись есть в каждом из них.  
Путевые листы на автотранспортном предприятии, Учёт путевых листов
 
dR0N, кто исполнитель?
И поменяйте в своём профиле отображаемое имя (логин) - не нужно подменять буквы цифрами и другими символами.
Как отфильтровать числа, когда в ячейках ТЕКСТ?, Корявый
 
Цитата
Kela написал:
Фильтр, Корявый
Это не фильтр корявый - название темы корявое. Предложите новое - модераторы поменяют.
Макрос для поиска не пустых ячеек по горизонтали
 
Можно даже без дополнительной проверки: достаточно вынести имеющуюся за пределы цикла:
Код
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 заполненных ячеек и больше - подходит. Так и было сделано.
Макрос, выполняемый с заданным периодом автоматически
 
Цитата
Юрий М написал:
исправьте своё сообщение
Исправить - это значит зайти в своё сообщение и исправить (отредактировать его), а не писать код в новом.
Сортировка столбца с смешанными данными, число+текст сортировать как числа.
 
Цитата
drev написал:
Сортировка в exce
Есть такой инструмент в Excel и многие из нас знают про него. А проблема в чём? Вот это и нужно кратко формулировать в названии. Предложите новое - модераторы поменяют.
Не помешает небольшой файл-пример.
Макрос, выполняемый с заданным периодом автоматически
 
1. Код следует оформлять соответствующим тегом. Ищите такую кнопку (см. скрин) и исправьте своё сообщение.
2. Код копируйте при русской раскладке клавиатуры - не будет проблем с кириллицей.
Макрос, выполняемый с заданным периодом автоматически
 
Цитата
Philosopher написал:
Я пробовал сделать много раз. Если нечего сказать по делу- не пишите.
Philosopher, а повежливее нельзя? Иначе Вам в ответ напишут: "Не можете сделать правильно - Ваша проблема".
Макрос для поиска не пустых ячеек по горизонтали
 
Ну так добавьте проверку ))
Макрос для поиска не пустых ячеек по горизонтали
 
Цитата
Fsociety_ написал:
убрал знак">" для поиска именно 5 ячеек. Но что то не работает.
Проделал то же самое - работает )
Несколько задач по Макросам VBA, +25 в карму каждому, кто поможет
 
andre.anan, с таким подходом прямая дорога в платный раздел. Перенести тему?
Макрос для поиска не пустых ячеек по горизонтали
 
Код
'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

Как сделать группировку или структуру на календарный год
 
Для того, чтобы обратиться по имени, создана специальная кнопка: она так и называется - "Имя".
Если же есть необходимость процитировать, то не нужно цитировать всё сообщение. Это уже не цитата, а копия сообщения. Посмотрите на свой #14 - зачем там процитировали код? Какой в этом смысл?
Макрос для поиска не пустых ячеек по горизонтали
 
Можно: если строк ОЧЕНЬ много, то нужно переходить на использование массивов/
Макрос для поиска не пустых ячеек по горизонтали
 
Код
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
Разделить каждую строку из одной ячейки в отдельный столбец
 
Цитата
realmen80 написал:
Не могу понять что должно называться как "Таблица 1" ?
Может быть сама таблица?
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1773 След.
Наверх