|
Тебе надо организовать цикл по стокам:
For Num = 1 To ПоследняяСтрока
...
...
...
Next
Внутри твой код. Num - нумератор цикла, Последняя строка - номер последней строки.
Можешь вписать число, можешь завести такую переменную и присвоить ей значение.
В Range() меняешь так:
Было Range("E4:H4").Select
Надо Range("E" & Num & ":H" & Num).Select
Если выделяешь одну ячейку соответсвенно только до двоеточия.
__________________
Все "спасибы" - в приват и в репутацию! не засоряйте форум!!!! © Plague
Небьющаяся игрушка - это игрушка,
которой ребенок может разбить все свои остальные игрушки.
|