Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.90/21: Рейтинг темы: голосов - 21, средняя оценка - 4.90
1 / 1 / 0
Регистрация: 14.10.2014
Сообщений: 93
1

Поиск одинаковых значений на разных листах

15.01.2015, 16:54. Показов 3899. Ответов 1
Метки нет (Все метки)

Доброго времени суток, я столкнулся с проблемой написании кода, который будет сравнивать два столбца с данными на разных листах(номер столбца, указывает пользователь, вернее его букву), и вот что у меня получилось, вернее не получилось
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click() 
Dim lLastRowA As Long 
Dim lLastRowC As Long 
Dim i As Long 
Dim rFind As Excel.Range 
lLastRowA = Лист1.Cells(Rows.Count, TextBox1.Text).End(xlUp).Row 
lLastRowC = Лист3.Cells(Rows.Count, "C").End(xlUp).Row + 1 
Application.ScreenUpdating = False 
For i = 2 To lLastRowA Step 1 
//и вот тут у меня начинается ошибка, с указанием столбца второго листа, т.е. с чем будет сравниваться 
Set rFind = Columns(Лист1.TextBox2.Text).Find(What:=Cells(i, TextBox1.Text).Text, LookIn:=xlValues, _ 
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ 
MatchCase:=False, SearchFormat:=False) 
If Not rFind Is Nothing Then 
Cells(lLastRowC, "C").Value = Cells(i, "A").Value 
lLastRowC = lLastRowC + 1 
End If 
Next i 
MsgBox "Работа программы завершена!", vbInformation 
Application.ScreenUpdating = True 
End Sub
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.01.2015, 16:54
Ответы с готовыми решениями:

Поиск одинаковых значений на разных листах
Имеется книга со множеством листов. В листе есть столбец с id, этот самый id совпадает в некоторых...

Не работает поиск разных значений на разных листах
Доброго времени суток, дан код, он из учебника, по поиску разных значений на разных листах, но он...

Поиск и суммирование значений по условию в разных листах
Доброго времени суток! У меня в книге Экзеля есть около 80 листов, нужно переодически суммировать...

Подстановка значений по похожим данным на разных листах
На фото лист1 с нужными данными. На лист3 в колонках 8 и 9 ничего нет. И попадаются данные такие...

1
11245 / 3611 / 642
Регистрация: 13.02.2009
Сообщений: 10,776
15.01.2015, 23:36 2
Прицепил бы лучше книгу.
Так как ошибок много при указании листов/диапазонов
И вообще тему надо в VBA как я понял

Добавлено через 23 минуты
строку поиска изменил на
Visual Basic
1
  Set rFind = Columns(Лист1.TextBox2.Text).Find(What:=Cells(i, TextBox1.Text), LookAt:=xlWhole)
А вот как связаны листы 1 и 3 не понятно
Где находится процедура?
Почему определяешь количество записей на листе3 а куда пишешь не указываешь?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.01.2015, 23:36

Проверка на совпадение значений ячеек на разных листах
Доброго дня, есть файлик с двумя листами. нужно сравнить есть ли значения из столбца А(на листе...

Сравнение значений ячеек на разных листах Excel и их перенос
Доброго Вам времени суток, уважаемие знатоки!!! Нужна Ваша помощь и подсказки. На листе 1 есть...

Сравнение двух пар столбцов в разных листах и вывод значений
Добрый день! Очень нужна помощь в написании макроса. На листе 1 есть данные в столбцах*B*и*G, на...

Поиск и копирование определенных значений в определенные ячейки в листах книги
никогда не писал макросы. поверхностно знаю формулы. - задача такова: есть книга в ней...


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

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

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