Página 1 de 1
Iniciante | Ao Criar um novo arquivo a partir do Doc Exce
Enviado: 20 Mai 2022 às 11:54
por atcgfc
Boa tarde,
Junto o documento em anexo para quem quiser ajudar poder tirar alguma dúvida.
O que pretendo é que ao salvar o arquivo, ele separe os dados - através de abas no novo arquivo pelo nome dos Faturadores coluna F.
Cumprimentos,
Re: Iniciante | Ao Criar um novo arquivo a partir do Doc Exce
Enviado: 20 Mai 2022 às 13:07
por osvaldomp
Experimente:
Código: Selecionar todosSub CriarArquivoV2()
Dim fat As Range, LR As Long
With ActiveSheet
.AutoFilterMode = False
LR = .Cells(Rows.Count, 1).End(3).Row
.Range("F2:F" & LR).Copy .[W1]
.Range("W1:W" & LR).RemoveDuplicates Columns:=1
For Each fat In .Range("W1:W" & .Cells(Rows.Count, 23).End(3).Row)
.AutoFilterMode = False
.Range("A1:F1").AutoFilter 6, fat.Value
Sheets.Add(after:=Sheets(Sheets.Count)).Name = fat.Value
.Range("A1:F" & LR).Copy [A1]
Columns("A:F").AutoFit
Next fat
Application.DisplayAlerts = False
.Delete
End With
ThisWorkbook.SaveAs Filename:="ErrosCálculo" & Format(Date, "ddmmyyyy") & ".xls"
'ThisWorkbook.Close
End Sub
Re: Iniciante | Ao Criar um novo arquivo a partir do Doc Exce
Enviado: 22 Mai 2022 às 17:34
por atcgfc
Funcionou muito obrigado pela ajuda.
Re: Iniciante | Ao Criar um novo arquivo a partir do Doc Exce
Enviado: 23 Mai 2022 às 05:59
por atcgfc
Olá @osvaldomp
Ao transpor o código para esta sheet não funcionou, consegues dizer-me porquê ?
Tou a tentar perceber o código.
Deixo aí o ficheiro e muito obrigado por tudo