Макрос удаление данных во втором листе

Вход

Регистрация

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

= Мир MS Excel/Макрос удаление данных во втором листе - Мир MS Excel

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

Макрос удаление данных во втором листе (Макросы/Sub)

Макрос удаление данных во втором листе

Timsan

Дата: Вторник, 10.06.2014, 23:50 | Сообщение № 1

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

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

Сообщений: 20

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

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

Excel 2003

Добрый день помогите изменить макрос,
нужно что бы при удалении строки из жолтой таблицы с помошью Delet Row так же удалялись формулы (данные) со 2го листа лист1
Зарание благодарю!!!

[vba]

Код

rivate Sub Cmd_DelRow_Click()
Dim iRow As Integer
Dim sKapitel As String
Dim sRegName As String

      iRow = ActiveCell.Row

      Rows(iRow).Select
      Selection.Cut
      Application.CutCopyMode = False
      Selection.Delete Shift:=xlUp

End Sub

[/vba]

К сообщению приложен файл: delrow.xls (74.5 Kb)

Сообщение отредактировал Timsan - Вторник, 10.06.2014, 23:50

Ответить

anvg

Дата: Среда, 11.06.2014, 09:35 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 581

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

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

2016, 365

Добрый день
В принципе можно привязаться к ошибке на втором листе, возникающей при удалении строки на первом. В этом частном случае можно так
[vba]

Код

Public Sub delRows()
     Dim pSheet As Worksheet
     Dim errRange As Range
     Set pSheet = ThisWorkbook.Worksheets(2)
     Set errRange = pSheet.UsedRange.Columns(1).SpecialCells(xlCellTypeFormulas, xlErrors)
     If Not errRange Is Nothing Then
         errRange.EntireRow.Delete xlShiftUp
     End If
End Sub

[/vba]
Успехов.

Ответить

Макрос удаление данных во втором листе (Макросы/Sub)

Страница 1 из 1
1