Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Pesquisa resultou em 805 ocorrências

por srobles
Ter Mar 17, 2020 6:16 pm
Fórum: VBA Básico
Tópico: Informações Selecionadas do Combobox para listbox
Respostas: 1
Exibições: 3083

Re: Informações Selecionadas do Combobox para listbox

Davi,

Veja se o modelo (bem simplificado) te auxilia á entender como funciona (apenas uma das diversas maneiras existentes) este processo.
por srobles
Ter Mar 17, 2020 4:50 pm
Fórum: VBA Básico
Tópico: Carregar dados em formulário [RESOLVIDO]
Respostas: 3
Exibições: 4169

Re: Carregar dados em formulário

july_onda,

Veja se as alterações feitas no seu modelo, atendem sua necessidade.

Estude as rotinas existentes nos módulos e adapte-as conforme sua necessidade.
por srobles
Sáb Mar 14, 2020 3:00 am
Fórum: VBA Básico
Tópico: pesquisar,copiar e colar partes de texto com vba
Respostas: 5
Exibições: 6776

Re: pesquisar,copiar e colar partes de texto com vba

zen, Experimentou usar a função Split? Veja abaixo, se a rotina atende sua necessidade. Sub extrairPedido() Dim planDados As Worksheet Set planDados = ThisWorkbook.Sheets(1) Dim linhaAtual As Long, linhaFinal As Long With planDados linhaAtual = 1 linhaFinal = .Cells(Rows.Count, 1).End(xlUp).Row Whil...
por srobles
Sex Fev 28, 2020 4:56 pm
Fórum: VBA Básico
Tópico: Impedir dados duplicados com critério
Respostas: 4
Exibições: 3458

Re: Impedir dados duplicados com critério

Delzor, Analisando seu modelo, acredito que a informação vital para que a validação dos dados funcione a contento, é o local da obra. Experimente esta informação em ambas Functions que validam os dados, exemplo : A function que valida a PEP : Private Function VerificarPEP(nomePEP As String, localOBR...
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: 3458

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: 3458

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: 3037

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-G...
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: 2136

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: 3037

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: 1968

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