Alan,

Veja se o novo modelo atende sua necessidade.

Usuário : admin
Senha : admin

Senha padrão para novos usuários : Mudar123

Douglas, Experimente o que se segue abaixo. Adicione um novo módulo á pasta de trabalho, copie e cole a rotina : Public pastasSelecionadas() As String Sub selecionarArquivos() Dim caixaArquivo As Office.FileDialog Erase pastasSelecionadas Set caixaArquivo = Application.FileDialog(msoFileDialogFilePi...

valzito, Veja se a rotina abaixo atende sua necessidade. Sub retornarArquivos() Dim novaLinha As Long Dim caixaArquivos As Office.FileDialog Set caixaArquivos = Application.FileDialog(msoFileDialogFilePicker) With caixaArquivos .AllowMultiSelect = True .Filters.Clear .Filters.Add "Arquivos de imagem...

Luis, Altere o conteúdo do botão Pesquisar para o que se segue abaixo: Private Sub cmb_Pesquisar_Click() Dim Texto As String Dim Delimitador As String Dim my_array Texto = Planilha1.Range("A1").Value Delimitador = ", " my_array = Split(Texto, Delimitador) If Texto = "" Then Else On Error Resume Next...

Luiz,

Que boa noticia!!!

Fico satisfeito em saber que pude ajudar.

Luis, Experimente alterar o trecho .Add2 para .Add apenas. Caso não funcione, o que seria estranho, pois uso o mesmo Office (32bits), experimente remover o trecho abaixo existente no módulo mdl_Funcoes, que, apenas classifica os dados retornados do menor para o maior. .AutoFilter.Sort.SortFields.Cle...

Oliver_00, Acredito que o erro esteja ocorrendo, pois apenas um item é adicionado ao ListBox, perceba a instrução .AddItem : With listbox_contas .ColumnCount = 10 .ColumnWidths = "50pt;0pt;0pt;0pt;0pt;0pt;50pt;120pt;40pt;150pt" .AddItem .List(0, 0) = naturezad11 .List(0, 1) = codgrupod11 .List(0, 2)...

Luiz,

Como não informou qual ou quais tipos de erros ocorreram, tentei otimizar toda a rotina.

Favor, teste e retorne ok?

Caso algum erro ocorra, favor informe qual Office utiliza e a descrição do erro.

Luis,

Veja se a forma que elaborei para realizar a consulta atende sua necessidade.

Cristiano,

Experimente :