Цикл в скрипте

[SoFuWa]

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

[Slavik]

Не совсем понял, что вы имеете ввиду; возможно попробуйте в формуле использовать функцию "ЕСЛИ" (в меню ВСТВКА) , выведите данные в следующую ячейку если значения не кончились, а если закончились — в другую. Если информация пригодилась, можете добавить отзыв.

[SoFuWa]

нет я не про то спрашивал, я вообще про скрипт т.е VBA. Но я уже разобрался, точнее помогли ))
Если подскажите, то поставлю отзыв =)) почему в строке

ColumnA = Объекты.Cells(P, 1).Value

Екзель ругается на Объекты если написать

ColumnA = Cells(P, 1).Value

то все работает. Пишет что обьект requied т.е. требуется, но такой лист есть он называется Объекты

[IgorGO]

ColumnA = Sheets("Объекты").Cells(P, 1).Value

[SoFuWa]

Спасибо так работает.

Я цикл переделал, а он не работает тоже

вот такой код
Sub счетчик()
Dim NumberMain As Integer
Dim Owners As Integer
Dim Intermediaries As Integer
Dim ColumnA As Variant
Dim ColumnP As Variant
Dim ColumnQ As Variant

NumberMain = 0
Owners = 0
Intermediaries = 0

For P = 1 To 100000
ColumnA = Cells(P, 1).Value
If IsEmpty(ColumnA) Then P = 100000 Else NumberMain = NumberMain + 1
Next P

For o = 1 To 100000
ColumnP = Cells(o, 16).Value
If IsEmpty(ColumnP) Then o = 100000 Else Owners = Owners + 1
Next o

For k = 1 To 100000
ColumnQ = Cells(k, 17).Value
If IsEmpty(ColumnQ) Then k = 100000 Else Intermediaries = Intermediaries + 1
Next k

End Sub

Я таким способом сделал, чтоб определялись пустые ячейки. Но при запуске никакого эффекта, раньше было через for и все работало, а теперь вообще не работает, комп даже не задумывается, а там работы на несколько минут БД большая. Помогите пожалуста

[EducatedFool]

Вот это:

Sub ИсходныйКод()
    For P = 1 To 100000
        ColumnA = Cells(P, 1).Value
        If IsEmpty(ColumnA) Then P = 100000 Else NumberMain = NumberMain + 1
    Next P
End Sub

можно (и нужно) заменить на что-то вроде такого:

Sub НормальныйКод()
    ' ищем число заполненных ячеек в столбце A (оно равно НомеруПоследнейЗаполненнойСтроки)
    НомерПоследнейЗаполненнойСтроки = Columns("A").Cells(Rows.Count).End(xlUp).Row
    ЗначениеПоследнейЗаполненнойЯчейки = Columns("A").Cells(Rows.Count).End(xlUp)
End Sub

Или, что то же самое,

Sub НормальныйКод()
    НомерПоследнейЗаполненнойСтроки = Cells(Rows.Count, "A").End(xlUp).Row
    ЗначениеПоследнейЗаполненнойЯчейки = Cells(Rows.Count, "A").End(xlUp)
End Sub