Добрый день!
Подскажите, пожалуйста, как сделать чтобы срабатывали оба счетчика одновременно. При нажатии на кнопку.
Один работает, а другой как сделать, чтобы сработал?
Файл во вложении

Shocker.Pro,

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

The_Prist,

Спасибо за ответ, но в предложенном варианте (мною тоже проделанном ранее) числа и сверху и снизу дублируются, а требуется чтобы числа сверху страницы вели отсчет с 274 (например), а снизу с 4(например). т.е. при изменении начального значения 274 на 542 и отправке на печать числа внизу продолжали увеличение с того значения на котором остановились

The_Prist,

СПАСИБО ОГРОМНОЕ! там еще в одном месте подправить надо! вот так получилось:
Private Sub CommandButton1_Click()
ListNumCell = "BG3"
ListNumCell2 = "AX32"
k = TextBox1.Value

Set cSh = ActiveSheet
lastrow = cSh.Cells.SpecialCells(xlLastCell).Row

' Считываем текущий номер
MaxNum = cSh.Range(ListNumCell).Value + 1 ' +1 выводим на печать начиная со следующего
MaxNum2 = cSh.Range(ListNumCell2).Value + 1
' Устанавливаем первый печатаемый номер
cSh.Range(ListNumCell).Value = MaxNum
cSh.Range(ListNumCell2).Value = MaxNum2
cSh.Copy before:=cSh
Set nSh = Sheets(cSh.Index - 1)
' один номер уже скопирован осталось k-1
For i = 1 To k - 1
' увеличиваем номер до печати
cSh.Range(ListNumCell).Value = MaxNum + i
cSh.Range(ListNumCell2).Value = MaxNum2 + i
cSh.Rows("1:" & lastrow).Copy
nSh.Rows(1).Insert Shift:=xlDown
nSh.HPageBreaks.Add before:=nSh.Rows(lastrow + 1)
Next i
Application.CutCopyMode = False
' печать листа без диалога печати
nSh.PrintOut
' удаляем временный лист без подтверждения
Application.DisplayAlerts = False
nSh.Delete
Application.DisplayAlerts = True
End Sub


работает!!!

Всем Спасибо!!

Еще маленький вопрос!
как сделать, чтобы на печать отправлялось и листы шли по порядку, в моем случае идут начиная с конца, приходится сортировать, а есть их около 1000 шт за раз....то проблема!