Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Посетитель от 26 сентября 2023, 12:42

Название: Выделить заполненные ячейки что бы в соседней сроке ввести формулу для действия
Отправлено: Посетитель от 26 сентября 2023, 12:42
Работаю с файлами разной длинны пытаюсь оптимизировать процесс но не пойму как дать понять макросу что формулы нужно применить к в которых есть значения а пустые не трогать, если кто с таким сталкивался буду благодарен за подсказки в этом направлении
Название: Выделить заполненные ячейки что бы в соседней сроке ввести формулу для действия
Отправлено: Администратор от 26 сентября 2023, 13:35
Создайте файл-пример и поясните на его основе, что нужно сделать.
Название: Выделить заполненные ячейки что бы в соседней сроке ввести формулу для действия
Отправлено: Посетитель от 26 сентября 2023, 15:50
Добрый день прикрепил файл примера что должно быть на выходе
Название: Выделить заполненные ячейки что бы в соседней сроке ввести формулу для действия
Отправлено: Администратор от 26 сентября 2023, 17:14
Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

=ЕСЛИ(A1<>"";ПРАВСИМВ(A1;4);"")
Название: Выделить заполненные ячейки что бы в соседней сроке ввести формулу для действия
Отправлено: Посетитель от 27 сентября 2023, 09:22
Спасибо, но макрос не видит сколько строк находится и каким строкам применять правило если установить по умолчанию на максимальное количество строк то после сортировки от а до я в первую очередь вылезают пустые строчки. данное действие промежуточное в макросе и упираюсь в эту проблему(
Название: Выделить заполненные ячейки что бы в соседней сроке ввести формулу для действия
Отправлено: Администратор от 27 сентября 2023, 09:42
Вы предоставили неточный пример. Вам надо сделать другой файл-пример и на его основе пояснить, что нужно сделать.
Название: Выделить заполненные ячейки что бы в соседней сроке ввести формулу для действия
Отправлено: Посетитель от 27 сентября 2023, 11:18
Добрый день, изменил немножко файл
Название: Выделить заполненные ячейки что бы в соседней сроке ввести формулу для действия
Отправлено: Посетитель от 27 сентября 2023, 12:22
Нужен макросс который заменяет протягивание формулы до последней заполненной ячейки (когда на формулу справа внизу нажимаю два раза на чёрный крестик)
Название: Выделить заполненные ячейки что бы в соседней сроке ввести формулу для действия
Отправлено: Посетитель от 27 сентября 2023, 12:31
Вот часть кода макросса
Selection.AutoFill Destination:=Range("H2:H999")
Range("H2:H900").Select

нужно что бы протягивал до последней заполнено ячейки в столбце G иначече фурмалы в пустых ячейках мешают дальнейшей работе макроса(
Название: Выделить заполненные ячейки что бы в соседней сроке ввести формулу для действия
Отправлено: Администратор от 27 сентября 2023, 12:38
Sub Макрос()

    Dim Lr As Long
   
   
    ' Поиск последней строки в столбце G.
        ' End не ищет в скрытых строках.
    Lr = Cells(Rows.Count, "G").End(xlUp).Row
   
    ' Протягивание формулы, которая находится ячейке H2.
    Range("H2").AutoFill Destination:=Range("H2:H" & Lr)

End Sub
Название: Выделить заполненные ячейки что бы в соседней сроке ввести формулу для действия
Отправлено: Посетитель от 28 сентября 2023, 09:52
Спасибо огромное работает