Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
elcosta002

[Resolvido] Macro Deletar,Substituir

Recommended Posts

Boa noite

Estive procurando macros prontas na internet para realizar estas 3 funções que creio que sejam básicas, mais não estou conseguindo sucesso com a adaptação dessas macros.Muito obrigado a quem puder ajudar.

http://www.sendspace.com/file/os7411

Primeira macro

DELETAR TUDO QUE NA COLUNA ''I'' <> DE SOROCABA

Segunda macro

DELETAR TUDO QUE NA COLUNA ''T'' <> DIFERENTE

CSAV LONCOMILLA

CAP HARALD

CAP ISABEL

CAP HENRI

CAP IRENE

CAP IRENE

CSAV LAJA

CAP JERVIS

CSAV JERVIS

CSAV LONCOMILLA

LIMARI

CSAV LIMARI

Terceira Macro

TRANSFORMAR TUDO NA COLUNA ''T''

CSAV LONCOMILLA = Loncomilla

CAP HARALD = Harald

CAP ISABEL = Isabel

CAP HENRI = Henri

CAP IRENE = Irene

CSAV LAJA = Laja

CAP JERVIS = Jervis

CSAV JERVIS = Jervis

CSAV LIMARI = Limari

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite!!

Tente

Option Explicit

Public Sub ZinhoVBA_1138739()
Dim iLastRow&, i&
iLastRow = Cells(Rows.Count, "T").End(xlUp).Row
For i = iLastRow To 2 Step -1
Select Case Cells(i, "T").Value
Case "CSAV LONCOMILLA"
Case "CAP HARALD"
Case "CAP ISABEL"
Case "CAP HENRI"
Case "CAP IRENE"
Case "CAP IRENE"
Case "CSAV LAJA"
Case "CAP JERVIS"
Case "CSAV JERVIS"
Case "CSAV LONCOMILLA"
Case "LIMARI"
Case "CSAV LIMARI"
Case Else
Rows(i).Delete
End Select
If Cells(i, "I").Value = "SOROCABA" Then Rows(i).EntireRow.Delete
Next i
End Sub

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Zinho Obrigado pela resposta

A macro está funcionando mais acho que eu não fui claro nas especificações

Precisava que na coluna ''I'' deletasse tudo menos ''Sorocaba''.

Que na Coluna ''T'' deletar tudo que é diferente de.

CSAV LONCOMILLA

CAP HARALD

CAP ISABEL

CAP HENRI

CAP IRENE

CAP IRENE

CSAV LAJA

CAP JERVIS

CSAV JERVIS

CSAV LONCOMILLA

LIMARI

CSAV LIMARI

E por ultimo ajustar as informações da coluna ''T''

CSAV LONCOMILLA = Loncomilla

CAP HARALD = Harald

CAP ISABEL = Isabel

CAP HENRI = Henri

CAP IRENE = Irene

CSAV LAJA = Laja

CAP JERVIS = Jervis

CSAV JERVIS = Jervis

CSAV LIMARI = Limari

Option Explicit

Public Sub ZinhoVBA_1138739()

Dim iLastRow&, i&

iLastRow = Cells(Rows.Count, "T").End(xlUp).Row

For i = iLastRow To 2 Step -1

Select Case Cells(i, "T").Value

Case "CSAV LONCOMILLA"

Case "CAP HARALD"

Case "CAP ISABEL"

Case "CAP HENRI"

Case "CAP IRENE"

Case "CAP IRENE"

Case "CSAV LAJA"

Case "CAP JERVIS"

Case "CSAV JERVIS"

Case "CSAV LONCOMILLA"

Case "LIMARI"

Case "CSAV LIMARI"

Case Else

Rows(i).Delete

End Select

If Cells(i, "I").Value = "SOROCABA" Then Rows(i).EntireRow.Delete

Next i

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom dia!!

Mude linha

If Cells(i, "I").Value = "SOROCABA" Then Rows(i).EntireRow.Delete

Para

If Cells(i, "I").Value <> "SOROCABA" Then Rows(i).EntireRow.Delete

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Zinho obrigado

Eu já abusando da sua boa vontade eu queria mudar os nomes com a Macro, poderia me ajudar com isso.

CSAV LONCOMILLA = Loncomilla

CAP HARALD = Harald

CAP ISABEL = Isabel

CAP HENRI = Henri

CAP IRENE = Irene

CSAV LAJA = Laja

CAP JERVIS = Jervis

CSAV JERVIS = Jervis

CSAV LIMARI = Limari

Bom dia!!

Mude linha

If Cells(i, "I").Value = "SOROCABA" Then Rows(i).EntireRow.Delete

Para

If Cells(i, "I").Value <> "SOROCABA" Then Rows(i).EntireRow.Delete

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite!!

Essa Função Definida pelo Usuário deve resolver

Function SubstituteMultiple(text As String, old_text As Range, new_text As Range)
Dim i As Single
For i = 1 To old_text.Cells.Count
Result = Replace(LCase(text), LCase(old_text.Cells(i)), LCase(new_text.Cells(i)))
text = Result
Next i
SubstituteMultiple = Result
End Function

Fonte:

http://www.get-digital-help.com/2013/02/27/substitute-multiple-text-strings-vba/

Att

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Compartilhar este post


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





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

×