Поиск номера по столбцу и удаление всей строки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск номера по столбцу и удаление всей строки (Макросы/Sub)

rtv206

Дата: Суббота, 02.11.2019, 15:20 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 131

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день уважаемые специалисты!)
Прошу Вашей помощи в решении проблемы:
макрос должен находить номер введенный в форме, в столбце2
и потом удалять всю строку.

К сообщению приложен файл: 147852.xlsm (72.1 Kb)

Ответить

Kuzmich

Дата: Суббота, 02.11.2019, 15:38 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 711

Репутация: 156 ±

Замечаний: 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]

Ответить

rtv206

Дата: Воскресенье, 03.11.2019, 19:48 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 131

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Kuzmich, спасибо буду пробовать)

Ответить

rtv206

Дата: Четверг, 21.11.2019, 20:45 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 131

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Kuzmich, подскажите, пожалуйста, как удалить строки на другом листе?
Как изменить код?

Ответить

RAN

Дата: Четверг, 21.11.2019, 21:08 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Как обратиться к диапазону из VBA

Быть или не быть, вот в чем загвоздка!

Ответить

rtv206

Дата: Пятница, 22.11.2019, 12:16 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 131

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

[vba]

Код

Private Sub CommandButton1_Click()
Dim iNomer As String
Dim FoundRow As Long
iNomer = Me.TextBox1.Text
FoundRow = Worksheets("Лист2").Columns(2).Find(iNomer, , xlValues, xlWhole).Row
Rows(FoundRow).Delete
End Sub

[/vba]
Добавил обращение к диапазону, все равно удаляет с Листа 1. Что не так?