none
script para adicionar palavra em linhas de planilha excel ? RRS feed

  • Pergunta

  • Preciso de um script que adicione uma frase  depois da palavra carro( como exemplo ), em todas as linhas que contenham a palavra carro 
    domingo, 12 de março de 2017 21:18

Respostas

  • Boa tarde Compaqvisx.

    Sub PreencheTexto()

    Dim W As Worksheet
    Dim vRng As Range
    Dim vCel As Range
    Dim vPos As Long
    Dim vTexto As String
    Dim vTextoIncluir  As String

    Set W = Plan1
    W.Select

    Set vRng = W.UsedRange
    vTexto = InputBox("Qual a palavra a procurar?")
    vTextoIncluir = InputBox("Qual o texto a incluir após a palavra que for pesquisada?")

    If Not vTexto = Empty And Not vTextoIncluir = Empty Then
        
        For Each vCel In vRng
            
            vPos = InStr(1, UCase(vCel.Value), UCase(vTexto))
            vCel.Select
            
            If vPos > 0 Then
            
                vCel.Value = Trim$(Mid$(vCel.Value, 1, vPos + Len(vTexto)) & " " & vTextoIncluir & Mid$(vCel.Value, vPos + Len(vTexto), Len(vCel.Value)) & " ")
            
            End If
        
        
        Next vCel

    Else

        MsgBox "Um dos critérios em branco. Abortado"
        Exit Sub
        
    End If

    MsgBox "Processo concluído"

    End Sub

    • Marcado como Resposta compaqvisx terça-feira, 14 de março de 2017 00:05
    segunda-feira, 13 de março de 2017 18:02