none
substituir vínculos (macro) RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    o que estou fazendo de errado, criei um botão  e inseri a macro abaixo, porem ele não executa, quero substituir os vínculos

     'H:\Orçto\2015\ por -->  'H:\Orçto\2015R\

    hoje eu utilizo Ctrl + U e faço manualmente, o problemas é que são muitas planilhas e gostaria de fazer em massa.

    Sub removerUnderline()
        Sheets("check") = Replace(Range("A1:AA100"), "'H:\Orçto\2015\", "'H:\Orçto\2015R\")
    End Sub

    sexta-feira, 22 de maio de 2015 14:04
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Tente: 

        Dim rArea As Range
    
    Set rArea = Worksheets("check").Cells("A1:AA100")
    rArea.Replace What:="'H:\Orçto\2015\", _
                  Replacement:="'H:\Orçto\2015R\", _
                  LookAt:=xlPart

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 26 de maio de 2015 02:33
    |
    Moderador