Notifications
Clear all

Macro dando erro

6 Posts
3 Usuários
0 Reactions
1,140 Visualizações
(@anaguerra)
Posts: 3
New Member
Topic starter
 

Ola
Tenho duas planilhas distintas no excel, e preciso de um campo de pesquisa pra elas separadamente.Dai ciei uma outra planilha com macro e codigo vba para procurar. O que deu certo, mas quando inseri a outra planilha e tentei fazer a mesma coisa não consigo. O documento parece não permitir criar dois codigos de procura, mesmo sendo em planilhas diversas.Tenti criar macro com nome diferente a nada, o codigo sempre dá erro e pedi pra apurar.Esta em anexo.Agradeço quem puder ajudar.

 
Postado : 24/10/2017 8:20 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Na rotina de filtro remete a uma range nomeada como Criteria, que não está presente em seu modelo/exemplo.
Como nas duas rotinas refere-se a mesma range nomeada provavelmente dara erro. Não se pode/deve ter duas planilhas com mesmo nome de range nomeada
Altere o nome da range buscar ;para por exemplo Criterio e veja se executa

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

 
Postado : 24/10/2017 9:21 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite Ana

Movi teu tópico para VBA & Macros que é o assunto da tua dúvida, pois você havia postado em fórmulas & funções.

Como você é novato no fórum, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Editei o título do teu tópico, pois deve ser um resumo da dúvida e não a indicação da programação utilizada.
Na próxima vez, compacte o arquivo antes de anexar, conforme as regras do fórum.

[]s
Patropi - Moderador

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

 
Postado : 24/10/2017 6:24 pm
(@anaguerra)
Posts: 3
New Member
Topic starter
 

Ola Reinaldo
Obrigada por sua resposta. Mas sou muito "crua" nestes termos. Sou um quebra-galhos mesmo, assisto videos e leio pra aprender , mas neste problema não consegui soluções onde normalmente busco. Vou mandar as macros como estão descritas dai verifique por favor onde possa estar o erro. Obrigada novamente pela ajuda!
Modulo 1-Pesquisa (Da Planilha de Boletos)

Sub filtro()
'
' filtro Macro
'
    Sheets("PESQUISAR").Select
    Sheets("BOLETOS").Cells.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("PESQUISAR!Criteria"), CopyToRange:=Range("B8:R8"), _
        Unique:=False
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWorkbook.Save
End Sub
Sub limpar()
'
' limpar Macro
'

'
    Range("B2:R2").Select
    Selection.ClearContents
    Range("B9:R941").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-18
    Selection.ClearContents
    Range("B2").Select
End Sub

Modulo 4-Buscar (Da PLANILHA DE CHEQUES)
**VEJA ALTEREI O NOME DO CRITERIA =PARA CRITÉRIO, MAS NÃO DEU CERTO:
Sub BUSCAR()
'
' filtro Macro
'

'
    Sheets("BUSCAR").Select
    Sheets("CHEQUES").Cells.AdvancedFilter Action:=xlFilterCopy, _
        CriterioRange:=Range("BUSCAR!Criterio"), CopyToRange:=Range("B8:R8"), _
        Unique:=False
        
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWorkbook.Save
    
End Sub
Sub limpar()
'
' limpar Macro
'

'
    Range("B2:R2").Select
    Selection.ClearContents
    Range("B9:R941").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-18
    Selection.ClearContents
    Range("B2").Select
End Sub
 
Postado : 30/10/2017 10:34 am
gfranco
(@wzxnet7)
Posts: 653
Honorable Member
 

Boa tarde.
Veja se o anexo te ajuda
Ajustei as macros de filtro avançado para funcionarem nas planilhas de busca.
Deixei a coluna "B" como sendo a coluna que sempre será preenchida ( é preciso uma coluna servir de base para saber o "tamanho" da área de extração).Certifique-se de sempre preencher essa coluna (ou pelo menos, que a ultima linha que tenha informação esteja com essa coluna preenchida)

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 31/10/2017 3:15 pm
(@anaguerra)
Posts: 3
New Member
Topic starter
 

Muito Obrigada. Acho que resolveu. Ajudou muito!

 
Postado : 01/11/2017 7:26 am