Notifications
Clear all

Rodar Macro ao atualizar Dados da Web

11 Posts
2 Usuários
0 Reactions
1,938 Visualizações
(@thezein)
Posts: 30
Eminent Member
Topic starter
 

Amigos, tenho uma planilha que atualiza dados vindos da Web e uma macro que remove palavras não desejadas que são inseridas na planilha.
Atualmente criei um botão "Master" que executa esta macro de apagar palavras. Mas meu objetivo é fazer com que toda vez que os Dados da Web forem atualizados a macro rode sem precisar do botão.

É possível vocês me ajudarem ?

 
Postado : 21/02/2013 8:05 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja se isso funciona.

Private Sub Worksheet_Calculate() 
    Run "MeuCódigo" 
End Sub

Obs: o evento Worksheet_Calculate deve ser posto dentro do modulo de planilha (dentro do EditorVBA)
Att ;)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/02/2013 12:51 pm
(@thezein)
Posts: 30
Eminent Member
Topic starter
 

Coloquei dentro do VBA, Microsoft Excel Objetos / EstaPasta_de_trabalho
Troquei o Run "MeuCódigo" por Run "Master" e salvei.
Cliquei em atualizar os dados da Web e a macro "Master" não funcionou.
Deve estar faltando alguma coisa.

 
Postado : 21/02/2013 1:29 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

So um alerta , Worksheet_Calculate de ser no modulo da planilha que recebe os dados e não no EstaPasta_de_trabalho (ai seria workbook calculate), e a sua macro deve estar sem as aspas, se o nome dela e master deve ser call master

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/02/2013 1:35 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu não falei (EstaPasta_de_trabalho), eu disso no modulo da planilha.
Veja a figura.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/02/2013 1:37 pm
(@thezein)
Posts: 30
Eminent Member
Topic starter
 

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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!

Pelo menos para mim os dados da postagem acima não valerá nada visto que eu não tenho seu arquivo. :(

vamos aguardar a respostas dos outros menbros da comunidade. :|
Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/02/2013 2:10 pm
(@thezein)
Posts: 30
Eminent Member
Topic starter
 

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

 
Postado : 21/02/2013 2:24 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja
http://www.sendspace.com/file/sy6511

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    Call Mestre

End Sub
Private Sub Worksheet_Activate()
'Esse evento Worksheet_Activate, ocorre toda vez que planilha (Plan2) for selecionada
'O evento Private Sub Workbook_SheetActivate(ByVal Sh As Object)ocorre toda vez que qualquer planilha (Plan2) for selecionada
    Call Mestre

End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/02/2013 2:51 pm
(@thezein)
Posts: 30
Eminent Member
Topic starter
 

Não entendi que estava errado

 
Postado : 21/02/2013 2:56 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Como sua planilha não fazia nenhum calculo (por isso é bom anexar o arquivo, pois eu não ia adivinhar isso), eu mudei o método de Worksheet_Calculate para Workbook_SheetActivate

Lembre se marcar como resolvido, se for o caso e click na mãozinha!!
Veja como:
viewtopic.php?f=7&t=3784
Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/02/2013 3:06 pm