Выбор листа по условию

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

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

Выбор листа по условию (Макросы/Sub)

light26

Дата: Четверг, 21.10.2021, 16:08 | Сообщение № 1

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

Ранг: Старожил

Сообщений: 1351

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

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

2007, 2010, 2013

Доброго времени суток всем.
Макрорекордером такое не запишешь, поэтому прошу помощи тут.
Задача делать активным лист в котором нет никаких значений в заданном диапазоне.
На просторах интернета нашел примерно подходящий код
[vba]

Код

Sheets(1).Select
If Error Resume Next
Set fcell = Range("E7:O21").Find("искать нужно пустые ячейки")

If Not fcell Is Nothing Then

Sheets(1).Select.Next (то есть если в заданном диапазоне есть заполненные ячейки, выбери следующий лист)

End If
Set fcell = Range("E7:O21").Find("пустые ячейки")

If Not fcell Is Nothing Then

Sheets(1).Select.Next

[/vba]

Ну и так далее до тех пор пока не найдет лист, где в указанном диапазоне нет никаких значений. Если перебрали все листы и нет листов, отвечающих условию, то выбрать последний лист.

Я не волшебник. Я только учусь

Ответить

Kuzmich

Дата: Четверг, 21.10.2021, 17:42 | Сообщение № 2

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

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

Сообщений: 713

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

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

Excel 2003

Цитата

делать активным лист в котором нет никаких значений в заданном диапазоне.

[vba]

Код

Sub tt()
Dim Wsh As Worksheet
For Each Wsh In Worksheets
   Wsh.Activate
   If Application.CountA(Range("E7:O21")) = 0 Then
     MsgBox "На листе: " & Wsh.Name & " нет данных в диапазоне Е7:О21"
     Exit For
   End If
Next
End Sub

[/vba]

Ответить

RAN

Дата: Четверг, 21.10.2021, 17:59 | Сообщение № 3

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

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

Сообщений: 5660

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

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

2010

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

Сообщение отредактировал RAN - Пятница, 22.10.2021, 06:18

Ответить

Выбор листа по условию (Макросы/Sub)

Страница 1 из 1
1