none
substituir vínculos (macro) RRS feed

  • Pergunta

  • 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

  • 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