Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.01.2015, 17:32   #1
medved_program
Пользователь
 
Регистрация: 15.01.2015
Сообщений: 20
По умолчанию Поиск одинаковых значений на разных листах

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

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(W hat:=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
medved_program вне форума Ответить с цитированием
Старый 15.01.2015, 17:49   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

а так:
...
Set rFind = worksheets(2).Columns(Лист1...
...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск одинаковых ячеек в нескольких листах. R-oksana Microsoft Office Excel 5 11.12.2016 00:36
Удаление одинаковых строк на разных листах Nanashi Microsoft Office Excel 3 29.09.2014 16:45
Поиск совпадений на разных листах и столбцах Sash414 Microsoft Office Excel 2 30.11.2011 22:17
Суммирование значений в ячейках на разных листах с помощю кода jerko Microsoft Office Excel 14 07.10.2010 09:15
Поиск и удаление совпадающих строк в разных листах hybrid84 Microsoft Office Excel 11 24.07.2009 05:13