Макрос в vba(excel) не работает. Когда нажимаю удалить выдаётся ошибка Type mismatch
Private Sub CommandButton2_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Лист1")
Dim selected_row As Long
selected_row = Application.WorksheetFunction.Match(CLng(Me.TextBox8.Value),
sh.Range("A:A"), 0)
sh.Range("A" & selected_row).EntireRow.Delete
Call Refresh
end sub
Вот такой код я написал, но когда я нажимаю удалить выдаётся ошибка Type mismatch. Этот макрос нужен для удаления данных из таблицы.
Ответы (1 шт):
Автор решения: Максим
→ Ссылка
Ошибка была из-за невнимательности
Private Sub CommandButton6_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Data")
Dim Selected_Row As Long
Selected_Row = Application.WorksheetFunction.Match(CLng(Me.TextBox9.Value),
sh.Range("A:A"), 0)
sh.Range("A" & Selected_Row).EntireRow.Delete
Call Refresh_Data
End Sub