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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос данных с формы в таблицу. - Мир MS Excel

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

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

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

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

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

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

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


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

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

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

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

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

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

Автор - Abask
Дата добавления - 09.03.2016 в 14:38
Manyasha Дата: Среда, 09.03.2016, 14:53 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1586
Репутация: 661 ±
Замечаний: 0% ±

Excel 2007, 2010
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]
Нужно ли создавать по каждому отдельную тему?
Да нужно, так в правилах написано
К сообщению приложен файл: Discont-1.xlsm(57Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение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]
Нужно ли создавать по каждому отдельную тему?
Да нужно, так в правилах написано

Автор - Manyasha
Дата добавления - 09.03.2016 в 14:53
Abask Дата: Среда, 09.03.2016, 15:02 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Большое спасибо за быстрый и подробный ответ!
Правила читал, но не был уверен :)
 
Ответить
СообщениеБольшое спасибо за быстрый и подробный ответ!
Правила читал, но не был уверен :)

Автор - Abask
Дата добавления - 09.03.2016 в 15:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос данных с формы в таблицу. (Макросы/Sub)
Страница 1 из 11
Поиск:

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