Macro Deletar,Substituir

[Andarilho Ermitão]

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

[zinhovba]

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

[Andarilho Ermitão]

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

[zinhovba]

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

[Andarilho Ermitão]

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

[zinhovba]

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

[Andarilho Ermitão]

Zinho muito obrigado pela ajuda.

[Patropi]

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