Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Заполнить ячейки и удалить строки по условию во всех листах - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнить ячейки и удалить строки по условию во всех листах (Макросы/Sub)
Заполнить ячейки и удалить строки по условию во всех листах
AnRusik Дата: Пятница, 27.10.2023, 12:34 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 1 ±
Замечаний: 20% ±

2010
Товарищи. Помогите пожалуйста: есть книга в которой куча с почти одинаковой структурой листов (отличие лишь в кол-ве строк). Во вложении пример. Нужно по всем листам макросом пройти и заменить значения начиная с A11 вниз значением из ячейки B5 при условии заполненности ячеек начиная с ячейки L11. А так же нужно удалить, при условии незаполненности ячеек начиная с L11, "лишние" строчки. В примере есть лист "Итоговый_Результат_Лист1" на примере Лист1.
Спасибо огромное, очень выручите!
К сообщению приложен файл: kniga.xlsm (15.9 Kb)
 
Ответить
СообщениеТоварищи. Помогите пожалуйста: есть книга в которой куча с почти одинаковой структурой листов (отличие лишь в кол-ве строк). Во вложении пример. Нужно по всем листам макросом пройти и заменить значения начиная с A11 вниз значением из ячейки B5 при условии заполненности ячеек начиная с ячейки L11. А так же нужно удалить, при условии незаполненности ячеек начиная с L11, "лишние" строчки. В примере есть лист "Итоговый_Результат_Лист1" на примере Лист1.
Спасибо огромное, очень выручите!

Автор - AnRusik
Дата добавления - 27.10.2023 в 12:34
Serge_007 Дата: Пятница, 27.10.2023, 13:18 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
[vba]
Код
Sub AnRusik()
Dim LR&, WS As Worksheet
    For Each WS In Worksheets
     LR = Cells(Rows.Count, 11).End(xlUp).Row
        For i = LR To 11 Step -1
            If IsEmpty(Cells(i, 12)) Then Rows(i).Delete
        Next
    Next WS
End Sub
[/vba]
К сообщению приложен файл: 20231027_anrusik.xls (54.5 Kb)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение[vba]
Код
Sub AnRusik()
Dim LR&, WS As Worksheet
    For Each WS In Worksheets
     LR = Cells(Rows.Count, 11).End(xlUp).Row
        For i = LR To 11 Step -1
            If IsEmpty(Cells(i, 12)) Then Rows(i).Delete
        Next
    Next WS
End Sub
[/vba]

Автор - Serge_007
Дата добавления - 27.10.2023 в 13:18
AnRusik Дата: Пятница, 27.10.2023, 14:01 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 1 ±
Замечаний: 20% ±

2010
Serge_007, Спасибо. А можно сделать, что бы макрос сразу все листы в книге "прошел"? Я еще обратил внимание, что макрос не вставляет в ячейки с A11 занчение ячейки B5


Сообщение отредактировал AnRusik - Пятница, 27.10.2023, 14:03
 
Ответить
СообщениеSerge_007, Спасибо. А можно сделать, что бы макрос сразу все листы в книге "прошел"? Я еще обратил внимание, что макрос не вставляет в ячейки с A11 занчение ячейки B5

Автор - AnRusik
Дата добавления - 27.10.2023 в 14:01
WowGun Дата: Пятница, 27.10.2023, 14:24 | Сообщение № 4
Группа: Проверенные
Ранг: Новичок
Сообщений: 28
Репутация: 3 ±
Замечаний: 0% ±

For Each WS In Worksheets Workbooks
Наверное это имелось в виду.
 
Ответить
СообщениеFor Each WS In Worksheets Workbooks
Наверное это имелось в виду.

Автор - WowGun
Дата добавления - 27.10.2023 в 14:24
Serge_007 Дата: Пятница, 27.10.2023, 14:26 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
не вставляет в ячейки с A11 занчение ячейки B5
Добавил:[vba]
Код
Sub AnRusik()
Dim LR&, WS As Worksheet
    For Each WS In Worksheets
     LR = WS.Cells(Rows.Count, 11).End(xlUp).Row
        For i = LR To 11 Step -1
            WS.Cells(i, 1) = WS.Cells(5, 2)
            If IsEmpty(WS.Cells(i, 12)) Then WS.Rows(i).Delete
        Next
    Next WS
End Sub
[/vba]
К сообщению приложен файл: 20231027_anrusik_v2.xls (53.5 Kb)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
не вставляет в ячейки с A11 занчение ячейки B5
Добавил:[vba]
Код
Sub AnRusik()
Dim LR&, WS As Worksheet
    For Each WS In Worksheets
     LR = WS.Cells(Rows.Count, 11).End(xlUp).Row
        For i = LR To 11 Step -1
            WS.Cells(i, 1) = WS.Cells(5, 2)
            If IsEmpty(WS.Cells(i, 12)) Then WS.Rows(i).Delete
        Next
    Next WS
End Sub
[/vba]

Автор - Serge_007
Дата добавления - 27.10.2023 в 14:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнить ячейки и удалить строки по условию во всех листах (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!