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

1 hora atrás, DiF disse:

@Serafim Agostini Neri Não sei se o VBA tem poder para permitir desenvolver um código que faça digitalizações.

 

Mas um meio de contornar esse problema é você desenvolver um código que faça abrir um arquivo executável por fora.

Por exemplo:

Sub Digitalizar()
  Dim RetVal
  RetVal = Shell("D:\programa_instalado\seu_programa_de_digitalizar.EXE", 1)
End Sub

No caso, você baixa e instala um aplicativo de digitalização e no código você faz abrir este programa.

Mas não sei responder se realmente vai funcionar como você espera, pois não programo em VBA em excel.

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

1 hora atrás, CasaDoHardware disse:

Experimente este codigo

 

Sub Classificar()

Dim Sh As Worksheet

Set Sh = Sheets("Clientes")

With Sh.Sort

.SortFields.Clear
.SortFields.Add Key:=Range("B1:B2000"), Order:=xlAscending
.Header = xlYes
.Apply

End With

End Sub
 

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