Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск номера по столбцу и удаление всей строки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск номера по столбцу и удаление всей строки (Макросы/Sub)
Поиск номера по столбцу и удаление всей строки
rtv206 Дата: Суббота, 02.11.2019, 15:20 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день уважаемые специалисты!)
Прошу Вашей помощи в решении проблемы:
макрос должен находить номер введенный в форме, в столбце2
и потом удалять всю строку.
К сообщению приложен файл: 147852.xlsm(72.1 Kb)
 
Ответить
СообщениеДобрый день уважаемые специалисты!)
Прошу Вашей помощи в решении проблемы:
макрос должен находить номер введенный в форме, в столбце2
и потом удалять всю строку.

Автор - rtv206
Дата добавления - 02.11.2019 в 15:20
Kuzmich Дата: Суббота, 02.11.2019, 15:38 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 411
Репутация: 82 ±
Замечаний: 0% ±

Excel 2003
Если вы ввели в Текстбох правильный номер, то макрос в код формы
[vba]
Код
Private Sub CommandButton1_Click()
Dim iNomer As String
Dim FoundRow As Long
   iNomer = Me.TextBox1.Text
   FoundRow = Columns(2).Find(iNomer, , xlValues, xlWhole).Row
   Rows(FoundRow).Delete
End Sub
[/vba]
 
Ответить
СообщениеЕсли вы ввели в Текстбох правильный номер, то макрос в код формы
[vba]
Код
Private Sub CommandButton1_Click()
Dim iNomer As String
Dim FoundRow As Long
   iNomer = Me.TextBox1.Text
   FoundRow = Columns(2).Find(iNomer, , xlValues, xlWhole).Row
   Rows(FoundRow).Delete
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 02.11.2019 в 15:38
rtv206 Дата: Воскресенье, 03.11.2019, 19:48 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Kuzmich, спасибо буду пробовать)
 
Ответить
СообщениеKuzmich, спасибо буду пробовать)

Автор - rtv206
Дата добавления - 03.11.2019 в 19:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск номера по столбцу и удаление всей строки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!