ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Pesquisa resultou em 801 ocorrências

por srobles
Qui Fev 27, 2020 4:37 pm
Fórum: VBA Básico
Tópico: Impedir dados duplicados com critério
Respostas: 4
Exibições: 1710

Re: Impedir dados duplicados com critério

Delzor,

Ao redigir uma mensagem / tópico, abaixo do campo de texto, existe a opção Anexos, ao lado de Opções.
Basta adicionar o arquivo compactado (zipado).
por srobles
Qui Fev 27, 2020 3:18 pm
Fórum: VBA Básico
Tópico: Impedir dados duplicados com critério
Respostas: 4
Exibições: 1710

Re: Impedir dados duplicados com critério

Delzor,

Tentei baixar o arquivo do link, porém o mesmo apresenta problemas.
Se possível, suba novamente o arquivo ok?
por srobles
Qui Fev 27, 2020 2:49 pm
Fórum: VBA Básico
Tópico: Abrir planilhas em um diretorio
Respostas: 3
Exibições: 1340

Re: Abrir planilhas em um diretorio

Douglas, Os arquivos que deseja abrir sempre estarão localizados no mesmo local? Caso positivo, altere esta linha da rotina : .InitialFileName = ThisWorkbook.Path Para : .InitialFileName = caminhoAbsoluto Onde caminhoAbsoluto será o caminho completo de onde os arquivos estão, exemplo "S:\TI\9-Gestao...
por srobles
Qua Fev 26, 2020 7:41 pm
Fórum: VBA Básico
Tópico: Login com acesso restrito a planilhas por usuario
Respostas: 1
Exibições: 1146

Re: Login com acesso restrito a planilhas por usuario

Alan,

Veja se o novo modelo atende sua necessidade.

Usuário : admin
Senha : admin

Senha padrão para novos usuários : Mudar123
por srobles
Qua Fev 26, 2020 7:38 pm
Fórum: VBA Básico
Tópico: Abrir planilhas em um diretorio
Respostas: 3
Exibições: 1340

Re: Abrir planilhas em um diretorio

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...
por srobles
Seg Jan 20, 2020 3:43 pm
Fórum: VBA Básico
Tópico: importar arquivo de imagens e listar na planilha (Resolvido)
Respostas: 2
Exibições: 880

Re: importar arquivo de imagens e listar na planilha

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...
por srobles
Qua Jan 15, 2020 9:44 am
Fórum: VBA Básico
Tópico: Trazer resultado da planilha para checkbox
Respostas: 1
Exibições: 682

Re: Trazer resultado da planilha para checkbox

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...
por srobles
Ter Jan 07, 2020 2:56 pm
Fórum: VBA Básico
Tópico: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA [RESOLVIDO]
Respostas: 10
Exibições: 2705

Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA

Luiz,

Que boa noticia!!!

Fico satisfeito em saber que pude ajudar.
por srobles
Seg Dez 30, 2019 12:21 pm
Fórum: VBA Básico
Tópico: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA [RESOLVIDO]
Respostas: 10
Exibições: 2705

Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA

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...
por srobles
Seg Dez 30, 2019 12:36 am
Fórum: VBA Básico
Tópico: Como enviar dados de várias Textbox's (UserForm1) para Listbox (Userform2)
Respostas: 2
Exibições: 832

Re: Como enviar dados de várias Textbox's (UserForm1) para Listbox (Userform2)

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)...