Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 805 ocorrências
- Qua Jan 15, 2020 9:44 am
- Fórum: VBA Básico
- Tópico: Trazer resultado da planilha para checkbox
- Respostas: 1
- Exibições: 1591
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 = "" ...
- 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: 6333
Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA
Luiz,
Que boa noticia!!!
Fico satisfeito em saber que pude ajudar.
Que boa noticia!!!
Fico satisfeito em saber que pude ajudar.
- 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: 6333
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...
- 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: 1894
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 ....
- Sáb Dez 28, 2019 3:21 pm
- Fórum: VBA Básico
- Tópico: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA [RESOLVIDO]
- Respostas: 10
- Exibições: 6333
Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA
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.
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.
- Sex Dez 20, 2019 5:03 pm
- Fórum: VBA Básico
- Tópico: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA [RESOLVIDO]
- Respostas: 10
- Exibições: 6333
Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA
Luis,
Veja se a forma que elaborei para realizar a consulta atende sua necessidade.
Veja se a forma que elaborei para realizar a consulta atende sua necessidade.
- Ter Out 29, 2019 4:00 pm
- Fórum: Geral
- Tópico: evento "ao apertar tecla"
- Respostas: 3
- Exibições: 23500
Re: evento "ao apertar tecla"
Cristiano,
Experimente :
Experimente :
Código: Selecionar todos
Private Sub TxtCodigoBarras_KeyDown(KeyCode As Integer, Shift As Integer)
If ((KeyCode = vbKeyReturn) Or (KeyCode = vbKeyTab)) Then
If TxtCodigoBarras.Value <> "" Then
'entrarvalor
End If
End If
End Sub
- Ter Out 22, 2019 2:12 pm
- Fórum: VBA Básico
- Tópico: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)
- Respostas: 8
- Exibições: 13612
Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)
lupalestina, Remova o evento txtResultado_Change(). Copie-o para um bloco de notas só por precaução. Adicione um botão ao formulário, apenas para chamar a rotina (pois será ele quem fará a verificação do que foi ou não selecionado), usando : Call calcularPontuacao Exibindo todos os códigos do UserFo...
- Ter Out 22, 2019 1:34 pm
- Fórum: VBA Básico
- Tópico: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)
- Respostas: 8
- Exibições: 13612
Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)
lupalestina, Experimente adicionar a rotina em um módulo ou ao final dos códigos existentes no UserForm1 : Sub calcularPontuacao() Dim somaSelecao As Long Dim ctlControle As Control somaSelecao = 0 For Each ctlControle In UserForm1.Controls If TypeName(ctlControle) = "OptionButton" Then If...
- Qua Out 16, 2019 2:40 pm
- Fórum: VBA Básico
- Tópico: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO (RESOLVIDO)
- Respostas: 8
- Exibições: 13612
Re: COMBOBOX DATA E TEXTBOX PESQUISA DANDO ERRO
Pasedo,
Veja se as alterações atendem sua necessidade.
Veja se as alterações atendem sua necessidade.