Ir ao conteúdo
  • Cadastre-se

Ajuda no excel


Ir à solução Resolvido por Basole,

Posts recomendados

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.

Link para o comentário
Compartilhar em outros sites

  • Solução

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
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...