none
LOCALIZAR UM VALOR E INSERIR UMA LINHA A CIMA DO VALOR RRS feed

Todas as Respostas

  • @Pedro,

    Bem vindo ao fórum. Favor não colocar todas as palavras em maiúsculo ao postar uma dúvida.

    ---

    O código abaixo procura a palavra Texto na coluna A da planilha ativa e insere uma linha.

    Sub Main()
        Dim ws As Worksheet
        Dim rgSearch As Range
        
        Set ws = ActiveSheet
        Set rgSearch = ws.Columns("A").Find(What:="Texto", _
                                            After:=ActiveCell, _
                                            LookIn:=xlFormulas, _
                                            LookAt:=xlPart, _
                                            SearchOrder:=xlByRows, _
                                            SearchDirection:=xlNext, _
                                            MatchCase:=False, _
                                            SearchFormat:=False)
        If rgSearch Is Nothing Then
            MsgBox "Palavra não encontrada.", vbExclamation
            Exit Sub
        End If
        
        rgSearch.EntireRow.Insert
    End Sub


    http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG

    quinta-feira, 2 de fevereiro de 2017 12:41
    Moderador