Este fórum está sendo desativado

[Suenne]

Caros, bom dia!

estou fazendo uma planilha de checklist de apartamentos e a partir do checklist quero montar um resumo para visualização.

Onde eu possa ver de maneira rápida os apartamentos que já possuem laudos e que já foram entregues.

Pensei em fazer uma condicional, porém o checklist está divido em várias abas e não consegui chegar em nenhuma solução.

Alguém pode me ajudar?

Obrigada.

[FelipeMGarcia]

Suenne,

Veja se o que fiz lhe ajuda.

Eu consolidei e deixei tudo em uma única base.

Abs

[alexandrevba]

Bom dia!!

Aqui vai um empurrão, agora fala sua adaptação.

Código: Selecionar todos

Sub AleVBA_4981()
Dim ws As Worksheet
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Application.ScreenUpdating = False
        Worksheets("Resumo").Cells.Clear
        With Range("A1:N1")
            .Value = Array("APT", "Pintura interna", "Pintura portas", "Pintura gradil", "Acabamentos", "Limpeza (1)", _
            "Maranhão", "Pintura", "Limpeza (2)", "Laudo feito?", "Laudo intra?", "Data vistoria", "Situação", "Obs.:")
            .Font.Bold = True
            .Font.ColorIndex = 2
            .Interior.ColorIndex = 1
        End With
        For Each ws In ActiveWorkbook.Worksheets
            If ws.Name <> "Resumo" Then
                ws.Range("A3:M20").Copy Sheets("Resumo").Cells(Rows.Count, "A").End(xlUp).Offset(1)
            End If
        Next
        
        With Range("A1:M1000")
            If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilter.Range.AutoFilter
            .AutoFilter field:=10, Criteria1:="="
            Range("A2:C" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
            .AutoFilter
        End With
    Application.ScreenUpdating = True
End Sub

Att

[Suenne]

Suenne,

Veja se o que fiz lhe ajuda.

Eu consolidei e deixei tudo em uma única base.

Abs

Bom dia pessoal!

gostei bastante da solução dos dois.

Felipe tenho uma dúvida, eu gostaria de continuar preenchendo em abas separadas, porque no dia a dia é mais simples pra preencher pois uso em um tablet. Tem como eu continuar preenchendo e mandar atualizar aquela base consolidada?

[Suenne]

Pessoal,

consegui evoluir um pouco mais aqui, porém as regras não estão funcionando como eu preciso.

Não consegui identificar o erro, podem me ajudar?

[FelipeMGarcia]

Suenne, você pode preencher em abas separadas desde que cole depois na aba consolidada, se fizer desta maneira, não tem problema, mas para efeito de filtros e análise, o mais fácil é consolidar as bases.