Boa tarde!!

Sinceramente eu não entendi o que você precisa!

Att

Boa tarde!!

Sinceramente eu não entendi o que você precisa!

Att

Então alexandre, eu preciso criar uma nova aba de acordo com as abas que já tem á, certo? Cafeteria, Copa etc etc...
eu preciso lançar varios check lists de outros andares pra chegar no total de itens avaliados, porntuação e tudo mais..
Ex:
Data Local Pavimento Itens Avaliados Pontuação Máxima Pontuação Registrada Avaliação Inspeção do Dia
21/09/2017 Área de Escritório 16º ANDAR - TORRE LESTE 19 76 64 84,21%
19/09/2017 Área de Escritório 19 º ANDAR - TORRE LESTE 19 76 75 98,68%
14/09/2017 Área de Escritório 20º ANDAR - TORRE OESTE 18 72 72 100,00%

Aí blz. só que criaria abas através do check list principal, sendo assim ficaria "Área de Escritorio (2) ..3.. blabla de acordo com os andares que eu fizer a inspeção.

Só que pra nao ficar preenchendo, eu precisava (como ja criei) ali uma aba que puxasse esse check list e eu só iria preenchendo os numeros, porém na aba de Resultados, já puxasse os itens como data, pavimento, itens avaliados e tudo mais, sem que eu tenha que preencher tudo a mão, entende?

Total itens avaliados: 33
PONTUAÇÃO MÁXIMA 132
PONTUAÇÃO REGISTRADA 130
AVALIAÇÃO DA ÁREA 98,48%

a aba de resultados puxa os dados do check list no final. então eu queria que a acada aba que eu criasse e fosse criada uma nova linha e puxasse esses resultados.
Veja se conseguiu entender um pouco melhor com o print também!

Pq nao coloca tudo em uma aba e depois filtra se necessario.

Como dizem por aqui separar é mais facil que juntar.

Bom dia!

Teste e veja se tem algo que possa aproveitar, pois ainda estou boiando

Sub Ainda_Nao_Entendi()
    Application.ScreenUpdating = False
        Worksheets("Cafeteria").Copy After:=Sheets(Sheets.Count)
        Worksheets("Resultado").Select
        Const sFormula1 As String = "='ÁREA DE ESCRITÓRIO'!E1"
        Const sFormula2 As String = "='ÁREA DE ESCRITÓRIO'!B4"
        Const sFormula3 As String = "='ÁREA DE ESCRITÓRIO'!D1"
        Const sFormula4 As String = "='ÁREA DE ESCRITÓRIO'!F56"
        Const sFormula5 As String = "='ÁREA DE ESCRITÓRIO'!F57"
        Const sFormula6 As String = "='ÁREA DE ESCRITÓRIO'!F58"
        Const sFormula7 As String = "=IFERROR((F4/E4),""-"")"
         
        With Worksheets("Resultado")
            With Range("A4:G4")
                .Offset(1).Insert shift:=xlDown
            End With
            .Range("A5").FormulaArray = sFormula1
            .Range("B5").FormulaArray = sFormula2
            .Range("C5").FormulaArray = sFormula3
            .Range("D5").FormulaArray = sFormula4
            .Range("E5").FormulaArray = sFormula5
            .Range("F5").FormulaArray = sFormula6
            .Range("G5").FormulaArray = sFormula7
        End With
        
        Application.CutCopyMode = False
        Worksheets("CAFETERIA (2)").Range("F71").Copy
    Application.ScreenUpdating = True
End Sub

Att

Bom dia!

Teste e veja se tem algo que possa aproveitar, pois ainda estou boiando

Sub Ainda_Nao_Entendi()
    Application.ScreenUpdating = False
        Worksheets("Cafeteria").Copy After:=Sheets(Sheets.Count)
        Worksheets("Resultado").Select
        Const sFormula1 As String = "='ÁREA DE ESCRITÓRIO'!E1"
        Const sFormula2 As String = "='ÁREA DE ESCRITÓRIO'!B4"
        Const sFormula3 As String = "='ÁREA DE ESCRITÓRIO'!D1"
        Const sFormula4 As String = "='ÁREA DE ESCRITÓRIO'!F56"
        Const sFormula5 As String = "='ÁREA DE ESCRITÓRIO'!F57"
        Const sFormula6 As String = "='ÁREA DE ESCRITÓRIO'!F58"
        Const sFormula7 As String = "=IFERROR((F4/E4),""-"")"
         
        With Worksheets("Resultado")
            With Range("A4:G4")
                .Offset(1).Insert shift:=xlDown
            End With
            .Range("A5").FormulaArray = sFormula1
            .Range("B5").FormulaArray = sFormula2
            .Range("C5").FormulaArray = sFormula3
            .Range("D5").FormulaArray = sFormula4
            .Range("E5").FormulaArray = sFormula5
            .Range("F5").FormulaArray = sFormula6
            .Range("G5").FormulaArray = sFormula7
        End With
        
        Application.CutCopyMode = False
        Worksheets("CAFETERIA (2)").Range("F71").Copy
    Application.ScreenUpdating = True
End Sub

Att

Alexandre, mais ou menos isso sim!

Só que por exemplo, como eu crio um botao da cópia da aba da Cafeteria, por exemplo, como faria para puxar os demais check lists que eu for criando?
sem eu ter que mudar na fórmula, gostaria que fosse automatico pra cada check list.. (cafeteria (2)..cafeteria (3) e asim por diante.

'Worksheets("Cafeteria").Copy After:=Sheets(Sheets.Count)
Const sFormula1 As String = "='Cafeteria (2)'!E1"
Const sFormula2 As String = "='Cafeteria (2)'!B4"
Const sFormula3 As String = "='Cafeteria (2)'!D1"
Const sFormula4 As String = "='Cafeteria (2)'!F71"
pq essa fórmula só puxa da (2) e mesmo que abra mais Abas (3), (4) etc..
quero que puxe assim os valores para cada aba criada.