Notifications
Clear all

colar em abas

4 Posts
2 Usuários
0 Reactions
921 Visualizações
(@fabio-constan)
Posts: 1
New Member
Topic starter
 

Ola pessoal, sou novato no assunto excel, mas tenhu certeza que aqui poderei aprender muito...
criei uma tabela pra fazer um controle diario de entradas.. ainda nao lancei nada nessa planilha, como eu faria a copia em 31 abas de uma vez, simulando os 31 dias do mes ?
poderia ir copiando e colando, mas o intuito aqui é aprender né?? desde ja agradeço aos amigos ..

 
Postado : 18/03/2012 3:54 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Seja bem vindo!!

Use a pesquisa do fórum, a tempos atrás postei algo parecido.

O recurso que precisa, é por VBA, caso for postar algo parecido, poste no fórum correspondente.

Att

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

 
Postado : 18/03/2012 3:59 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!!

Considerando que tem uma planilha, onde os dados vem somente dela.

Sub Copiar_Dados_Varias_Abas()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name <> "Sua_Base" Then Worksheets("Sua_Base").Cells.Copy sh.Cells
    Next
End Sub

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

 
Postado : 20/03/2012 6:48 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

fabio, supondo que em seu arquivo você tenha somente a aba que servirá de modelo e pretendemos copia-la uma determinada quantidade de vezes renomeando-as.

Para testar a rotina proceda da seguinte forma, crie um novo arquivo somente com uma aba, altere o nome da Aba para "Modelo", abra o editor do VBA cole a rotina abaixo e execute, será solicitado a qde de vezes que pretende copiar a aba Modelo, preservando-a.

    Sub CopiasDaAbaModelo()
        Dim i As Long
        Application.ScreenUpdating = False
          
        x = InputBox("Entre o numero de vezes que quer copiar a aba Modelo")
        
          For i = 1 To x
            Sheets("Modelo").Copy After:=Sheets(Sheets.Count)
            Sheets("Modelo (2)").Name = "Dia - " & Format(i, "00")
        Next
        
        Application.ScreenUpdating = True
        
    End Sub

[]S

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

 
Postado : 20/03/2012 8:01 am