Ir ao conteúdo
  • Cadastre-se
Rafael GGGuimaraes

RESOLVIDO Ajuda no excel

Recommended Posts

Pessoal, bom dia. 

 

Preciso da ajuda de vocês pra tentar automatizar um processo através do Excel, conforme exemplo na imagem.

 

Na primeira coluna existem células com a expressão "APAGAR" (conforme destacado em verde) e que devem ser desconsideradas na transferência para segunda coluna. Devo considerar apenas os valores que não contenha a expressão "APAGAR" e fazer com que elas sejam transferias para a segunda coluna sem conter células vazias entre uma e outra (conforme destacado em vermelho).

 

Existe algum jeito de fazer isso?

 

 

Agradeço o apoio.  

post-740468-0-88916900-1413374132_thumb.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Seja bem vindo ao forum. Abra a planilha, click c/ botao direito na aba (ex. "plan1"), em seguida em "exibir codigo" e cole o codigo abaixo.: E para executar a macro aperte as teclas (Alt+ F8).

 

Sub CopiaMenosAPAGAR()
    Dim i, uLa, uLb As Long
    uLa = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To uLa
        uLb = Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
        If IsEmpty(Cells(uLb - 1, 2)) Or Cells(uLb - 1, 2) = "" Then uLb = uLb - 1
        If Right(Range("a" & i), 6) <> "APAGAR" Then
            Range("b" & uLb) = Range("a" & i)
        End If
    Next
End Sub

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×