Notifications
Clear all

MACRO VBA FILTRO


paulo.info
Posts: 2
Registered
Topic starter
(@paulo-info)
New Member
Entrou: 4 anos atrás

Pessoal,

Preciso da ajuda de vocês para realizar uma macro no qual de acordo com o nome dos Usuários eu clique no nome de cada um e a partir daí, vai filtre o nome selecionado, exclui os demais e salve no caminho específico de acordo com o nome que eu filtrei.
Já fiz este modelo abaixo, ela funciona porém sempre que preciso inserir outros nomes ou excluir da um trabalho enorme, tenho que fazer um por um.

Não entendo muito de VBA, gostaria da ajuda de vocês para me auxiliar com esta macro.

Grato.

SEgue abaixo o exemplo que utilizo hoje.

Sub Alexia_DM_()
'
' ATCORRETIVA Macro
'

'

Dim Pasta As String
Dim Planilha As Object
Dim OpenBook As String

With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With

Workbooks.Open Filename:= _
"S:Sky SacSupervisoresHotlineDADOS PAULO2017DISTRIBUIRDEMAIS SERVIÇOSBASE DEMAIS SERVIÇOS.xlsx" _
, UpdateLinks:=0
ActiveSheet.Range("$A$10:$AF$534").AutoFilter Field:=1, Criteria1:=Array( _
"ANA CAROLINA SILVIA DE JESUS", "BARBARA SANDY DANTAS FERNANDES", _
"CARLOS AUGUSTO FERREIRA DE SOUZA SILVA", "CRISTIANE DA SILVA BOMFIM", _
"ELENY DE SOUSA PRATES BARROS", "FABIANA DE CASSIA SASSARÃO DOS SANTOS", _
"FLAVIO MOREIRA ALVES CARDOSO DE OLIVEIRA", "GABRIEL RODRIGUES DOS SANTOS", _
"GEOVANA SOUZA DIAS", "GIRLENE MATOS DE ALMEIDA", "HELOISA DOS SANTOS NARDI", _
"HENRIQUE BRUM CICHLAR", "INGRID DA SILVA SOARES", "IZABEL DIAS DOS SANTOS", _
"JESSICA COSTA LAMAS", "JORGE WILLIAM PEREIRA DE JESUS", _
"KAREN CRISTINA PEREIRA DOS SANTOS", "KAREN GRAZIELLY CRE NAGAOKA VICENTE", _
"KATIA DE OLIVEIRA SANTOS", "KELLY CRISTINA LEMOS DOS SANTOS", _
"LAISA BASTOS DOS SANTOS", "LARISSA ALESSANDRA SILVA", _
"LEONARDO GUIMARÃES BARBOSA", "LUCIENE DE SANTANA DOMINGOS SILVA", _
"MATHEUS SILVA RODRIGUES", "PAMELA CRISTINA DOS SANTOS VIEIRA", _
"PATRICIA LIMA DA SILVA", "RAFAEL GONÇALVES DOS SANTOS", "SUELI APARECIDA SILVA", _
"TAIANY OLIVEIRA RAMOS", "THAIANE SOARES SILVA", "VANESSA DA SILVA SANTOS", _
"VICTOR HUGO AUGUSTO GUILHERME", "TELMA CONCEICAO BARBOSA DE SOUSA", "VILMAR DA SILVA GUERRA", _
"VITORIA MACEDO DE ALMEIDA"), Operator:=xlFilterValues
Rows("11:11").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
Range("A10").Select
ChDir "S:Sky SacOperadoresHotlinePAULODISTRIBUIR"
ActiveWorkbook.SaveAs Filename:= _
"S:Sky SacOperadoresHotlinePAULODISTRIBUIRDEMAISALEXIA MENDONÇA DOS SANTOS.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select

With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With

End Sub
Responder
3 Respostas
xlarruda
Posts: 732
Registered
(@xlarruda)
Honorable Member
Entrou: 4 anos atrás

posta ai um modelo da sua planilha pra gente ter uma noção..

Vlw. Abrç!

Responder
paulo.info
Posts: 2
Registered
Topic starter
(@paulo-info)
New Member
Entrou: 4 anos atrás

Poxa,

Tentei anexar aqui porém não esta indo, estou na empresa e foi bloqueado para enviar o anexo.

Vou tentar reenviar novamente.

Responder
Fernando Fernandes
Posts: 43842
Registered
(@fernandofernandes)
Illustrious Member
Entrou: 13 anos atrás

Movi teu tópico para VBA & Macros que é o assunto da tua dúvida.

Onde você havia postado, não é permitido postar dúvidas, pois é exclusivo para a apresentação do dos novos usuários.

Como você é novato, 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

[]s
Patropi - Moderador

Responder