Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
fedoseevev
0 / 0 / 0
Регистрация: 10.02.2016
Сообщений: 11
1

Поиск ячейки в другой книге и вывод значения

18.02.2016, 06:53. Просмотров 948. Ответов 4
Метки нет (Все метки)

Добрый день!
Помогите, пожалуйста, разобраться!
Есть ячейка с ФИО и ячейка с датой рождения, надо найти в другой книге такое же ФИО проверить совпадение даты рождения, если совпадение обоих ячеек, то надо зафиксировать данную строку во второй книге и вывести часть значений в первую книгу. Если двойного совпадения нет, то продолжить поиск. Если нет совпадений то текстовый блок.
Я новичок в этом деле, по своей логике написал код, но что-то никак не он работать не хочет
Для начала написал поиск по одной ячейки

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
Dim shSt As Worksheet
Dim shMB As Worksheet
Dim x As Object
Application.ScreenUpdating = False
Set shSt = ActiveSheet
Workbooks.Open ("Book")
Set shMB = Workbooks("Book").Worksheets("BD")
Set x =  shSt.Cells(5, 3)
    For Each x In Workbooks
        x = shMB.Cells(i, 7)
        If True Then
        shMB.Cells(z, 7) = shSt.Cells(15, 3)
        Else
        MsgBox "Клиент " & shSt.Cells(5, 3) & "не найден"
        End If
    Next
Workbooks("Book").Close
Application.ScreenUpdating = True
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.02.2016, 06:53
Ответы с готовыми решениями:

Поиск значения в другой книге
Доброго дня. Появилась задачка, которую пока не получается реализовать. Есть...

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

Как организовать поиск в другой книге или в этой же книге, поиск по слову на определенных листах
Всем привет!) Как организовать поиск в другой книге или в этой же книге, поиск...

Поиск, копирование, переход на две ячейки в бок в закрытой книге
Sub copy2() Workbooks.Open "D:\221373.xls" Cells.Find(What:="word",...

Как задать значение для ячейки в зависимости от значения другой ячейки
Здравствуйте! Подскажите, как задать значение для ячейки в зависимости от...

4
Shersh
Заблокирован
18.02.2016, 07:27 2
fedoseevev, приложите обе книги (с искажением личных данных и сокращением всего, кроме форматов задействованных ячеек).
Тогда будет интерес вникать в проблему, а не гадать - что и почему у вас не получилось.

Цитата Сообщение от fedoseevev Посмотреть сообщение
Set x = shSt.Cells(5, 3)
For Each x In Workbooks
- это, к примеру, мой усталый моцк воспринимать отказался
0
fedoseevev
0 / 0 / 0
Регистрация: 10.02.2016
Сообщений: 11
18.02.2016, 07:30  [ТС] 3
Этим я пытался ячейке с первой книги придать значение Х, и переберать во второй книге столбец пока не найдет Х
0
Shersh
Заблокирован
18.02.2016, 07:46 4
Visual Basic
1
2
Set x = shSt.Cells(5, 3) '-ПЕРЕМЕННОЙ Х НАЗНАЧЕНА УКАЗАННАЯ ЯЧЕЙКА
For Each x In Workbooks '-ПЕРЕМЕННОЙ Х НАЗНАЧАЕТСЯ В ЦИКЛЕ КАЖДАЯ ИЗ ОТКРЫТЫХ КНИГ
- почти человеческим языком переводятся обе строки.
1
fedoseevev
0 / 0 / 0
Регистрация: 10.02.2016
Сообщений: 11
18.02.2016, 21:12  [ТС] 5
Вот эти 2 файла
0
Вложения
Тип файла: xlsx BD.xlsx (12.1 Кб, 12 просмотров)
Тип файла: xlsx Анкета.xlsx (21.3 Кб, 9 просмотров)
18.02.2016, 21:12
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2016, 21:12

Изменения формата ячейки Excel средствами VBA в зависимости от значения другой ячейки
Здравствуйте. Столкнулся с проблемой. Необходимо на листе Excel Залить,...

Поиск в книге, по названию листа другой. Excel
Добрый день, столкнулся с такой проблемой, не знаю как осуществить поиск по...

При изменении значения в одной книге, вставить лист из другой книги
Здравствуйте! Имеются два файла xls: "Книга рабочая" и "Книга с модулями"....


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

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

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