Добрый день!
Скажите, пожалуйста, как с помощью кода расширить или удалить строки в умной таблице.
Код должен расширить умную таблицу( лист1) на значение которое отображается в ячейке J3 ( лист1).
Например, если J3=7 то в таблице должно быть 7 строк. Если после расширения таблицы на 7 строк в ячейке J3 отобразится значение 3, то должно остаться 3 строки, а 4 строки должны автоматически удалится. Если опять изменить J3=13, то должно добавить 10 строк и т.д.
Вот есть такой код, может можно что-то изменить.
Sub РасширитьИУдалить()
Dim ws As Worksheet
Dim tbl As ListObject
Dim numRowsToAdd As Long
Dim numRowsToDelete As Long
' Укажите лист, на котором находится таблица
Set ws = ThisWorkbook.Sheets("Лист1")
' Укажите название умной таблицы
Set tbl = ws.ListObjects("Выводиском")
' Получите значение из ячейки для добавления строк (например, B1)
numRowsToAdd = ws.Range("J2").Value
' Расширение таблицы на указанное количество строк
If numRowsToAdd > 0 Then
tbl.ListRows.Add numRowsToAdd
End If
' Получите значение из ячейки для удаления строк (например, B2)
numRowsToDelete = ws.Range("L2").Value
' Удаление лишних строк (если значение меньше 1)
If numRowsToDelete >= 1 Then
Dim numRowsCurrent As Long
numRowsCurrent = tbl.ListRows.Count
If numRowsToDelete < numRowsCurrent Then
tbl.ListRows(numRowsToDelete + 1 & ":" & numRowsCurrent).Delete
End If
End If
End Sub
Дело в том, что если в таблице на листе1 только 3 строки, а в табл.2 на листе2 найдено было 10 срок с искомым значением то в таблице на листе1 будут отображаться только 3 найденных строки.
А изменять размеры в ручную не интересно.
И можно как-то связать код для увеличения и уменьшения таблицы на листе1 с макросом кнопки "Найти" (макрос Кнопка3_Найти)? С этим у меня тоже проблема.