Como criar o número +1 da folha anterior

2

Eu quero copiar uma única pasta para várias folhas na mesma pasta de trabalho com macros, sei como fazê-lo, mas ainda tenho outra pergunta.

Estou usando a fórmula:

Sub Button3_Click()
Dim x As Integer
Dim y As Integer
x = InputBox("How many copies you want?")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

Digamos que eu copie uma única folha em novas 5 folhas. O nome das folhas será:

Sheet 1 | Sheet 1 (2) | Sheet 1 (3) | Sheet 1 (4) | Sheet 1 (5) | Sheet 1 (6) 

O que eu quero é:

the formula in the "Sheet 1 (2)" Cell A1 is "='Sheet 1'A1+1" and 
the formula in the "Sheet 1 (3) cell A1 is "='Sheet 1 (2)'A1+1: and 
the formula in the "Sheet 1 (4) cell A1 is "='Sheet 1 (3)'A1+1: and
the formula in the "Sheet 1 (5) cell A1 is "='Sheet 1 (4)'A1+1: and

Ou qualquer que seja a fórmula, eu só quero que a próxima célula da planilha A1 se refira ao número com +1 da planilha anterior. (Assim como as páginas).

Eu quero saber como fazê-lo especialmente no Excel 2003?

    
por Ricky 11.07.2013 / 06:08

2 respostas

0

Em Sheet 1 (2) em A1 digite

=SUM(Sheet 1!A1,1)

E, respectivamente, para outras planilhas.

Para o LibreOffice, seria

=SUM(Sheet 1.A1,1)
    
por 11.07.2013 / 08:11
0

Experimente esta adição ao seu código:

Sub Button3_Click()
Dim x As Integer
Dim y As Integer, tmpSheet As Worksheet
x = InputBox("How many copies you want?")
For numtimes = 1 To x
    ActiveWorkbook.Sheets("Sheet1").Copy _
    After:=ActiveWorkbook.Sheets("Sheet1")
Next
For y = 2 To x + 1
    Set tmpSheet = ActiveWorkbook.Sheets("Sheet1 (" & y & ")")
    If y = 2 Then
        tmpSheet.Range("A1").Formula = "='Sheet1'!A1 + 1"
    Else
        tmpSheet.Range("A1").Formula = "='Sheet1 (" & y - 1 & ")'!A1 + 1"
    End If
Next y
End Sub
    
por 11.07.2013 / 23:05