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

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

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


Ответ
 
Опции темы
Старый 21.11.2019, 23:27   #11
alexheiki
Пользователь
 
Регистрация: 26.06.2017
Сообщений: 19
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
это ваш проект, вы же знаете где находятся названия клиентов, на каком листе? знаете?? - лист уже определен,
найдено N (не знаете на каком листе записаны клиенты - этот проект можно закрывать)
найдите в только что определенном листе клиента ПЫС. он же есть где-то?
найдено R (если такого клиента нет R = последняя строка в таблице +1 (новая запись о клиенте)
ну и в строке R вы знаете в какой колонке лежат данные для какого TextBox'a

вы не ошиблись случайно с форумом, обращаясь на форум программистов?
Дело в том, что я начинащий специалист и хочу разобраться.
Если Вы не против давайте все-таки решим мою проблему.

Я понял о чем Вы говорите я делаю так:

Private Sub CommandButton1_Click()
worksheets(1).cells(R,3) = TextBox2
End Sub


вопросы:
R -это строка, но я не знаю в какой строке у меня будет фигурировать тот или иной клиент, клиентов будет много в базе. Поэтому не знаю какую цифру поставить вместо буквы R. Помогите
N -именно номер листа или все-таки его название?
alexheiki вне форума Ответить с цитированием
Старый 22.11.2019, 00:04   #12
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,256
По умолчанию

))
к листу в коллекции WorkSheets можно обращаться по его номеру и по его имени, как вам удобнее или по обстоятельствам
имя клиента знаете? оно у вас, кажется, в 1-м текстбоксе
вы можете найти это имя в известном вам листе глазами? можете??? можете найти глазами, точно так же cможете найти макросом. найдете ячейку с искомым именем свойство .Row этой ячейки - это и есть требуемый вам № строки
так и пишите
Код:
set rg=worksheets(1).columns(Х\З в какой колонке на листе Клиенты).find(Textbox1,,xlValues,xlWhole)
if rg is nothing then R= worksheets(1).cells(rows.count,1).end(xlup).row+1 else R = rg.row
41001804815208 - Яндекс-деньги благодарности за удачные советы и решения можно отправлять прямо сюда)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Последний раз редактировалось IgorGO; 22.11.2019 в 00:09.
IgorGO вне форума Ответить с цитированием
Старый 22.11.2019, 10:47   #13
alexheiki
Пользователь
 
Регистрация: 26.06.2017
Сообщений: 19
По умолчанию

Стало не проще, в итоге как мне совместить два кода, вот так:
Private Sub CommandButton1_Click()
worksheets(1).cells(R,3) = TextBox2
set rg=worksheets(1).columns(Х\З в какой колонке на листе Клиенты).find(Textbox1,,xlValues,xl Whole)
if rg is nothing then R= worksheets(1).cells(rows.count,1).e nd(xlup).row+1 else R = rg.row
End Sub
alexheiki вне форума Ответить с цитированием
Старый 22.11.2019, 15:51   #14
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,256
По умолчанию

как совместить написано в #2
41001804815208 - Яндекс-деньги благодарности за удачные советы и решения можно отправлять прямо сюда)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ

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

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вытащить данные из Microsoft Access в Visual Basic Moooo Помощь студентам 5 12.08.2017 17:59
Вывести данные из ячейки листа на форму Aleksey63 Microsoft Office Excel 1 31.10.2016 19:59
Как в Microsoft Visual Basic 6.0 открыть Exel файл, считать с него данные(числа) и дальше работать с ними Dimon88 Microsoft Office Excel 7 20.10.2007 13:30