Página 1 de 1
Checklist vistoria
Enviado: 11 Jul 2017 às 07:32
por 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.
Re: Checklist vistoria
Enviado: 11 Jul 2017 às 08:20
por FelipeMGarcia
Suenne,
Veja se o que fiz lhe ajuda.
Eu consolidei e deixei tudo em uma única base.
Abs
Re: Checklist vistoria
Enviado: 11 Jul 2017 às 08:42
por alexandrevba
Bom dia!!
Aqui vai um empurrão, agora fala sua adaptação.
Código: Selecionar todosSub 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
Re: Checklist vistoria
Enviado: 11 Jul 2017 às 09:35
por Suenne
FelipeMGarcia escreveu: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?
Re: Checklist vistoria
Enviado: 11 Jul 2017 às 11:20
por 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?
Checklist vistoria
Enviado: 11 Jul 2017 às 12:59
por 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.