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)
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?
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)
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