Não funcionou. A macro "Mestre" não está rodando ao atualizar dados da web.
A Macro "Mestre" (abaixo) chama várias macros.
Sub Mestre()
Call SupprimerMot
Call SupprimerMot2
Call SupprimerMot3
Call SupprimerMot4
Call SupprimerMot5
Call SupprimerMot6
Call SupprimerMot7
Call SupprimerMot8
Call SupprimerMot9
End Sub
Exemplo de uma macro:
Sub SupprimerMot()
Dim Cel As Range, Plage As Range
Dim Mot As String
Set Plage = Range("A2:A320") 'a ser adaptado ao trecho a percorrer.
Palavra = "New ItemDollar ItemPIC Will Ship International" 'adaptar à palavra a ser buscada e excluída
'Não é necessário se o trecho for pequeno
Application.ScreenUpdating = False
For Each Cel In Plage
If Cel Like "*" & Mot & "*" Then
Cel = Replace(Cel, Palavra, "")
'Para deletar o espaço duplo que resulta...
Cel = Replace(Cel, " ", " ")
End If
Next Cel
Application.ScreenUpdating = True
End Sub
Postado : 21/02/2013 2:05 pm