Este fórum está sendo desativado

[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,

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub 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

[atcgfc]

Funcionou muito obrigado pela ajuda.

[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