Перенос данных с формы в таблицу.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос данных с формы в таблицу. (Макросы/Sub)

Abask

Дата: Среда, 09.03.2016, 14:38 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

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

Описание формы: Форма на половину берет данные из таблицы с клиентами (на втором листе "База"), а на половину - заполняется вручную. Далее по нажатию кнопки "Внести данные", переносит данные с формы в таблицу совершенных покупок (находящуюся на первом листе "Форма ввода").

Основное предназначение: Учет выданных дисконтных карт и совершенных покупок по ним.

Суть проблемы: При выборе номера карты в форме (ComboBox1), неправильно подтягиваются данные в поля "Скидка %" (TextBox5) и "Доп. скидка" (TextBox6).

P.S.: Знаниями по VBA не владею, лепил из отрывков кода, найденных на просторах интернета. В том числе и Вашего, без исключения - Наиполезнейшего форума! Потому прошу не судить строго.

Так же еще имеются вопросы по данной форме и таблице. Нужно ли создавать по каждому отдельную тему? Заранее спасибо!

К сообщению приложен файл: Discont.xlsm (80.3 Kb)

Сообщение отредактировал Abask - Среда, 09.03.2016, 14:52

Ответить

Manyasha

Дата: Среда, 09.03.2016, 14:53 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Abask, для Combobox1:
[vba]

Код

Private Sub ComboBox1_Change()
Dim q As String
Dim a
Dim z As String
Dim x As String
q = Me.ComboBox1.Value

'Эту строчку поправила
Set a = Worksheets("База").Columns(1).Find(q, , xlFormulas, xlWhole)
z = Worksheets("База").Cells(a.Row, 2)
x = Worksheets("База").Cells(a.Row, 3)

Me.TextBox5.Value = z
Me.TextBox6.Value = x
End Sub

[/vba]

Цитата Abask, 09.03.2016 в 14:38, в сообщении № 1

Нужно ли создавать по каждому отдельную тему?

Да нужно, так в правилах написано