Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Rus23
0 / 0 / 0
Регистрация: 22.07.2015
Сообщений: 12
#1

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

22.07.2015, 09:22. Просмотров 213. Ответов 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
Ответы с готовыми решениями:

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

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

Вывод строк
Всем привет. В столбец "А" заносятся номера. В столбец "B" подтягиваются наименования. В столбец...

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

Поиск и замена строк по маске
Имеется строки с разделителем «;» в нескольких колонках файла Excel большого размера следующего...

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

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

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

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


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

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

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