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