Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro não esta exec...
 
Notifications
Clear all

Macro não esta executando

 
2024 - VBA & Macros
8 Posts
3 Usuários
0 Reactions
1,521 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá Pessoal,

Estou executando na plan5 uma consulta, a base de dados dessa consulta esta na (plan4) e a mesma é baseada no numero do pedido do cliente (Plan5 = AA3), onde será mostrado informações sobre esse pedido.

O que acontece: No arquivo TESTE em anexo existe o Módulo2, que foi criado para que seja executado na PLAN5. A base de dados desse código é a PLAN4 da linha 2 até a ultima linha da coluna P50000. O Problema é que não executa e pode estar nessa parte da instrução Range(Plan4!A2:P50000), porem nao sei se essa é a causa de fato. Gostaria da ajuda de vcs. Desde já obrigado.

Sub Filtrar_Dados()

    Range(Plan4!A2:P50000).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range(
        "AA2:AP3"), CopyToRange:=Range("AA5:AP5"), Unique:=False
        
        'MsgBox "Consulta efetuada com sucesso!", vbInformation + vbOKOnly, "Consulta"
        
        'Range("B1").Select
        
End Sub

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

 
Postado : 24/02/2014 8:38 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Esqueci de mandar o arquivo....aqui esta ele.

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

 
Postado : 24/02/2014 8:58 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Experimente:

Sub Filtrar_Dados()

Plan4.Range("A1:P50000").AdvancedFilter Action:=xlFilterCopy, _
                        CriteriaRange:=Range("AA2:AP2"), _
                        CopyToRange:=Range("AA5:AP5"), _
                        Unique:=False
       
    'MsgBox "Consulta efetuada com sucesso!", vbInformation + vbOKOnly, "Consulta"
       
    'Range("B1").Select
       
End Sub

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

 
Postado : 24/02/2014 9:15 am
 Fabiosp
(@fabiosp)
Posts: 291
Reputable Member
 

Ola kalebe19

Não entendo muito de VBA mas pelo que entendi do seu comentário e disso que você necessita.
Essa é uma macro que pode ser feita pelo gravador de macros.

Sub Fabiosp()

    Sheets("Plan4").Columns("A:P").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("AA2:AP3"), CopyToRange:=Range("AA5:AP6"), Unique:= _
        False
    Range("AA7").Select
    Columns("AL:AL").EntireColumn.AutoFit
    Columns("AN:AN").EntireColumn.AutoFit
    ActiveWindow.ScrollColumn = 6
    Columns("AP:AP").EntireColumn.AutoFit
    Range("AA6").Select
    MsgBox "Consulta efetuada com sucesso!", vbInformation + vbOKOnly, "Consulta"
End Sub

Abraços

 
Postado : 24/02/2014 9:24 am
Weslley
 Weslley
(@weslley)
Posts: 90
Trusted Member
 

Meu caro, verifica se este exemplo atende a sua expectativa.

TESTE (2)_resolvido_WESLLEY.zip

Se a resposta foi útil, clique na mãozinha do lado da ferramenta Citar

Atenciosamente,

Weslley Henrique S.S.
MOS (Microsoft Office Specialist)

"O impossível é uma questão de tempo!"
(Alberto Saltiel)

 
Postado : 24/02/2014 9:27 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Reinaldo, obrigado. Funcionou perfeitamente.

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

 
Postado : 24/02/2014 10:17 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado a todos que ajudaram de uma forma ou outra. OBRIGADO.

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

 
Postado : 24/02/2014 10:19 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

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

 
Postado : 24/02/2014 10:32 am
Forum Jump:
  Tópico Anterior
Próximo Tópico