Este fórum está sendo desativado

[Aali123]

Boa tarde,

Gostaria de saber se existe algum código de VBA que consiga separar em arquivos diferentes as sheets por um determinado padrão.
Exemplo ilustrativo: tenho as sheets AD0101, AD0102, AD0103, AD0201 e AD0202. Gostaria de separa-las automaticamente em arquivos diferentes pelas duas primeiras letras e dois primeiros números. Assim a separação seria em um arquivo teria AD0101, AD0102, AD0103 e em outro AD0201 e AD0202.

Obs: caso não esteja claro, posso explicar de outras formas

Muito obrigada!

[gfranco]

Bom dia.
Pelo seu exemplo posso imaginar que é o 4° caracter que irá servir como referência para separar as planilhas em arquivos distintos,certo?
Se sim, pergunto:
Qual o padrão para os nomes dos arquivos gerados?
Esses novos arquivos gerados serão xlsx ou xlsm?
Sugiro postar um modelo de sua planilha (com dados fictícios ou mesmo sem nenhum dado, MAS MESMA ESTRUTURA).

[alexandrevba]

Bom dia!!

Use:

Código: Selecionar todos

Sub SheetsToBooks()
'Jerry Beaucaire  (10/22/2009)
'Creates a separate workbook for each sheet, saved with sheetname + Date
'Fonte: https://sites.google.com/a/madrocketscientist.com/jerrybeaucaires-excelassistant/parse-functions/each-sheet-to-wb
Dim ws As Worksheet, savePath As String, MyStr As String

savePath = "C:\aleVBA\Downloads\"   'do not forget the closing \ in this string

    For Each ws In ThisWorkbook.Worksheets
        MyStr = ws.Name '& " " & Format(Date, "mm-dd-yy")
        ws.Copy        'copies sheet to new workbook
        Cells.Copy     'removing all formulas
        Range("A1").PasteSpecial xlPasteValues
        ActiveWorkbook.SaveAs Filename:=savePath & MyStr, FileFormat:=xlNormal
        'ActiveWorkbook.SaveAs SvPath & MyStr & ".xlsx", 52     'Use this for Excel 2007 or greater
        ActiveWorkbook.Close False
    Next ws

End Sub

Fonte:https://sites.google.com/a/madrocketsci ... heet-to-wb
Att

[Aali123]

Segue o arquivo exemplo, gostaria em separar em arquivos diferentes, as abas que iniciam com a mesmas 2 letras e 2 palavras (para ser mais fácil de vizualisar, deixei as sheets pintadas).
Obrigada!!