Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск и подстановка данных - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск и подстановка данных (Макросы/Sub)
Поиск и подстановка данных
RusMebel Дата: Вторник, 06.08.2019, 14:14 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Доброго дня, уважаемые форумчане. Искал решение своего вопроса на форуме, но к сожалению не могу приладить к своему файлу.
Суть вопроса в следующем.
Есть файл, в нем лист с базой посетителей, и лист с действиями с этими клиентами. Нужен макрос для поиска уникальных совпадений, это либо по порядковому номеру (столбец А) либо по ФИО.
В листе действия в последние 2 столбца вносятся изменения, хотелось бы чтобы эти изменения переносились в лист База.
Заранее спасибо за участие.
К сообщению приложен файл: __.xlsm(13.7 Kb)


Всем добра!
 
Ответить
СообщениеДоброго дня, уважаемые форумчане. Искал решение своего вопроса на форуме, но к сожалению не могу приладить к своему файлу.
Суть вопроса в следующем.
Есть файл, в нем лист с базой посетителей, и лист с действиями с этими клиентами. Нужен макрос для поиска уникальных совпадений, это либо по порядковому номеру (столбец А) либо по ФИО.
В листе действия в последние 2 столбца вносятся изменения, хотелось бы чтобы эти изменения переносились в лист База.
Заранее спасибо за участие.

Автор - RusMebel
Дата добавления - 06.08.2019 в 14:14
RusMebel Дата: Среда, 07.08.2019, 10:21 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Друзья, я понимаю, что для экспертов этого сайта, моя тема яйца выеденного не стоит, прошу хотя бы подсказать, где можно посмотреть аналогичный пример?


Всем добра!
 
Ответить
СообщениеДрузья, я понимаю, что для экспертов этого сайта, моя тема яйца выеденного не стоит, прошу хотя бы подсказать, где можно посмотреть аналогичный пример?

Автор - RusMebel
Дата добавления - 07.08.2019 в 10:21
pechkin Дата: Среда, 07.08.2019, 12:42 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 268
Репутация: 35 ±
Замечаний: 0% ±

2003
Здравствуйте! Проверяйте...[vba]
Код
Sub В_БАЗУ()
Dim aLastRow As Long, bLastRow As Long
With Sheets("База")
aLastRow = Cells(Rows.Count, 1).End(xlUp).Row
bLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To aLastRow
For ii = 2 To bLastRow
If Cells(i, 1).Value = .Cells(ii, 1).Value And .Cells(ii, 1) <> "" Then
.Cells(ii, 13).Resize(, 2).Value = Cells(i, 9).Resize(, 2).Value
End If
Next
Next
End With
MsgBox ("Готово!")
End Sub
[/vba]
К сообщению приложен файл: 0841260.xls(49.0 Kb)
 
Ответить
СообщениеЗдравствуйте! Проверяйте...[vba]
Код
Sub В_БАЗУ()
Dim aLastRow As Long, bLastRow As Long
With Sheets("База")
aLastRow = Cells(Rows.Count, 1).End(xlUp).Row
bLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To aLastRow
For ii = 2 To bLastRow
If Cells(i, 1).Value = .Cells(ii, 1).Value And .Cells(ii, 1) <> "" Then
.Cells(ii, 13).Resize(, 2).Value = Cells(i, 9).Resize(, 2).Value
End If
Next
Next
End With
MsgBox ("Готово!")
End Sub
[/vba]

Автор - pechkin
Дата добавления - 07.08.2019 в 12:42
RusMebel Дата: Среда, 07.08.2019, 12:48 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
pechkin, Спасибо огромное! То что нужно.


Всем добра!
 
Ответить
Сообщениеpechkin, Спасибо огромное! То что нужно.

Автор - RusMebel
Дата добавления - 07.08.2019 в 12:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск и подстановка данных (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!