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

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

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

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

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

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

У меня там опечатка была ))))
MsgBox (icell.Address)
ArtNord вне форума Ответить с цитированием
Старый 22.11.2019, 15: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, 15:47   #15
ArtNord
Пользователь
 
Регистрация: 03.12.2018
Сообщений: 72
По умолчанию

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

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

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

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

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

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

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

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получать данные с закрытых файлов изменяя ссылку 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 14:15
ячейка на одном листе, в которую необходимо подставлять данные из столбца, находящегося на другом листе Ирина Водолагина Microsoft Office Excel 4 04.03.2009 23:38


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840