Notifications
Clear all

CRIANDO NOVA PLANILHA

4 Posts
3 Usuários
0 Reactions
887 Visualizações
(@barbatao)
Posts: 2
New Member
Topic starter
 

Pessoal, boa noite!

Estou com um problema, e acreditem: eu já tentei de tudo (dentro dos meus conhecimentos) e não consigo resolver.

É o seguinte: tenho uma planilha que insiro os dados, daí criei uma macro que pega esses dados e vai criando um banco de dados em outra planilha (na verdade é um relatório), o problema é que tenho um limite de dados de 39 linhas (e não posso mais inserir linha, pois ultrapassará o limite da impressão), a partir daí séria necessário, via macro, criar uma nova planilha e continuar gravando os dados, e assim sucessivamente. Por favor, me ajudem.

 
Postado : 17/03/2017 6:35 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Disponibilize o arquivo

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 17/03/2017 6:41 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Tente adaptar.

Sub AleVBA_23992()
Dim lastRow As Long, myRow As Long, mySheet As Worksheet
lastRow = ThisWorkbook.Sheets("AleVBA").Cells(Rows.Count, 1).End(xlUp).Row
    For myRow = 2 To lastRow Step 39
        Set mySheet = Worksheets.Add
        Sheets("AleVBA").Rows(myRow & ":" & myRow + 38).EntireRow.Copy mySheet.Range("A1")
    Next myRow
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/03/2017 8:33 pm
(@barbatao)
Posts: 2
New Member
Topic starter
 

Disponibilize o arquivo

Segue a baixo o link. Veja que preciso que todas as vezes que for gravas os dados, o codigo fazer a gravação na planilha que tenha espaço.

https://drive.google.com/open?id=0B407p ... jk1WU0zTGc

 
Postado : 18/03/2017 7:36 am