none
Copiar planinha com nome Sequencial RRS feed

  • Pergunta

  • Tenho uma arquivo.xls coma a seguinte condição: Plan1  é renomeado de 1, Plan2 é renomado de Resumo.

    Em Resumo eu copio o conteúdo de algumas células de 1. Preciso que uma macro faça a cópia de "1" com o nome de "2", insira uma linha em "Resumo" e copie as mesmas células na linha inserida só que como conteúdo de "2"

     

    EX: "1" C1 =1; C3=100; a planilha resumo copia tais células. Quando a macro for executada, insere uma linha em resumo e copia C1=3 ; C3=13 de "2".

     

    Será que fui claro????

     

     

    Ajudem -me !!!

     

    PS conheço muito pouco sobre macros!

     

    sexta-feira, 26 de agosto de 2011 19:45

Respostas

  • Caro Marcelo,

    para resolver seu problema você pode cirar um variavel publica que será incrementada, ou seja, uma variavel que receberá os numeros subsequentes (2,3,4...) e a mesma dará o nome da planilha.

        'criamos uma variavel n publica do tipo integer
        Public n As Integer
      
        Sub Criaplanilha()
        'criamos uma macro para criar copiar a planilha "1"

            n = n + 1

            'se n = 1 então some +1 ao valor de n
            If n = 1 Then
                n = n + 1
            End If

            'a nova planilha recebe o nome de n
                Sheets("1").Select
                Sheets("1").Copy Before:=Sheets(1)
                Sheets("1 (2)").Select
                Sheets("1 (2)").Name = n
                     
          
        End Sub


    Samuel Rodrigues Office Developer SENAI Areias Recife - PE
    terça-feira, 27 de setembro de 2011 22:47