Ajuda com macro VBA

2024 - VBA & Macros

Post Recente por pieiro 1 ano atrás

3 Posts

2 Usuários

1 Reactions

539 Visualizações

RSS

pieiro

(@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

Sequenciador_SiST_Wk_25.xlsm

Postado : 24/06/2023 5:29 am

Osvaldomp

(@osvaldomp)

Posts: 857

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