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

Обновление данных в таблице

20.03.2017, 02:32. Показов 1029. Ответов 3
Метки нет (Все метки)

Здравствуйте! На Лист "ЕИИС" висит база из номеров ("A") и наименования ("B"). На лист "Сканер" падают номера в колонку ("A"). Есть кнопка которая обновляет лист "Сканер" и подтягивает с базы наименования в колонку ("B"). Как доработать кнопку, что бы не приходилось каждый раз нажимать кнопку, а наименование подтягивалось автоматически при появлении записи в колонке ("A")?

Прошу помочь..

Private Sub CommandButton4_Click()
sschet = Sheets("Сканер").Range("C1")
sschet2 = Sheets("ЕИИС").Range("Y1")
For I = 2 To sschet
For i2 = 2 To sschet2
If Sheets("Сканер").Cells(I, 1) = Sheets("ЕИИС").Cells(i2, 2) Then
Sheets("Сканер").Cells(I, 2) = Sheets("ЕИИС").Cells(i2, 3)
End If
Next i2
Next I
End Sub
0

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

Миниатюры
Обновление данных в таблице  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.03.2017, 02:32
Ответы с готовыми решениями:

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

Обновление данных в таблице с добавлением новых данных
Уважаемые знатоки, есть проблема с которой сам разобраться не могу, помогите пожалуйста. Вопрос...

Обновление данных в таблице
Есть таблица в аксесе по типу: Поле1 Поле2 Поле3 знач1 знач3 знач5 знач2 знач4 знач6 Потом по...

Обновление данных в таблице
Добрый день! При работе над проектом возник вопрос... Есть таблица, есть метод загрузки данных...

3
73 / 72 / 29
Регистрация: 13.10.2014
Сообщений: 155
20.03.2017, 04:44 2
Лучший ответ Сообщение было отмечено Степан_888 как решение

Решение

В код листа "Сканер":
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
Set x = Sheets("ЕИИС").Columns(1).Find(Target, , , 1)
If Not x Is Nothing Then
Target.Offset(, 1) = x.Offset(, 1).Value
Else
Target.Offset(, 1) = "Номер отсутствует"
End If
Application.EnableEvents = True
End Sub
1
1 / 1 / 1
Регистрация: 07.04.2016
Сообщений: 243
20.03.2017, 08:38  [ТС] 3
k61, Спасибо!
Есть еще вопрос, подскажите как сделать чтобы автоматически из Userform1.Textbox1 информация падала в колонку "A". Т.е. инвентарные номера, я их сканирую штрих кодом, и они с текстбокса автоматом прыгали в колоку "A". Не подскажете как лучше сделать?)
0
Миниатюры
Обновление данных в таблице  
73 / 72 / 29
Регистрация: 13.10.2014
Сообщений: 155
20.03.2017, 09:26 4
Меня не ждите. Я по фотографиям гадаю только с утра (вместо производственной гимнастики). А сейчас работа в разгаре.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.03.2017, 09:26

Обновление данных в таблице
Доброго времени суток, друзья. Нужна помощь в реализации запроса. Есть простая БД магазина, задача...

Обновление данных в таблице
Нужно сделать следующий запрос: &quot;Уменьшить на 10% стоимость тех заказов,клиент которых арендовал...

Обновление данных в таблице
Здравствуйте! Я добавляю новую запись в таблицу, но данные в таблице обновляются только после...

Обновление данных в таблице
есть форма. на ней подчиненная. в подчиненную форму вводятся данные x и y, на их основе в этой же...


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

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

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