locked
TROCAR NOME DA ABA E INSERIR UM PLANILHA NO ARQUIVO COM MACRO

    Question

  • Ola Pessoal

    Tenho algumas duvidas que acredito serem ate bobinhas, mas estou achando complicado, aqui sao elas:

    1. Como eu faco para somente trocar o nome da minha planilha na Aba de planilhas, por exemplo eu quero que ao inves de se chamar Plan1 troque para "Lista de Cobranca".

    2. Para auxiliar a planilha1, (Lista de Cobranca), eu preciso que o excel puxe do diretorio um outra planilha e coloque na posicao 2, na aba de planilhas, que seria a Legenda da Cobranca, mas é somente colocar uma tabela alia, para quem form mexer na tabela um, possa saber o que sao os codigos de cobranca.

    Voce poderiam me ajudar nesses 2 problemas??

    Desde ja obrigado

    Mateus

     

    Wednesday, July 28, 2010 7:34 AM

Answers

  • Fácil Mateus,

     

    1. Clique com o mouse duas vezes na aba Plan1, que o nome será editado. Então você pode colocar o nome que quiser.

     

    Com uma macro você deve dar o comando sheets("Plan1").name = "Nome da planilha"

     

    2. Quanto a outra planilha, abra o arquivo que contém a pasta com as legendas e arraste-a com o mouse para a planilha onde está a lista de cobrança.

    Com uma macro você pode fazer:

     

        Workbooks.Open FileName:="arquivolegendas.xls"
        Sheets("Legendas").Move After:=Workbooks("Lista de Cobrança").Sheets("Nome da planilha")
     

     

    Crfa.

     

    Tuesday, August 24, 2010 10:00 PM

