работа с диапазоном

[Kefirrr]

Добрый день! подскажите, пожалуйста, как правильно написать код. У меня есть 3 макроса, есть таблица. Хочу сделать, чтобы при выборе нескольких строчек, для каждой выполнялись эти три макроса Т.е. сначала для первой выбранной строчки, затем для второй и т.д.
____________________________
Sub automatic()
Dim cell As Range
Application.ScreenUpdating = False

For Each cell In Selection.SpecialCells(xlCellTypeCo nstants)
Application.Run "Формирование_бланка1"
Next
For Each cell In Selection.SpecialCells(xlCellTypeCo nstants)
Application.Run "Формирование бланка_2"
Next
For Each cell In Selection.SpecialCells(xlCellTypeCo nstants)
Application.Run "сохранение_в_PDF"
Next
Application.ScreenUpdating = True
End Sub
_____________

У меня почему-то получается, что выполняется операция 3 раза (т.е. столько, сколько строчек выделила), а формируются данные только по 1ой строчке. Если ли какая-нибудь функция, по перемещению активной ячейки внутри диапазона. В интернете не нашла ничего схожего (только по перемещению всего диапазона)

[Казанский]

Возможно так

Sub automatic()
Dim cell As Range
Application.ScreenUpdating = False

For Each cell In Selection.SpecialCells(xlCellTypeCo nstants)
  Application.Run "Формирование_бланка1"
  Application.Run "Формирование_бланка_2"
  Application.Run "сохранение_в_PDF"
Next
Application.ScreenUpdating = True
End Sub

[IgorGO]

Если ли какая-нибудь функция, по перемещению активной ячейки внутри диапазона

есть, а зачем она Вам?

for each cell in range("A1:Z100")
  cell.select
  msgbox "Cell " & cell.address & " is selected now"
next

[SAS888]

Я бы еще добавил игнорирование возможных ошибок (On Error Resume Next) и запрет вывода сообщений (Application.DisplayAlerts = False) на случай, если в выделенном диапазоне не найдется ни одной ячейки, содержащей константы.

[Kefirrr]

Спасибо большое за ответ. Но все равно обрабатывается Nраз только первая ячейка из всего выделенного диапазона

[SAS888]

В макросах формирования бланков Вы используете код

Cells(ActiveCell.Row, 2).Value

т. е. при каждом вызове обращаетесь к одной и той же ячейке. Для того, чтобы организовать последовательное обращение к ячейкам выбранного диапазона, нужно вызывать макрос и в качестве параметра передавать текушую в основном цикле ячейку. Т. е. так:
Вызов макроса:

Application.Run "Формирование_бланка_ф7а_1", cell

Исполняемый макрос:

Sub Формирование_бланка_ф7а_1(cell As Range)
    Sheets("Лист1").Activate
    Sheets("Форма_7-а").Cells(21, 50) = Cells(cell.Row, 2) ' фамилия
    ' и т.д. по всему тексту макроса заменить "ActiveCell.Row" на "cell.Row"
End Sub

Также, можно оптимизировать макрос, исключив все Select-ы и при обращении к листу использовать конструкцию WIth... End With.

[Kefirrr]

Спасибо за ответ.
Попробовала реализовать, заменила "активные ячейки" на просто "ячейки". Теперь выводит ошибку 450 "Wrong number of arguments or invalid property assignment"

[SAS888]

Вы не внимательны... Если передавать в макрос параметры, то и сам макрос должен их принимать. Обратите внимание на скобочки при заголовке макроса.
Посмотрите приложенный файл. Я оптимизировал макросы, выкинув все Activate-ы и Select-ы и собрав все операции в циклы. Согласитесь, что так на много проще, быстрее и изящнее. Также, добавил "нормальную" функцию перевода суммы из числа в пропись.
Будут вопросы - задавайте. Будут ошибки - укажите в какой строке кода.
Желаю удачи.

[Kefirrr]

SAS888, все работает. Даже и не знаю что и сказать, вы переделали полностью мой файл и код теперь занимает совсем чуть-чуть. Спасибо огромное, но вопросов ОЧЕНЬ МНОГО. Если Вам не тяжело. можете разъяснить кое-что (функцию перевода суммы из числа еще даже не разбирала)
1) на что сразу обратила внимания, но так и не смогла найти хоть какое-то объяснение. В макросе "Формирование_бланка_ф7а_1" вы присваиваете значение
a = Array(1441414144, 4111411114#...) судя по всему это перебор индекса, но хоть убейте не понимаю КАК, почему именно 4 и 1 ,и почему через один стоит знак #
2) FileNum$ = [AE1]: [AE1] = [AE1] + 1
а) почему на конце "$" - это значение относительности вроде
б) как правильно прочитать эту строчку, мы сначала запоминаем номер из ячейки,а затем в нее добавляем единицу?
3) Попыталась выделить всего 1 человека, и создать ПДФ, так компьютер немного завис, стал создавать кучу файлов (на 50 уже не выдержала и воспользовалась Ctrl+Alt+Delete) иэ этих 50 3 были с нормально-заполненными бланками, а остальные выдавали имя ячейки (т.е. в ячейке индекса, было написно "Индекс и.т.д" С чем это связано?
Но с 2-мя и более выделенными ячейками работает безукоризненно

P.S. я в самом начале познавания VBA, и циклы пока для меня тяжеловато читаются, поэтому и делала все обычными командами, чтобы могла легко понять что и куда

[Hugo121]

Заинтересовало эти 1414144141414...
Так там ведь оно используется в
Borders(i + 6).Weight = Mid$(a(n), i + 1, 1)
т.е. из этих строк в нужное время выбирается нужный символ. Хитро
P.S. а знак # ставится сам, ничего не поделать... Разве что перевести в строку, но это лишние кавычки.