dividir planilhas

cholas2525 · 24 de maio de 2012

Como dividir planilhas do Excel?

Se eu tenho uma planilha com 10000 linhas tem como eu dividir essa planilha em 5 planilhas de 2000 linhas?

jeffsilveira · 24 de maio de 2012

Cholas, com toda a certeza tem como dividir sua planilha sim.

Uma macro resolve o problema.

Dê mais detalhes do que você quer e poste um exemplo de sua planilha (use sendspace.com ou similar).

Precisamos saber quais os tipos de dados que estão presentes e se há fórmulas que criarão vínculos entre as planilhas e dificultarão o processo.

No aguardo.

Trafix · 24 de maio de 2012

Cholas,

Bom dia!

Será que uma função =PROCV() limitando as linhas com intervalo de 1 á 200 não resolveria seu problema?

Siga a dica do colega Jeffsilveira.

cholas2525 · 24 de maio de 2012

Cholas, com toda a certeza tem como dividir sua planilha sim.
Uma macro resolve o problema.

Dê mais detalhes do que você quer e poste um exemplo de sua planilha (use sendspace.com ou similar).

Precisamos saber quais os tipos de dados que estão presentes e se há fórmulas que criarão vínculos entre as planilhas e dificultarão o processo.

No aguardo.

Os dados são numeros e caracteres e não uso formulas. São 5 tipo de dados 4 numericos ocupando as colunas: A, B, C e D e um dado letras ocupando as colunas E, F e G

O problema é que são 10.000 linhas em uma unica planilha eu gostaria de dividir em 5 planilhas de 2000 linhas cada

jeffsilveira · 24 de maio de 2012

Como já disse, uma macro faz isso com eficácia.

Mas precisamos de um modelo de sua planilha, não sei como é o layout nem como estão distribuídos os dados.

Use informações fictícias, ninguém aqui tem o menor interesse em roubar informações, apenas ajudar.

cholas2525 · 24 de maio de 2012

Como já disse, uma macro faz isso com eficácia.
Mas precisamos de um modelo de sua planilha, não sei como é o layout nem como estão distribuídos os dados.

Use informações fictícias, ninguém aqui tem o menor interesse em roubar informações, apenas ajudar.

É uma planilha como essa só que com muito mais linhas

jeffsilveira · 24 de maio de 2012

Com esse código seu arquivo será dividido em tantas planilhas de 2000 linhas cada, sendo que a última planilha talvez não venha a ter 2000 linhas. Serão tantas planilhas quanto forem necessárias.

Sub DIVIDIR()
Application.ScreenUpdating = False
Do Until Range("A2001") = ""
Range("A2001:G" & Cells(Rows.Count, 1).End(xlUp).Row).Cut
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Loop
Application.ScreenUpdating = True
End Sub

No link abaixo usei 1000 linhas no total, dividindo em planilhas de 200 linhas cada e mantendo um cabeçalho na primeira linha:

http://www.sendspace.com/file/mv4awh

Dê retorno.

cholas2525 · 24 de maio de 2012

Com esse código seu arquivo será dividido em tantas planilhas de 2000 linhas cada, sendo que a última planilha talvez não venha a ter 2000 linhas. Serão tantas planilhas quanto forem necessárias.
Sub DIVIDIR()
Application.ScreenUpdating = False
Do Until Range("A2001") = ""
Range("A2001:G" & Cells(Rows.Count, 1).End(xlUp).Row).Cut
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Loop
Application.ScreenUpdating = True
End Sub
No link abaixo usei 1000 linhas no total, dividindo em planilhas de 200 linhas cada e mantendo um cabeçalho na primeira linha:

http://www.sendspace.com/file/mv4awh

Dê retorno.

Obrigado. Funcionou, porém a primeira planilha (que era a original) ficou com a quantidade total de linhas. A partir da linha 2000 ficaram linhas vazias, porém continua com as linhas. Eu preciso que delete as linhas vazias. Tem como fazer isso na própria macro?

jeffsilveira · 25 de maio de 2012

Não entendi o que você quis dizer com 'ficaram vazias mas com linhas'.

Você precisa ocultar essas linhas?

Se sim, use o código abaixo, acrescentei o comando para ocultar as linhas vazias abaixo das linhas preenchidas.

Sub DIVIDIR()
Application.ScreenUpdating = False
Do Until Range("A2001") = ""
Range("A2001:G" & Cells(Rows.Count, 1).End(xlUp).Row).EntireRow.Cut
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Range("A1").Select
Loop
For i = 1 To Sheets.Count
With Sheets(i)
.Range("A" & .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row & _
    ":A" & .Cells(Rows.Count, 1).Row).EntireRow.Hidden = True
End With
Next
Application.ScreenUpdating = True
End Sub