Como escrevo uma macro para alterar uma lista de números para aumentar em cada planilha?

0

Eu tenho uma planilha que tem 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 escrevo a macro e onde coloco a macro? Estou perdida.

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 a cada vez.

Rosemarie Lee
fonte

Respostas:

0

Este poderia 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 VBA / Macros com ALT+ F11.

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

Ajustar as variáveis lastsheet, numbersPerPage, selectedColumne firstValueao seu gosto.

jcbermu
fonte