Como eu escrevo uma macro para alterar uma lista de números para que ela aumente em cada folha?

Question

Eu tenho uma planilha com uma lista de números na coluna 2. Preciso imprimir 50 folhas por vez, com os números aumentando em cada folha. Ou seja a folha 1 começa com 2834 e termina em 2848; a próxima página começa em 2849 e termina em 2863 e assim por diante. Como eu escrevo a macro e onde coloco a macro? Estou perplexo.

Nunca escrevi uma macro ou usei uma, mas tenho certeza de que essa seria a solução, além de imprimir cada página individualmente e alterar os números de cada vez.

    

Answer 1

Esse pode ser um bom ponto de partida

Public Sub LotOfNumbers()
    lastSheet = 50
    numbersPerPage = 10
    selectedColumn = 2
    firstValue = 3000
    Dim wkb As New Workbook
    Dim wks As New Worksheet
    Set wkb = ThisWorkbook
    totalwks = Application.Sheets.Count
    i = 1
    actualValue = firstValue
    While i <= lastSheet
        If i <= totalwks Then
            Set wks = wkb.Sheets(i)
        Else
            wkb.Sheets.Add After:=Worksheets(Worksheets.Count)
        End If
        For j = 1 To numbersPerPage
            Cells(j, selectedColumn) = actualValue
            actualValue = actualValue + 1
        Next j

        i = i + 1
    Wend

End Sub

Abra o VBA / Macros com ALT + F11 .

No lado esquerdo, clique duas vezes em A planilha, no lado direito, cole o código.

Ajuste as variáveis lastsheet , numbersPerPage , selectedColumn e firstValue de acordo com o seu gosto.