создание листа по условию

[Morozeckiy]

Добрый день. Подскажите где ошибка, пожалуйста.
Нужно создать листы с именем из ячейки. Нужно создать столько листов сколько есть в данном диапазоне. В ячейках информация текстовая, я так понимаю ошибка в строке с условием, но не понимаю, как задать.

Sub test()
If Cells("B7") <> 0 Then
Sheets.Add after:=Sheets(1)
Sheets(2).Name = Sheets(1).Range("B7").Value
End If

If Cells("B8") <> 0 Then
Sheets.Add after:=Sheets(1)
Sheets(3).Name = Sheets(1).Range("B8").Value
End If

'и т.д


End Sub

Спасибо

[Morozeckiy]

Как всегда, запостил и осенило. Нужно в условии указать Range вместо Cells.

Хотя появилась другая проблема. Цикл заканчивается на первом IF, как перешагнуть на следующий?


upd. тихо сам с собою...
это тоже решено, нужно выделять первый лист, где инфа в ячейках.

[Hugo121]

Не должно там ничего заканчиваться. Конечно когда прпишите правильно обращение к ячейкам.
А вообще без примера кода в файле слишком много текста нужно в ответе писать...
Вернее так - поместите код в модуль листа и заработает. Если конечно названия будут допустимы.
P.S. И не надо ничего выделять, бросайте эту порочную практику!

[IgorGO]

это стандартная ситуация:
когда Вы пытаетесь собеседнику изложить суть задачи, Вы стараетесь рассказать так, чтобы ему было понятно, при этом сами переосмысливаете суть проблемы и можете неожиданно для себе найти решение)

а Ваши циклы... (как раз к Cells совершенно непринужденно обращаться ее по № строки и № колонки)

with worksheets(1)
  r = 7
  do while .cells(r,2) <> 0 then
    WorkSheets.Add after:=workSheets(1)
    worksSheets(2).Name = .cells(r,2)
    r =r+1
  loop
end with

[Morozeckiy]

Сообщение от Hugo121

Не должно там ничего заканчиваться. Конечно когда прпишите правильно обращение к ячейкам.
А вообще без примера кода в файле слишком много текста нужно в ответе писать...
Вернее так - поместите код в модуль листа и заработает. Если конечно названия будут допустимы.
P.S. И не надо ничего выделять, бросайте эту порочную практику!

Я только начал учиться vba), поэтому приходится увеличивать код ненужными кусками.

[Morozeckiy]

Сообщение от IgorGO

это стандартная ситуация:
когда Вы пытаетесь собеседнику изложить суть задачи, Вы стараетесь рассказать так, чтобы ему было понятно, при этом сами переосмысливаете суть проблемы и можете неожиданно для себе найти решение)

а Ваши циклы... (как раз к Cells совершенно непринужденно обращаться ее по № строки и № колонки)

with worksheets(1)
  r = 7
  do while .cells(r,2) <> 0 then
    WorkSheets.Add after:=workSheets(1)
    worksSheets(2).Name = .cells(r,2)
    r =r+1
  loop
end with

ваш код сокращает мой раз в 10 Только я так понимаю перед .cells должно быть что то важное, но я пока не понимаю что?

p.s. r - я могу указать число максимальное которое мне нужно? Просто это будет обработка разных файлов и где то 7 строк и будет 7 листов, где то 10. Максимум 13.
То есть если я укажу r=13 и в файле будет 7 ячеек 2 столбца с инфой, макрос создаст мне 7 листов и не будет ругаться?

Спасибо!

[IgorGO]

r = 7 - это стартовая строка, с которой макрос начнет проверять ячейки 2-й колонки (колонки В)

если ячейка не пустая
- за первым листом будет добавлен лист с соотв. названием
иначе
обработка строк (и, видимо, работа макроса) на этом прекращается

перед .cells(r,2) ничего не нужно, все что нужно написано чуть выше
а чуть выше написано, что все свойства (методы) название которых начинаются с точки являются свойствами или методами обьекта
with worksheets(1)

[Morozeckiy]

Сообщение от IgorGO

r = 7 - это стартовая строка, с которой макрос начнет проверять ячейки 2-й колонки (колонки В)

если ячейка не пустая
- за первым листом будет добавлен лист с соотв. названием
иначе
обработка строк (и, видимо, работа макроса) на этом прекращается

перед .cells(r,2) ничего не нужно, все что нужно написано чуть выше
а чуть выше написано, что все свойства (методы) название которых начинаются с точки являются свойствами или методами обьекта
with worksheets(1)

Тогда я что то не понимаю, VBA выдает синтаксическую ошибку

[Serge_Bliznykov]

а так?

With Worksheets(1)
  r = 7
  Do While .Cells(r, 2) <> 0
    Worksheets.Add after:=Worksheets(1)
    Worksheets(2).Name = .Cells(r, 2)
    r = r + 1
  Loop
End With

[IgorGO]

Сергей, спасибо!)
правил с первоначального кода Then провтыкал снести))

Morozeckiy, если VBA выдает синтаксическую ошибку
во-первых значит, что она есть (обычно еще как-то подсвечена компилятором)
во-вторых, значит ее нужно устранять всеми доступными способами

самый надежный способ - привести текст макрос в соответствие с правилами синтаксиса языка