Цикл сравнения и действие

[hziben]

Здравствуйте. Начал мучиться с вба совсем недавно. Пока кое-как освоил юзер-форму для заполнения данных (кстати, возможно ли делать древовидные списки. скажем выбрал в списке 1 какую-то категорию, а список 2 стал соответствовать подсписку из этой категории)
Пишу в познавательных целях примитивную игру в экселе, и нужно с помощью макроса выполнить действие.
Макрос должен выполнять действие

Calculate

пока ячейка Н3

Н3=0
станет равной нулю.

После чего он должен сделать так

    Range("A4:D4").Select
    Selection.Copy
    Range("A5:D5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

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

Конец цикла
и макроса.

Т.е. в чем смыл. Имеется генератор случайных чисел. Его нужно обновлять пока он не будет удовлетворять определенным критериям. Для корректности работа зафиксировать результат копипастом в соседние ячейки, после чего приступаем к игре.

[kuklp]

Курим справку по while...wend, do...loop.
Убираем селекты и лишнее:
Range("A4:D4").Copy
Range("A5:D5").PasteSpecial xlPasteValues

[Hugo121]

Ещё проще:

Range("A5:D5").Value = Range("A4:D4").Value

[EducatedFool]

Ещё короче:

[A5:D5].Value =[A4:D4].Value

[Hugo121]

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

[Казанский]

> возможно ли делать древовидные списки. скажем выбрал в списке 1 какую-то категорию, а список 2 стал соответствовать подсписку из этой категории

Это один из самых популярных вопросов:
http://yandex.ru/yandsearch?text=связанные+списки+excel

[hziben]

Спасибо за помощь. Покурил указанные циклы и вот что вышло

Sub Èãðà1()
'
' Èãðà1 Ìàêðîñ
'

'
Do
    Calculate
Loop While H3 > 0
    
Range("A4:D4").Copy
Range("A5:D5").PasteSpecial xlPasteValues
 
 End Sub

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

п.с. решил посмотреть что будет если =0. как я понял, цикл прекращается когда условие не выполняется (ложь). Сделал наоборот. Как начало оно перебирать. И не останавливается. Хотя вижу, нужные условия проскакивают. Почему он не останавливается? Ведь все тоже самое, только условие обратное данному.

[Hugo121]

Loop While H3 > 0
переведу - цикл пока переменная H3 больше нуля.
Но она не будет больше нуля.

[hziben]

Do
    Calculate
Loop While Range("H3") > 0
    
Range("A4:D4").Copy
Range("A5:D5").PasteSpecial xlPasteValues

Сделал так. Выполнял макрос много, некорректной работы не заметил. Спасибо за отклик)