Всем доброго времени суток. Пытаюсь написать макрос на VBA для Excel для переноса строки из таблицы на одном листе на другой при вводе в определенный столбец определенных данных. Написал обработчик события:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim table1 As ListObject, table2 As ListObject, table3 As ListObject
Set table1 = Application.ThisWorkbook.Worksheets("Имя листа").ListObjects("Таблица1")
Set table2 = Application.ThisWorkbook.Worksheets("Имя листа").ListObjects("Таблица2")
Set table3 = Application.ThisWorkbook.Worksheets("Имя листа").ListObjects("Таблица3")
If Target.Count > 1 Then
Exit Sub
End If
If Application.Intersect(Target, table1.ListColumns(2)) Then
If Target.Value = "Îòâàë" Then
removeFailed (Target.EntireRow)
End If
Exit Sub
ElseIf Application.Intersect(Target, table2.ListColumns(2).Range) Then
If Target.Value = "Условие" Then
removeFailed (Target.EntireRow)
End If
Exit Sub
ElseIf Application.Intersect(Target, table1.ListColumns(2).Range) Then
If Target.Value = "Условие" Then
removeFailed (Target.EntireRow)
End If
Exit Sub
Else
Exit Sub
End If
End Sub
и саму функцию, которая осуществляет перенос:
Function removeFailed(targetRow As Range)
Dim l
targetRow.Select
Selection.Copy
Application.ThisWorkbook.Worksheets("Имя листа назначения").Select
l = Application.ThisWorkbook.Worksheets("Имя листа назначения").ListObjects("Таблица назначения").Range.End(xlDown)
Rows(l & ":" & l).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Application.ThisWorkbook.Worksheets("Имя листа").Select
targetRow.Delete
End Function
При выполнении вылетает ошибка "Type Missmatch". Подскажите пожалуйста советом, что я сделал неверно и как исправить все так, чтобы скрипт выполнял необходимые действия. Заранее большое спасибо!
Target.EntireRow
- зачем передавть целую строку? Достаточно диапазон с данными. Зачем определять, в какой таблице изменение, если можно обойтись 'Target.Row'? Зачастую (в основом) выделение диапазонов лишнее, копировать/изменять можно без 'Select'. Для нормального решения нужно видеть примеры