Serafim Agostini Neri

Boa noite amigos. Gostaria de criar um Formulário de pesquisa no EXCEL VBA com as opções de filtro de Texto. Exemplo: Critério (Combobox1) Critério com Filtros Combobox2 TextBox1 Setor Operadores Lógicos Filtro Administrativo É Igual á 2010 RH É Diferente de Área Técnica Contém... outros Tudo de Administrativo que contenha 2010 como exemplo

adicionado 0 minutos depois Opa obrigado pelo toque, vou tentar aqui e te falo... Valeu mesmo

Boa noite amigos. Trabalho no Arquivo de uma empresa e gostaria de uma ajuda... Alguém teria um código para gerar visores de Caixas Box, Pastas e etc A ideia e ao finalizar um cadastro de uma caixa apertar num botão para gerar o visor da Caixa contendo informações como Nome da empresa; Setor; Conteúdo; Periodo Numero da Caixa Desde já agradeço

Olá, Gostaria de saber se teriam como ajudar. Desde já agradeço... Tenho um controle de documentos físicos e estamos implementando a digitalização no setor. Gostaria de saber se teriam um código para ao cadastrar os documentos no final clicasse num botao e abriria o scanner ou a multifuncional que tivesse já abrisse para já digitalizar e ligar aquela digitalização ao código do contrato ou da Caixa de documentos criado tenho dois tipos de controle: 1= Contrato jurídico com códigos como CT-0001.P ou CT-0001.A1 2= por Caixas exemplos código da Caixa JU-0001 que contem documentos do Jurídico Oficios, memorandos, correspondências.... Então seria assim: Cadastrei um contrato ai no final, que tivesse a opção de digitalizar o documento ou se for documentos variados da caixa também. Vou enviar o print do Form

adicionado 1 minuto depois Obrigado por responder, mas não funcionou não acontece nada, não entendo. Desespero continua...

Preciso de Ajuda, por favor amigos.... Tenho uma planilha que foi criada no EXCEL 2016 Sistema 32Bits (Notebook), só que no meu trabalho utilizo EXCEL 2010 Sistema 64Bits. Preciso Ordenar a coluna B em crescente sempre que um novo ID Criado pelo usuário exemplo (CT-0001.P ou CT-0001.A1...) para gerar o próximo ID para o Usuário. no meu Notebook onde foi criado funciona perfeitamente só que no trabalho não. no mais tudo funciona. Código no 32bits 2016 'Excel 2016 ' ActiveWorkbook.Worksheets("Clientes").AutoFilter.Sort.SortFields.Clear ' ActiveWorkbook.Worksheets("Clientes").AutoFilter.Sort.SortFields.Add2 Key:= _ ' Range("B1:B2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _ ' :=xlSortNormal ' With ActiveWorkbook.Worksheets("Clientes").AutoFilter.Sort ' .Header = xlYes ' .MatchCase = False ' .Orientation = xlTopToBottom ' .SortMethod = xlPinYin ' .Apply ' End With '___________________________________________________________________________________________________ 'Excel 2010 64bits ActiveWorkbook.Worksheets("Clientes").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Clientes").Sort.SortFields.Add Key:= _ Range("B1:B2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _ :=xlSortNormal With ActiveWorkbook.Worksheets("Clientes").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub Obs: Quando substitui o código da erro de formatação na minha planilha... Será que tem algum código que sirva para os dois. Obrigado