Makro do drukowania partii formularzy Excel z kolejnymi numerami

0

Muszę wydrukować puste formularze zapotrzebowania i mieć kolejno jeden numer. Kiedy zamykam plik i otwieram ponownie, aby wydrukować następną partię, chcę, aby numeracja zaczęła się w miejscu, w którym skończyłem po poprzedniej partii. tj. prowadzę partię od 1 - 75; następna partia musi mieć 76–210; następna partia 211 - 300. Znalazłem twoje makro do numerowania, ale domyślnie wraca do 1 za każdym razem. To nie spełnia moich potrzeb. Oto co mam do tej pory. To działa, ale nie odbiera tam, gdzie skończyłem, zawsze zaczyna się od 1.

Sub PrintCopies_ActiveSheet()
Dim CopiesCount As Long
Dim Copynumber As Long
CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
For Copynumber = 1 To CopiesCount
With ActiveSheet
.Range("k11").Value = Copynumber
.PrintOut 'print the sheet
End With
Next Copynumber
End Sub
Jocelyn Park
źródło
„Znalazłem twoje makro” Kto jest makro? Czy odwołujesz się do innego pytania lub odpowiedzi na temat SU? jeśli tak, proszę zamieścić link do niego.
Ƭᴇcʜιᴇ007 28.10.16
Ahh, wygląda na to, że odnosisz się do tej odpowiedzi: superuser.com/a/203914/23133 , a twój kod jest funkcjonalnie identyczny, więc nie jest oczywiste, co próbowałeś dotychczas rozwiązać problem. Powiedzenie „Skopiowałem twój kod i nie działa zgodnie z oczekiwaniami” nie jest prawidłowym pytaniem SU. Ponieważ nie jesteśmy usługą pisania skryptów, edytuj swoje pytanie, aby uwzględnić to, co już próbowałeś poprawić, jakie były wyniki tych prób i podaj dokładnie to, co Cię denerwuje; w przeciwnym razie najprawdopodobniej zostanie zamknięty.
Ƭᴇcʜιᴇ007 28.10.16
Potrzebna jest zmienna dla numeru początkowego. Można to zrobić tak samo, jak w przypadku CopiesCount (zadając pytanie). Po uzyskaniu numeru początkowego wiersz For zmienia się na wartość CopyNumber = numer początkowy na CopiesCount +
numer początkowy