Notifications
Clear all

Ajuda com macro VBA

3 Posts
2 Usuários
1 Reactions
547 Visualizações
(@pieiro)
Posts: 7
Active Member
Topic starter
 

Bom dia,

Preciso de ajuda para criar uma macro VBA no Excel, tenho uma planilha com duas abas SI_Ind e Screw, o que eu pretendo é ativar o filtro na linha 4 no caso do filtro ainda não estar ativado nessa linha nas duas abas, depois na coluna U filtrar pela letra N nas duas abas SI_Ind e Screw (quer seja maiúscula quer seja minúscula), após isto, copia as linhas que ficam visíveis depois de filtrar e as colunas entre a coluna L e AA, depois cria uma nova aba e renomeia com o nome Report_Data ex: Report_24-06-2023 09:14:26 (dia-mês-ano hora), após criar a aba e renomear cola o conteúdo copiado na aba SI_Ind e por baixo deste conteúdo na linha seguinte cola o conteúdo copiado na aba Screw.

Desde já grato pela atenção e ajuda

pieiro

 
Postado : 24/06/2023 5:29 am
(@osvaldomp)
Posts: 858
Prominent Member
 

Experimente:

Sub ConsolidaPlanilhas()
Dim ws As Worksheet
Application.ScreenUpdating = False
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Report_" & Format(Now, "dd-mm-yyyy hh_mm_ss")
Sheets("Screw").[L4:Z4].Copy [A1]
For Each ws In Worksheets(Array("SI_Ind", "Screw"))
With ws
.AutoFilterMode = False
.Range("L4:Z4").AutoFilter 10, "N"
.AutoFilter.Range.Offset(1).Copy
Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
.ShowAllData
End With
Next ws
Columns("A:O").AutoFit
End Sub

Osvaldo

 
Postado : 24/06/2023 7:55 pm
(@pieiro)
Posts: 7
Active Member
Topic starter
 

@osvaldomp funciona perfeitamente, muito obrigado.

 
Postado : 28/06/2023 3:08 am
Osvaldomp reacted