All replies

  • Fácil Mateus,

     

    1. Clique com o mouse duas vezes na aba Plan1, que o nome será editado. Então você pode colocar o nome que quiser.

     

    Com uma macro você deve dar o comando sheets("Plan1").name = "Nome da planilha"

     

    2. Quanto a outra planilha, abra o arquivo que contém a pasta com as legendas e arraste-a com o mouse para a planilha onde está a lista de cobrança.

    Com uma macro você pode fazer:

     

        Workbooks.Open FileName:="arquivolegendas.xls"
        Sheets("Legendas").Move After:=Workbooks("Lista de Cobrança").Sheets("Nome da planilha")
     

     

    Crfa.

     

    Tuesday, August 24, 2010 10:00 PM
  • Oi Crfa,

    Nossa, muito obrigado pelas dicas. Foram muito uteis e funcionaram certinho. Agora estou com outro probleminha, de uma olhada no codigo abaixo:

     

          If Range("AH2") = 600 Then
                    ActiveWorkbook.SaveAs Filename:="C:\Dokumente und Einstellungen\u7769\Desktop\0600\" & Datum & "_0600_Mahnstatisk " & Datum2 & ".xls", FileFormat:=xlNormal, ReadOnlyRecommended:=False, CreateBackup:=False
                   
                    ChDir "T:\MVV\VV\VV.G\VV.G.2\- VV.G.2 OPL und Mahnprozess\Mahnliste"
                    Workbooks.Open Filename:="T:\MVV\VV\VV.G\VV.G.2\- VV.G.2 OPL und Mahnprozess\Mahnliste\Legende.xls"
                    Sheets("Legende").Select
                    Sheets("Legende").Copy Before:=Workbooks(" & Datum & "_0600_Mahnstatisk " & Datum2 & ".xls").Sheets(3)
                Application.CutCopyMode = False
                ActiveWorkbook.Save
                 End If

    Eu preciso copiar e colar uma tabela no arquivo com o nome acima e tipo, o VBA nao aceita, voce poderia me ajudar?

    Abracos

    Mateus

     

     

    Friday, August 27, 2010 7:40 AM
  • Mateus,

    Essa parte está estranha:

    Workbooks(" & Datum & "_0600_Mahnstatisk " & Datum2 & ".xls")

    Observe que o caminho da pasta de trabalho está começando com & Datum &

    No VBA, as variáveis devem ficar fora das aspas.

     


    http://www.ambienteoffice.com.br
    Saturday, August 28, 2010 10:58 AM
  • Felipe,

    Muito obrigado. Estava tropecando em minhas proprias pernas... brigadao mesmo.

    Agora tenho outra duvida.

    Eu preciso puxar algumas formulas para a minha tabela, e nao consigo, nem escrevendo direto na macro e tbm nao puxando de um arquivo txt, vc saberia me explicar o pq, para entender melhor, vai os codigos:

    ---- Direto da macro: ----

    Cells(2, 16) = "SVERWEIS(J2;[KAM.xls]Tabelle1!$C:$D;2;FALSCH)"
    Cells(2, 2) = "SVERWEIS(A2;'T:\- VV.G.2 OPL und Mahnprozess\Mahnliste\[Legende.xls]Legende'!$A$5:$C$35;2;FALSCH)"

    ------------------------------

    ---- Puxando de um arquivo txt: -----

     QualArquivo = Application.GetOpenFilename("Arquivos de texto (*.txt),*.txt", , "Escolha o arquivo")

     Open QualArquivo For Input As #1   

           Line Input #1, Linha ' Lê a linha para a variável.
           Cells(2, 4) = Linha

        Close #1    ' Fecha o arquivo txt

    -----------------------------------------

    Outra duvida se eu colocar o Line Input #2 ele busca a segunda linha do arquivo texto???

    Se puder me ajudar... ficaria muito agradeci

    Brigadao

    Mateus

    Obs.: SVERWEIS é o mesmo que o PROCV só que em alemao.

     

     


      

    Monday, August 30, 2010 11:04 AM
  • Olá Mateus,

    Vamos por partes.

    Para colocar uma fórmula através de VBA, você deve dar o seguinte código:

    Sheets("sua pasta").Range("seu range").Formula = "=VLOOKUP(J2;[KAM.xls]Tabelle1!$C:$D;2;FALSE)"

    Particularmente eu acho muito trabalhoso uilizar referências estáticas, do tipo "J2". É mais fácil usar a referência RC (linha coluna) e neste caso, no lugar de " .formula" use " .formulaR1C1" . O código em vba deve ser em inglês e nunca em outra língua.

    Quanto ao line input #2, sim, você busca a segunda linha do arquivo, uma vez que ele é sequencial.

     

    Monday, August 30, 2010 5:29 PM
  • Olá Crfa e Felipe,

    Primeiramente, gostaria de agradecer ambos, pois com as dicas e solucoes aqui mencionadas, estou conseguindo fazer uma macro melhor do que esperava, desde já agradeco muito pela ajuda de vcs.

    Agora, bem, tenho mais duvidas, Crfa eu acho que sei, mas nao estou certo de como faco formulas RC, seria fazendo referencia a linha e a colunas no VBA? como ficaria a formula acima nesta situacao?

    Outra detalhe, como é um arquivo diario o nome do meu Sheets, todo os dias tem um nome diferene, aqui usamos: '100901_Mahnliste_31.08.2010 ', que no caso é os dados do dia 31.agosto, retirados no dia 01.sete e Mahnliste é lista de cobranca em alemao tbm.. :-).

    Eu poderia fazer como fiz acima para as tabelas:

    ( & Datum & "_0600_Mahnstatisk " & Datum2 & ".xls")

    Datum seria YYMMDD e Datum2 seria DD.MM.YYYY

    Outro problema é que fiz uma formlua muito grande e nao sei se o excel vai aceitar, veja o tamanho:

    " WENN(A2=10;SVERWEIS(C2;'T:\MVV\VV\VV.G\VV.G.2\- VV.G.2 OPL und Mahnprozess\Mahnliste\[Legende.xls]Legende'!$C$5:$D$9;2;FALSCH);WENN(A2=20;SVERWEIS(C2;'T:\MVV\VV\VV.G\VV.G.2\- VV.G.2 OPL und Mahnprozess\Mahnliste\[Legende.xls]Legende'!$C$10:$D$13;2;FALSCH);WENN(A2="I1";SVERWEIS(C2;'T:\MVV\VV\VV.G\VV.G.2\- VV.G.2 OPL und Mahnprozess\Mahnliste\[Legende.xls]Legende'!$C$14:$D$17;2;FALSCH);WENN(A2="I2";SVERWEIS(C2;'T:\MVV\VV\VV.G\VV.G.2\- VV.G.2 OPL und Mahnprozess\Mahnliste\[Legende.xls]Legende'!$C$18:$D$21;2;FALSCH);WENN(A2="K1";SVERWEIS(C2;'T:\MVV\VV\VV.G\VV.G.2\- VV.G.2 OPL und Mahnprozess\Mahnliste\[Legende.xls]Legende'!$C$22:$D$26;2;FALSCH);WENN(A2="R1";SVERWEIS(C2;'T:\MVV\VV\VV.G\VV.G.2\- VV.G.2 OPL und Mahnprozess\Mahnliste\[Legende.xls]Legende'!$C$27:$D$29;2;FALSCH);WENN(A2="SA";SVERWEIS(C2;'T:\MVV\VV\VV.G\VV.G.2\- VV.G.2 OPL und Mahnprozess\Mahnliste\[Legende.xls]Legende'!$C$30:$D$34;2;FALSCH);"Irrelevant")))))))"

    WENN - Se.

    Outra coisa aqui, é que o Office é em alemao, tive que buscar na internet uma traducao ingles-alemao de todas as formulas srsrs.

    Bem se puder me ajudar, ficaria muito agradecido

    Abracos

    Mateus

     

     

    Wednesday, September 01, 2010 6:45 AM
  • Mateus,

     

    Para traduzir uma fórmula do alemão para o inglês, experimente:

    1 - Ative o gravador de macros do Excel ;

    2 - Escreva uma fórmula qualquer na planilha ;

    3 - Interrompa o gravador de macros ;

    Pronto, se você acessar o VBE, verá que o Excel gravou as fórmulas que você digitou em alemão, mas traduzidas para o inglês.


    http://www.ambienteoffice.com.br
    Friday, September 03, 2010 8:29 PM
  • Pessoal,

     

    Pelo post percebi que todos que e participaram são muito prestativos logo queria aproveitar esse mesmo post para colocar minha dúvida também , em

    relação planilha que fiz, pois ja abri um post anteriormente e ninguém me repondeu.

     

    Teria como me ajudarem?

    É o seguinte criei uma planilha que busca dados em outra planilha seprada atraves de macros pela formula PROCV, até ae tudo bem mas depois surgiu a

    nescessidade de se usar a variavel %USERPROFILE% e inseri-la na formula PROCV.  Pois usuário de outro micros, em rede, irão acessar a planilha também 

    e preciso que cada um use os dados da outra "planilha separada" que esta salva na pasta do perfil de cada um destes usuários

     

    Segue abaixo a macro que criei:

     

    Sub busca_dados()
    '
    ' busca_dados Macro
    '

    '
    Dim sPathUser As String
    sPathUser = Environ$("USERPROFILE") & "\Documents\My Dropbox\BD_CPE\Clientes\"
    ActiveCell.FormulaR1C1 = form
        Sheets("Plan1").Select
        Range("G7").Select
        ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(Plan1!R[-5]C," & sPathUser & "[dados.xls]Plan1'!R1C1:R2211C8,4)"
    End Sub

    Wednesday, January 12, 2011 6:58 PM
  • "Pelo post percebi que todos que e participaram são muito prestativos logo queria aproveitar esse mesmo post para colocar minha dúvida também , em

    relação planilha que fiz, pois ja abri um post anteriormente e ninguém me repondeu."

    Olá, poderia nos passar o link desse post?


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    Wednesday, January 12, 2011 9:02 PM