Новости:

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

Главное меню

Сделать ячейку активной по условию

Автор vladturbo, 08.04.2012, 12:00

« назад - далее »

vladturbo

Добрый день, уважаемые!
Помогите составить код.
Задача такова:
На активном листе (в столбце А5:А350) необходимо выделить ячейку по условию

Sub Кнопка8_НАЙТИ()
Dim n, FF, Message, i, Obj, kk, firstAddress
kk = "Номер записи не найден!"
Message = "Введите порядковый № записи"
FF = InputBox(Message)
If FF = "" Then Exit Sub
n = Worksheets.Count
For i = 1 To n
With Worksheets(i).Cells
Set Obj = .Range(.Cells(4, 1), .Cells(350, 1)).Find(FF, LookIn:=xlValues)
If Not Obj Is Nothing Then
firstAddress = Obj.Address
  Dim wsSh As Object
  Sheets(i).Select
.Range(firstAddress).Select
GoTo m1
Next
FF = MsgBox(kk)
If kk = "Номер записи не найден" Then Exit Sub
m1:
On Error Resume Next
Application.Run "База.xls!Удаление"
Range("I5").Select
   Application.Run "База.xls!ВосстановитьИнтерфейс"
   Application.Run "База.xls!УбратьВсё"
End Sub

Wasilic

#1
vladturbo , у Вас уже больше 20-ти сообщений, а Вы так и не заметили текста после ввода темы.
ВАЖНО! К первому сообщению темы должен быть прикреплен файл ...
И ставите условие задачи:
Цитата: vladturbo от 08.04.2012, 12:00
На активном листе (в столбце А5:А350) необходимо выделить ячейку по условию
По какому условию? Что содержится в ячейках?
Насколько мне известно, телепатов здесь нет.
Разбирать чужой код, который к тому же с ошибками, бессмысленно.
Да и цикл беребора листов, как в коде, по первым словам условия, не нужен.
Выкладывайте пример и изъясняйтесь конкретно!
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

vladturbo

При нажатии кнопки "открыть форму" появляется окно UserForm1, в UserForm1 раскрывающийся список (привязан диапазон А1:А60 на Листе1) в раскрывающемся списке выбираем имя листа и нажимаем кнопку "ПОИСК". Выбранный Лист становится активным, на активном Листе выделяется диапазон А5:А350. В UserForm1 нажимаем кнопку "Найти и удалить запись", в открывшемся окне InputBox(Message) вводим значение и нажимаем кнопку "ОК", производится поиск на активном Листе по диапазону А5:А350 введенного значения. Найденная ячейка с этим значением выделяется (становится активной).

Wasilic

Цитата: vladturbo от 08.04.2012, 16:35
... В UserForm1 нажимаем кнопку "Найти и удалить запись", в открывшемся окне InputBox(Message) вводим значение и нажимаем кнопку "ОК", производится поиск на активном Листе по диапазону А5:А350 введенного значения. Найденная ячейка с этим значением выделяется (становится активной).
Та все же, "Найти и удалить запись"? Или только найти?   :-\
Разбирайтесь.
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

vladturbo

ТОЛЬКО НАЙТИ! Просто сделать ячейку активной! С удалением сам разберусь, там необходимо выборочно удалять. Необходимо, чтобы ячейка становилась активной!

Wasilic

Так а, пример я выложил, смотреть кто будет?
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

vladturbo

Спасибо! Просто и сердито! Буду городить дальше