Boa noite Oliveira,

Sim é possível.

Veja o código que está no módulo1 do arquivo em anexo.

Gerei uma tabela com alguns números aleatórios para o exemplo. Primeiro a macro vai pegar o número de linhas e descobrir
quantos arquivos serão necessário, depois vai copiar a área com os valores para a planilha chamada 'planilha1' e por fim salvar
no mesmo caminho que está o arquivo.

Teste e dê retorno.

att,

Experimente:

Sub GeraArquivos()
 Dim v As Long, LR As Long, c As String, wb As Workbook
 Dim cab As Variant, ws As Worksheet, n As Long
  Application.ScreenUpdating = False
  Set ws = ActiveSheet: n = 1
  cab = Range("A1:D1").Value
  LR = Cells(Rows.Count, 1).End(3).Row
   For v = 2 To LR Step 3000
    Set wb = Workbooks.Add(1)
     [A1].Resize(, 4).Value = cab
     [A2].Resize(3000, 4).Value = ws.Cells(v, 1).Resize(3000, 4).Value
     wb.SaveAs Filename:="C:SuaPastaNomeArquivo " & n
     wb.Close: n = n + 1
   Next v
  Application.ScreenUpdating = True
End Sub

obs. altere SuaPasta e NomeArquivo conforme desejado; caso você não queira salvar e fechar cada arquivo gerado exclua as duas linhas correspondentes no código.

brunoxro

Olá,
Muito obrigado pelo retorno!!

Testei com o seu arquivo e funcionou normalmente. Porém, tentei inserir o código em minha planilha e não está funcionando.

Estava dando erro na linha "Nlin = ws.Range("A1048575").End(xlUp).Row". Erro: "O método ''Range" do objeto '_Worksheet' falhou".

Alterei para A65536 e funcionou. Porém retornou erro na linha: "NCol = ws.Range("XAA1").End(xlToLeft).Column" com o mesmo erro.

Poderia me ajudar?
Coloquei o arquivo anexo. (Exlui alguns campos pois estava muito pesado).

Edit: Aproveitando, existe um modo que seja possível fazer o seguinte:

O arquivo possui 3 planilhas. Além de fazer essa divisão em 3mil na planilha1. Copiar as outras duas (planilha2, planilha3) para os próximos arquivos gerados.
É possível? Pois nesse caso, terei que copiar essas duas planilhas em todos os novos arquivos manualmente.

Estou trabalhando com esses dois tipos de arquivo. Uma com somente uma planilha (que vou usar oq vc já passou, somente identificar esse erro) e o outro com 3 planilhas que preciso mover as outras duas também.

A sua planilha original é igual a que vc esta disponibilizando?

A sua segunda parte nao é dificil porem é preciso ter as planilhas no seu modelo.

E necessario saber onde estao os dados para poder fazer a copia.

Boa noite Oliveira,

Você usa o Excel 2003? Como esses arquivos são xls, o número de linhas e colunas é menor.
No caso a correção para o erro é mudar para:

NCol = ws.Range("IV1").End(xlToLeft).Column

No arquivo em anexo já está corrigido.

Agora sobre as 3 planilhas que você falou, não entendi o que você precisa.
Você tem três planilhas, quer juntar em uma e depois gerar as várias planilhas com 3001 linhas?

att,

Boa noite bgoliveira

Como você é novato no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo, pois você anexou arquivo sem compactar, contrariando as regras do fórum.

viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador

brunoxro

Olá, obrigado pelo retorno!!
Para este primeiro caso, está resolvido, testei aqui!!

Somente uma coisa. Após dividir, os novos arquivos abrem desta forma, segue anexo. É normal?

Para o segundo caso, é o seguinte:
O arquivo de ContratoWF eu preciso que as abas "Mantis" e "ListaBorgs" sejam copiadas para os novos arquivos e somente a aba "Itens" seja dividida em 3mil e também inserida nos novos arquivos.

Boa tarde,

Esse erro não é comum, isso aconteceu porque no código para salvar em .xls tem que especificar. No arquivo em anexo o problema já está corrigido.

Teste o código que está no módulo1, fiz algumas alterações para salvar as planilhas junto com as linhas.

Uma dúvida, você precisa mesmo salvar em .xls? A sua versão de Excel não é a 2003 e os arquivos (esses gerados) em .xls são maiores.

att,

brunoxro

Boa tarde, deu tudo certo para os dois casos!!
Obrigado.

Eu utilizo o Office 2016, porém o sistema em que eu preciso subir as planilhas, aceita somente ".xls".

Somente uma última dúvida. Os novos arquivos que estou gerando, estão tendo uma planilha a mais no final, "Planilha1".
Além das abas "Mantis", "Itens" e "ListaBorgs", ele está gerando mais uma "Planilha1".
Não consegui identificar no código o motivo.
Coloquei anexo, com a minha versão com a planilha correta.

Boa noite Oliveira,

Veja o arquivo em anexo. Coloquei uma linha de código para deletar a 'Planilha1' dos arquivos gerados.

OBS: Caso o problema tenha sido resolvido, não esqueça de marcar o Tópico como Resolvido.

att,

brunoxro

Deu certo, muito obrigado!

Resolvido!