Есть простенкий макрос
Код
Sub кодсправка()
For i = 1 To 100 'тут диапазон указываеться а как сделать что бы цикл выполнялся до последней не пустой ячейки?
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.Next.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("AIDS").Select
Range("I11").Select
If IsNumeric(ActiveCell.Value) Then
ActiveCell.Value = ActiveCell.Value + 1
End If
Next
End Sub
Цифра в активной яйчеки отображает порядковым номер из списка который в свое время подставляется в форму для дальнейшей распечатки страницы
Как дописать код что бы весь процесс повторялся автоматически до последнего порядкового номера в списке.
Сообщение отредактировал arturhome - Вторник, 18 Марта 2008, 8:35