Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 23.01.2021
Сообщений: 33

Поиск последней записи в столбце и запись в следующую ячейку

01.09.2022, 09:18. Показов 1945. Ответов 22

Студворк — интернет-сервис помощи студентам
создана форма через VBA Excel, с которой, введенные данные с формы, вносятся в таблицу на Лист1(Материалы)(рис1), так же на этом листе организованна таблица для двухуровнего списка(рис2)(используемого на Лист2(Изделия)). задача: при введении с формы данных, что бы запись заносилась и в таблицу(двухуровнего списка(данные из TextBox1(Ширина))). метод ILastRow вносит данные в последнюю ячейку всей таблицы(игнорируя условие проверку по столбцу(рис2))
Миниатюры
Поиск последней записи в столбце и запись в следующую ячейку   Поиск последней записи в столбце и запись в следующую ячейку  
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
01.09.2022, 09:18
Ответы с готовыми решениями:

Запись из userform в следующую незанятую ячейку
Здравствуйте, есть форма на ней несколько текст боксов и кнопка записать, при нажатии на кнопку должна произойти запись на лист причем...

Запись в следующую ячейку, если текущая занята
Приветствую всех. Возникло желание(и необходимость) создать учет своих финансов, что весьма удобно в экселе. Но есть загвоздка. По...

Найти следующую ячейку. Поиск ячеек в таблице и их отображение в форме
Добрый день. Есть следующая форма и следующий код: Скрин формы Option Explicit Public PesqTotver As String

22
0 / 0 / 0
Регистрация: 23.01.2021
Сообщений: 33
01.09.2022, 16:52  [ТС]
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от Punkt5 Посмотреть сообщение
Будет интересно выслушать ваше мнение на этот счёт.
вверху картинки, на первой изображено что на одном листе(Материал) у меня расположена "основная" таблица, а так же подтаблица для организации двухуровнего выпадающего списка

Добавлено через 2 минуты
Цитата Сообщение от Kemgrad Посмотреть сообщение
ILastRow = Range("Q2:Q" & Rows.Count).Cells.SpecialCells (xlCellTypeBlanks).Row
отрабатывает так как надо на 100%
отрабатывает на все столбцы как и нужно было, можно закрывать вопрос
0
малоболт
1328 / 510 / 213
Регистрация: 30.01.2020
Сообщений: 1,244
01.09.2022, 16:52
Цитата Сообщение от Kemgrad Посмотреть сообщение
ILastRow = Range("Q2:Q" & Rows.Count).Cells.SpecialCells (xlCellTypeBlanks).Row
отрабатывает так как надо на 100%
Это ненадолго. У вас видимо в столбце Q не пустые ячейки, а заполненные пробелами. Потому данный код и срабатывает сейчас на 100%. Как только там появится реально пустая ячейка среди этих, заполненных пробелами - опять словите проблему.
0
0 / 0 / 0
Регистрация: 23.01.2021
Сообщений: 33
01.09.2022, 17:04  [ТС]
Цитата Сообщение от Punkt5 Посмотреть сообщение
Это ненадолго. У вас видимо в столбце Q не пустые ячейки, а заполненные пробелами.
сейчас вбивал по 5-6 данных для разных столбцов-все отрабатывает
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
01.09.2022, 17:04

Поиск фразы в столбце и создание записи в соседнем столбце
Всем добрый день. Есть такая не сложная задача: Найти столбец содержащий в первой строке слово "маршрут", в нём искать...

Копирование данных записи (строки) в следующую запись
Форумчане,доброго времени суток! Вопрос в следующем: поступают на склад, например, 10 бабин (упаковок) одних и тех же комплектующих....

Запись текста в следующую ячейку при появлении в активной ячейке определенного текста из Userform
Доброго времени суток уважаемые эксперты. Оговорюсь сразу, что с VBA имею дело всего несколько дней, поэтому чайник от слова чугунный. ...

Поиск последней заполненой ячейки в листе1 с переносом данных в ячейку другого листа
Знатоки, помогите! Задача по ведению карт в картотеке. Заполняю карту. На др. листе этой же книги макрос должен вывести значение...

Поиск значения и запись в ячейку
Привет! Есть необходимость решить задачу с помощью макроса и назначить его на кнопку. 1) В колонке A найти значение...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
23
Ответ Создать тему
Новые блоги и статьи
Nekobox - outbounds[0].transport: unknown transport type: raw
damix 01.10.2026
Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru