@Sergey112233

Уважаемые форумчане.
Программа находит в столбце А:А несколько последовательно идущих одинаковых записей код и в столбце С:С, соответственно, записывает текущую дату.

Надо вот эту часть кода:

m = 0
Do
If poz <> poz.Offset(m, 0) Then Exit Do
poz.Offset(m, 2) = Date + k
m = m - 1

Loop
poz.Offset(0, 2).Select

сделать отдельной программой или функцией, чтобы вызывать ее необходимое количество раз.
Подскажите пожалуйста, как передать в функцию в качестве аргумента poz.Offset(m, 0)?

Например, вот так не получается

Public Function prov(poz1)
m = 0
Do
If poz1 <> poz1.Offset(m, 0) Then Exit Do
poz1.Offset(m, 2) = Date + k
m = m - 1

Loop
End Function

Вложения

Книга111.rar (7.5 Кб, 15 просмотров)

0

@dzug

Через активную ячейку
ActiveCell.Offset(m, 2).Activate = Date + k

1

@Sergey112233

dzug, спасибо

0