¿Cómo escribo una macro para cambiar una lista de números para que aumente en cada hoja?

Question

Tengo una hoja de cálculo que tiene una lista de números en la columna 2. Necesito imprimir 50 hojas a la vez, y los números aumentan en cada hoja. Es decir, la hoja 1 comienza con 2834 y termina en 2848; la página siguiente comienza en 2849 y termina en 2863 y así sucesivamente. ¿Cómo escribo la macro y dónde la coloco? Estoy perdido.

Nunca escribí una macro ni usé una, pero estoy seguro de que esta sería la solución, además de imprimir cada página individualmente y cambiar los números cada vez.

Answer 1

Este podría ser un buen punto 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 con ALT+ F11.

En el lado izquierdo haga doble clic en La hoja de trabajo, en el lado derecho pegue el código.

Ajusta las variables lastsheet, numbersPerPage, selectedColumny firstValuea tu gusto.