Создание файла Ворд на основе анализа эксель

[KorvinDeSon]

Победил и родительный! Ура. Теперь наверно надо нарисовать что-то в духе искать по столбцу А если не Профорг, запустить Родительный падеж =) Надеюсь добью

Оппа, чтот сабжи дублируются.

Вопрос. Где я неправ? Всётки методом тыка наверн не учиться не самый надёжный вариант

Option Explicit
Dim Z1, Z1K

Sub АвтомРодпПад()
Z1 = 1
Z1K = 300
Do While Z1 < Z1K
If Cells("1, Z1").Value Like "Профорг*" Then
Z1 = Z1 + 1
Else: Application.Run "'Ведомость ДИФ.xls'!Родительный"
Z1 = Z1 + 1
End If
loop
End Sub

Всё отбой, наладился.

Большое спасибо!!!

[KorvinDeSon]

Такой ещё вопрос. Возникла ещё потребность формировать файлы по профоргам. Самостоятельные эксперименты эффекта не дали.

Поясню немного тут файлы формируются по названию начисления, то есть всё понятно выбираем ячейку 4, j1 с шагом +1

А чтобы формировать по профоргам нужно как-то процедурку анализа профорг не профорг провести. Но как оказалось, это несколько сложнее, ибо файлы после экспериментов не создаются.