Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
Rus23
0 / 0 / 0
Регистрация: 22.07.2015
Сообщений: 12
#1

Поиск и вывод подобных строк - VBA

22.07.2015, 09:22. Просмотров 197. Ответов 0
Метки нет (Все метки)

Добрый день. Помогите пожалуйста исправить ошибку. У меня есть таблица и в ней I столбцов, нужно в другом листе задать поиск по столбцу С и если есть совпадение, то вывести всю строку. У меня выводит строку либо до столбца С, либо если прошу вывести до столбца I , пишет ошибку '1004'.

Sub test()
Dim cell As Range, ra As Range
Dim sh As Worksheet: Set sh = Worksheets("Блокировки")
Set ra = sh.[a1:c1]
For Each cell In sh.Range(sh.[c1], sh.Range("c" & Rows.Count).End(xlUp)).Cells
If Len(cell) Then
If Not Range("k:k").Find(cell) Is Nothing Then
Set ra = Union(ra, sh.Range(cell, cell.EntireRow.Cells(1)))
End If
End If
Next cell
Set shh = Worksheets("Результат")
shh.UsedRange.Clear
ra.Copy shh.[a1]
End Sub

Потом надо что бы выведенную строку можно было редактировать, и после этого она должна заноситься обратно в таблицу из которой был осуществлен поиск.
0
Миниатюры
Поиск и вывод подобных строк   Поиск и вывод подобных строк  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.07.2015, 09:22
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Поиск и вывод подобных строк (VBA):

Поиск по значению и вывод строк из таблицы на другой лист Excel - VBA
Люди, хелп!!! Срочно! Нужно в Excel или дописать модуль или что-то с формулами нахимичить. Есть столбец со значениями (в файле...

Сравнение строк в нескольких файлах excel, копирование несовпадающих строк и их вывод в сводный файл - VBA
Добрый день, только только начал разбираться с VBA в excel, поэтому прошу помощи (схожие темы находил, но не смог преобразовать их...

Поиск и удаление совпадающих строк - VBA
В общем случай такой: Dim a& With Worksheets(2) For a = 1 To 26000 If .Cells(a, 1).Value = "" And .Cells(a, 2).Value = "" And...

Поиск одинаковых строк по условию - VBA
сть 2 файла с одним листом ,в которых есть столбик columns1 и нужно найти одинаковые строки в столиках 1 и скопировать значение с столика 3...

Создание макроса в Word. Нахождение и удаление элемента и ему подобных в документе - VBA
Программа выгружает документ в ворд в определенном формате, для дальнейшей работы документ требуется изменить. Так как документ большой...

Подсчёт и вывод строк - VBA
Здравствуйте. Скажите как реализовать вывод информации в Word с A1 по строку которая заполнена последняя. Знаю что последнюю строчку...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.07.2015, 09:22
Привет! Вот еще темы с ответами:

Подсчёт и вывод строк - VBA
Помогите сосчитать количество, и вывести записи в таблицу. Пыытаюсь сделать так чтобы в таблицу выводилась все наименование, в...

Вывод строк в таблицу - VBA
Есть вывод данных в таблицу. Количество строк меняется - это j. В таблицу программа вносит необходимое количество строк, но только все они...

Вывод строк в VBA - VBA
Есть на Лист1 колонки "A" и "B" с наименованием. Есть на Лист2 колонки "A" и "B" тоже с наименованием. Кнопка"Сравнить" сравнивает два...

Вывод строк в VBA - VBA
Есть код макроса который позволяет ввести в окошко часть слова, и далее если в колонке "B2" есть совпадения, он выводит полностью...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru