|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
|
Опции темы | Поиск в этой теме |
22.11.2019, 15:39
|
#11 |
|
Пользователь
Регистрация: 26.06.2017
Сообщений: 19
|
Private Sub CommandButton2_Click()
Dim iText$, icell As Range iText = TextBox2: If iText = "" Then Exit Sub Set icell = Worksheets("КЛИЕНТЫ").UsedRange.Fin d(iText, , xlValues, xlPart) 'xlPart MsgBox (HHH = icell.Adrdess) If Not icell Is Nothing Then icell(1, 3) = TextBox2 icell(1, 4) = TextBox3 icell(1, 5) = TextBox4 icell(1, 6) = TextBox5 icell(1, 7) = TextBox6 icell(1, 8) = TextBox7 icell(1, 9) = TextBox8 icell(1, 10) = TextBox9 icell(1, 11) = TextBox10 icell(1, 12) = TextBox11 icell(1, 13) = TextBox12 icell(1, 14) = TextBox13 icell(1, 15) = TextBox14 icell(1, 16) = TextBox15 icell(1, 17) = TextBox16 icell(1, 18) = TextBox17 icell(1, 19) = TextBox18 ........ ....... Последний раз редактировалось alexheiki; 22.11.2019 в 15:39. Причина: Что тут не так |
|
|
|
22.11.2019, 15:40
|
#12 |
|
Пользователь
Регистрация: 03.12.2018
Сообщений: 77
|
покажите код
|
|
|
|
|
22.11.2019, 15:43
|
#13 |
|
Пользователь
Регистрация: 03.12.2018
Сообщений: 77
|
У меня там опечатка была ))))
MsgBox (icell.Address) |
|
|
|
|
22.11.2019, 15:46
|
#14 |
|
Пользователь
Регистрация: 26.06.2017
Сообщений: 19
|
Сделал с исправлением и тоже самое:
rivate Sub CommandButton2_Click() Dim iText$, icell As Range iText = TextBox2: If iText = "" Then Exit Sub Set icell = Worksheets("КЛИЕНТЫ").UsedRange.Fin d(iText, , xlValues, xlPart) 'xlPart MsgBox (HHH = icell.Address) If Not icell Is Nothing Then icell(1, 3) = TextBox2 icell(1, 4) = TextBox3 icell(1, 5) = TextBox4 icell(1, 6) = TextBox5 icell(1, 7) = TextBox6 icell(1, 8) = TextBox7 icell(1, 9) = TextBox8 icell(1, 10) = TextBox9 icell(1, 11) = TextBox10 icell(1, 12) = TextBox11 icell(1, 13) = TextBox12 icell(1, 14) = TextBox13 icell(1, 15) = TextBox14 icell(1, 16) = TextBox15 .... ..... |
|
|
|
|
22.11.2019, 15:47
|
#15 |
|
Пользователь
Регистрация: 03.12.2018
Сообщений: 77
|
MsgBox (icell.Address)
|
|
|
|
|
22.11.2019, 15:48
|
#16 |
|
Пользователь
Регистрация: 03.12.2018
Сообщений: 77
|
MsgBox (icell.Address) |
|
|
|
|
22.11.2019, 15:48
|
#17 |
|
Пользователь
Регистрация: 03.12.2018
Сообщений: 77
|
Сегодня что-то в кнопки не попадаю )
|
|
|
|
|
22.11.2019, 15:50
|
#18 |
|
Пользователь
Регистрация: 26.06.2017
Сообщений: 19
|
Я не знаю что я делаю не так.
Вы говорите у вас работает, у меня нет |
|
|
|
|
22.11.2019, 15:52
|
#19 |
|
Пользователь
Регистрация: 03.12.2018
Сообщений: 77
|
Во вложении
|
|
|
|
|
22.11.2019, 15:53
|
#20 |
|
Пользователь
Регистрация: 03.12.2018
Сообщений: 77
|
Скрин
|
|
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Получать данные с закрытых файлов изменяя ссылку | segail | Microsoft Office Excel | 5 | 30.06.2018 23:08 |
| Как изменить данные в табличной форме | superpsih | Microsoft Office Access | 1 | 25.01.2018 12:03 |
| изменить значение свойства Данные вычисляемого поля на форме VBA | yulia | Microsoft Office Access | 1 | 07.01.2016 12:19 |
| работа на одном листе с данными из LISTBOX, данные на другом листе | konstantin1990 | Microsoft Office Excel | 3 | 22.07.2013 15:15 |
| ячейка на одном листе, в которую необходимо подставлять данные из столбца, находящегося на другом листе | Ирина Водолагина | Microsoft Office Excel | 4 | 04.03.2009 23:38 |
