Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 22.11.2019, 16:39   #11
alexheiki
Пользователь
 
Регистрация: 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 в 16:39. Причина: Что тут не так
alexheiki вне форума Ответить с цитированием
Старый 22.11.2019, 16:40   #12
ArtNord
Пользователь
 
Регистрация: 03.12.2018
Сообщений: 63
По умолчанию

покажите код
ArtNord вне форума Ответить с цитированием
Старый 22.11.2019, 16:43   #13
ArtNord
Пользователь
 
Регистрация: 03.12.2018
Сообщений: 63
По умолчанию

У меня там опечатка была ))))
MsgBox (icell.Address)
ArtNord вне форума Ответить с цитированием
Старый 22.11.2019, 16:46   #14
alexheiki
Пользователь
 
Регистрация: 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
....
.....
Изображения
Тип файла: png ошибка.png (39.7 Кб, 12 просмотров)
alexheiki вне форума Ответить с цитированием
Старый 22.11.2019, 16:47   #15
ArtNord
Пользователь
 
Регистрация: 03.12.2018
Сообщений: 63
По умолчанию

MsgBox (icell.Address)
ArtNord вне форума Ответить с цитированием
Старый 22.11.2019, 16:48   #16
ArtNord
Пользователь
 
Регистрация: 03.12.2018
Сообщений: 63
По умолчанию

MsgBox (HHH = icell.Address)
MsgBox (icell.Address)
ArtNord вне форума Ответить с цитированием
Старый 22.11.2019, 16:48   #17
ArtNord
Пользователь
 
Регистрация: 03.12.2018
Сообщений: 63
По умолчанию

Сегодня что-то в кнопки не попадаю )
ArtNord вне форума Ответить с цитированием
Старый 22.11.2019, 16:50   #18
alexheiki
Пользователь
 
Регистрация: 26.06.2017
Сообщений: 19
По умолчанию

Я не знаю что я делаю не так.
Вы говорите у вас работает, у меня нет
Изображения
Тип файла: png 11.png (28.3 Кб, 9 просмотров)
alexheiki вне форума Ответить с цитированием
Старый 22.11.2019, 16:52   #19
ArtNord
Пользователь
 
Регистрация: 03.12.2018
Сообщений: 63
По умолчанию

Во вложении
Вложения
Тип файла: zip Копия БД new.zip (122.0 Кб, 6 просмотров)
ArtNord вне форума Ответить с цитированием
Старый 22.11.2019, 16:53   #20
ArtNord
Пользователь
 
Регистрация: 03.12.2018
Сообщений: 63
По умолчанию

Скрин
Изображения
Тип файла: jpg 1111.jpg (77.1 Кб, 14 просмотров)
ArtNord вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получать данные с закрытых файлов изменяя ссылку segail Microsoft Office Excel 5 01.07.2018 00:08
Как изменить данные в табличной форме superpsih Microsoft Office Access 1 25.01.2018 13:03
изменить значение свойства Данные вычисляемого поля на форме VBA yulia Microsoft Office Access 1 07.01.2016 13:19
работа на одном листе с данными из LISTBOX, данные на другом листе konstantin1990 Microsoft Office Excel 3 22.07.2013 15:15
ячейка на одном листе, в которую необходимо подставлять данные из столбца, находящегося на другом листе Ирина Водолагина Microsoft Office Excel 4 05.03.2009 00:38