Ячейка C13 автоматически увеличивается на 1 при печати. Я использую только ячейку C13 для автоматического приращения, но у меня есть ячейка E13 = имеет связанное значение из листа 3. Я хотел бы, чтобы значение E13 было установлено как максимальное значение для C13 в следующем VBA:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Long
Cancel = True
Application.EnableEvents = False
Application.Dialogs(xlDialogPrinterSetup).Show
With Sheets("Sheet3")
For i = 1 To .Range("B22").Value
.Range("C13").Value = .Range("C13").Value + 1
.PrintOut
Next i
End With
Application.EnableEvents = True
End Sub
Отредактированный источник и имена ячеек. Проблема в том, что макрос для работы на Sheet3 выдает ошибку отладчика 9.