UserForm перенос данных из TextBox в ячейки

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » UserForm перенос данных из TextBox в ячейки (Макросы/Sub)

Mnatal

Дата: Понедельник, 21.03.2016, 15:20 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 11

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

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

Excel 2013

Добрый день, создала userform для заполнения данными, а затем переноса в лист label. видимо, где-то допустила ошибку, помогите исправить.
Нужно перенести заполненные данные.

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

Ответить

Апострофф

Дата: Понедельник, 21.03.2016, 15:37 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 448

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

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

Excel 1997

Цитата Mnatal, 21.03.2016 в 15:20, в сообщении № 1

создала userform для заполнения данными, а затем переноса в лист label

А делаете обратное

Цитата

TextBox2.WrapText = Sheets("label").Range("D21").Value

Наверно, надо так -
[vba]

Код

Sheets("label").Range("D21").Value=TextBox2.Text 'WrapText - не знаю, что это такое?

[/vba]

Цитата

[vba]

Код

If TextBox1.Value = True Then
TextBox11.Text = Sheets("label").Range("A18").Value
End If 'попробуйте ELSE
TextBox2.WrapText = Sheets("label").Range("D21").Value
TextBox2.WrapText = Sheets("label").Range("K5").Value
TextBox4.WrapText = Sheets("label").Range("D3").Value
TextBox6.WrapText = Sheets("label").Range("G19").Value
TextBox9.WrapText = Sheets("label").Range("J42").Value
End 'а тут наверно END IF должен быть

[/vba]

И направление присваивания поменяйте везде...

Сообщение отредактировал Апострофф - Понедельник, 21.03.2016, 15:38

Ответить

Karataev

Дата: Понедельник, 21.03.2016, 15:42 | Сообщение № 3

Группа: Проверенные

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

Сообщений: 1334

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

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

Excel

Вы перепутали местами. Нужно не так (привожу пример для одной строки, нужно изменить во всех строках):
[vba]

Код

TextBox11.Text = Sheets("label").Range("A18").Value

[/vba]
а нужно так:
[vba]

Код

Sheets("label").Range("A18").Value = TextBox11.Text

[/vba]

Сообщение отредактировал Karataev - Понедельник, 21.03.2016, 15:44

Ответить

Mnatal

Дата: Понедельник, 21.03.2016, 15:50 | Сообщение № 4

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

Ранг: Новичок

Сообщений: 11

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

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

Excel 2013

спасибо исправила, вроде работает.
А подскажите, а как лучше сделать, чтобы можно было выбрать из списка несколько позиций - в графу завод-получатель из листа plant
[moder]А как сделать, чтобы Вы Правила форума прочитали? Пункт 5q.

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

Сообщение отредактировал _Boroda_ - Понедельник, 21.03.2016, 16:21

Ответить

al-Ex

Дата: Понедельник, 21.03.2016, 15:57 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

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

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

Excel 2010

Цитата Mnatal, 21.03.2016 в 15:20, в сообщении № 1

видимо, где-то допустила ошибку

мягко говоря, да, и не одну видимо.
Частично поправил.

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

Ответить

Mnatal

Дата: Вторник, 22.03.2016, 08:34 | Сообщение № 6

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

Ранг: Новичок

Сообщений: 11

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

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

Excel 2013

Модератор:
А как сделать, чтобы Вы Правила форума прочитали? Пункт 5q

Да, читали. Спасибо за напоминания.
Честно, именно по вопросу списка в юзерформе, а затем вставки в конкретную ячейку, не найдена.
[moder]Это Вы сейчас про что?

Сообщение отредактировал _Boroda_ - Вторник, 22.03.2016, 09:57

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » UserForm перенос данных из TextBox в ячейки (Макросы/Sub)

Страница 1 из 1
1