Скопировать не скрытые строки с одного листа на другой

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Скопировать не скрытые строки с одного листа на другой (Макросы/Sub)

StasON

Дата: Пятница, 21.11.2014, 10:56 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 40% ±

2010

Добрый день!
Помогите пожалуйста написать макрос.
В приложенном примере:
После нажатия кнопки добавить объект открывается форма «Факторы»
После выбора переключателя и установки необходимых флажков, после нажатия кнопки «ОК», на листе «форма» отображаются строки, мне необходимо после заполнения таблицы скопировать эти строки на лист «отчет».
Далее при нажатии кнопки «Добавить объект» нужно чтобы на листе «форма» формировалась таблица для нового объекта и далее он вставлялся на лист "отчет" ниже предыдущего объекта.
И еще посоветуйте если есть возможность как оптимизировать процедуры формы "Факторы"

К сообщению приложен файл: 8113907.xlsm (53.0 Kb)

Сообщение отредактировал StasON - Пятница, 21.11.2014, 11:16

Ответить

alex77755

Дата: Воскресенье, 23.11.2014, 14:08 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

Цитата

как оптимизировать процедуры формы "Факторы"

можно сократить код. вместо:
[vba]

Код

    If CB_Подг_работы Then
         Worksheets("форма").Range("ОбъектСОУТ_ПР").EntireRow.Hidden = 0
     Else
         Worksheets("форма").Range("ОбъектСОУТ_ПР").EntireRow.Hidden = 1
     End If

[/vba]
достаточно
[vba]

Код

Worksheets("форма").Range("ОбъектСОУТ_ПР").EntireRow.Hidden = Not CB_Подг_работы

[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru

Ответить

Wasilich

Дата: Воскресенье, 23.11.2014, 16:37 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Чисто по теме. Код для копирования видимого диапазона.
[vba]

Код

Range("A1:E108").SpecialCells(xlVisible).Copy

[/vba]

Ответить

StasON

Дата: Воскресенье, 23.11.2014, 17:12 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 40% ±

2010

Благодарю, буду пробовать.
Кое что уже сделал, не могу только понять как этот диапазон вставить на другой лист например через 2 строки после предыдущего диапазона
[vba]

Код

Private Sub CommandButton1_Click()
     Range("объект").SpecialCells(xlCellTypeVisible).Copy
     Sheets("отчет").Select
     Dim lLastRow As Long
     lLastRow = Cells.SpecialCells(xlLastCell).Row
     ActiveSheet.Paste
     End Sub

[/vba]

диапазон вставляется начиная с выделенной ячейки

Ответить

Wasilich

Дата: Воскресенье, 23.11.2014, 18:30 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

[vba]

Код

Private Sub CommandButton1_Click()
     Range("объект").SpecialCells(xlCellTypeVisible).Copy
     Sheets("отчет").Select
     Dim R As Long
     R = Range("A" & Rows.Count).End(xlUp).Row + 2
     Range("A" & R).Select
     ActiveSheet.Paste
End Sub

[/vba]