Цикл For Each

[Bu$ter]

Всем привет.
Помогите разобраться - в макросе много раз использую цикл

For Each element In group
[statements]

После не помню кагого раза выдает ошибку:

For control variable already in use


When you nest For...Next loops, you must use different control variables in each one. This error has the following cause and solution:

An inner For loop uses the same counter as an enclosing For loop.
Check nested loops for repetition. For example, if the outer loop uses For Count = 1 To 25, the inner loops can't use Count as the control variables.

For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).

Windows("sales").Activate
Sheets("sale").Select
Range("a3").Select
For i = 1 To 10                                              
Selection.End(xlDown).Select
Next i
Range(Selection, Selection.End(xlDown)).Select
Range(Cells(1, 1), Cells(ActiveCell.Row, ActiveCell.Column).Offset(rowOffset:=-1, columnOffset:=0)).Select

t = 0
 
For Each myCell In Selection
   t = t + 1

Этот блок неизменным (в том числе и переменную "t") я использую много раз в макросе (меняются только листы)

Как это можно решить?

[valerij]

Сообщение от Bu$ter

For Each myCell In Selection
   t = t + 1

А де Next myCell?

[Bu$ter]

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

А де Next myCell?

Спасибо, заработало... )))

[VictorM]

Bu$ter, как-то я давал ссылку, но тогда сайт не работал.
Посмотрите вот это Управляющие структуры ... Циклы. Сайт сейчас работает и все ОЧЕНЬ хорошо описано.

[IgorGO]

может просто так написать? (если кроме количества отмеченых ячеек ничего не интересует)

Windows("sales").Activate
Sheets("sale").Select
Range("a3").Select
For i = 1 To 10                                              
Selection.End(xlDown).Select
Next i
Range(Selection, Selection.End(xlDown)).Select
Range(Cells(1, 1), Cells(ActiveCell.Row, ActiveCell.Column).Offset(rowOffset:=-1, columnOffset:=0)).Select

t = Selection.Count

[Bu$ter]

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

может просто так написать? (если кроме количества отмеченых ячеек ничего не интересует)

Windows("sales").Activate
Sheets("sale").Select
Range("a3").Select
For i = 1 To 10                                              
Selection.End(xlDown).Select
Next i
Range(Selection, Selection.End(xlDown)).Select
Range(Cells(1, 1), Cells(ActiveCell.Row, ActiveCell.Column).Offset(rowOffset:=-1, columnOffset:=0)).Select

t = Selection.Count

Отлично. Так гораздо удобнее. Спасибо.