VBA- Использование поля ввода для фильтрации и копирования данных

Я работаю над пользовательской формой, где я нажал кнопку, когда я нажимаю на нее, у меня есть поле ввода, где я пытаюсь фильтровать данные столбца (E), после фильтрации этой копии данных из колонки A1 до значения, отфильтрованного в столбце E в другом листе caaled filtred_data Я использую этот код для этого кода, но он показывает мне ошибку, как это исправлять

Private Sub CommandButton9_Click() Dim xno As Integer, Found As Range Do xno = Application.InputBox("Enter the number of Top communities ", Type:=1) If TypeName(xno) = "Boolean" Then Exit Sub Set Found = Columns("E").Find(what:=xno, lookat:=xlWhole, LookIn:=xlValues) If Found Is Nothing Then MsgBox "the number was not found, please try again !!", vbInformation Else Found.Range("A1:F10000").Copy Destination:=Sheets("filtred_data").Range("A1:F10000") End If Loop End Sub 

если кто-нибудь может мне помочь, спасибо

Проблема в вашем случае заключается в том, что вы устанавливаете переменную Found в отдельную ячейку с помощью метода Find . Позже в коде вы пытаетесь скопировать A1:F10000 этой ОДНОЙ ячейки, когда вы пишете Found.Range("A1:F1000") .

По существу, ваш код выглядит так (предположим, что Found относится к ячейке E25 ):

 Range("E25").Range("A1:F1000").Copy 

Вы можете понять, почему это может вызвать ошибку?

Я постараюсь предложить дополнительную помощь, но трудно точно определить, что вы хотите. Можете ли вы дать более подробную информацию о своих таблицах электронных таблиц и примере того, что вы хотите?

Interesting Posts

Excel: многоуровневые массивы основаны на условиях

Коробка Excel

OpenXml DataValidation задает предопределенный список столбцов

Как указать учетную запись, с которой я хочу отправить электронное письмо, используя VBA

Заполните оставшуюся ячейку, на основе которой введен столбец

Автозаполнение через диапазон с использованием адресов из нескольких листов?

Извлечение данных из Excel через потоки

Excel – Средняя группа ячеек, где размер группы не фиксирован

Как скопировать строку с одного листа и вставить только некоторые столбцы на новый лист?

Сравните диапазоны, чтобы узнать, равны ли они

Google Spreadsheet: Сравнить 2 массива

Сортировка данных по значениям столбцов с использованием Excel VBA, по убыванию и по возрастанию

Цикл Excel VBA Macro копирует ячейки на новый лист

Несмотря на одинаковые диапазоны – ошибки в файлах Google. Аргументы аргументов для COUNTIFS имеют разный размер.

Перенос библиотеки SHA-256 в Excel

Давайте будем гением компьютера.