PROFESSOR, vendo as demais perguntas e respostas dos outros fizemos outras tentativa e agora tudo certo. ficou show de bola. tanto no filtro de carregamento quantos para os demais filtros. no módulo Filtro ( ) linhalistbox = 1; linha = 5. também mudamos no módulo do botom CBData_Click ( ) mudamos para: linhalistbox = 1; linha = 5. dessa forma tanto ao carregar o ListBox1 com o filtro e fazer demais filtro com os critérios de data; critrio de linhas; critério de produtos, critérios de fornecedorores e critério de mês, tudo perfeito. agora está tudo está funcionando perfeitamente, Show de Bola. Assim voltaremos para a vídeo aula 19 onde tínhamos voltado até a aula 12, 13,14,15. Até foi bom esses erros terem sidos apresentados contribuíram para com isso abrir mais o nosso entendimento. Obrigado...Abraço...
Olá Canal. Antes de mais nada, parabens pelo canal e pelas informações!!! Observei uma falha no meu formulario e acho que isso aconteceu no seu tambem.. ao filtrar na listbox com os criterios em branco, ele nao carrega a primeira linha. observe no video , que clicando em filtrar ele aparece a partir do lote 3 na listbox, e nao aparece o lote 1 que tem na planilha. poderia analisar?
Boa noite, pode me ajudar de novo? Meu filtro está com problemas. Ele não identifica o Cod 1 do formulário quando seleciono todos, quando eu filtro por cliente, ele só mostra o último pedido dele e não aparece os cabeçalhos. O que pode estar acontecendo? Obrigada.
Olá, meu filtro carrega todos os itens menos o primeiro item da lista, olhando aqui na execução do código, vi que ele inseri o primeiro número item mas depois meio que sobrescreve esse item e os demais itens aparecem normais. O que pode ser ?
Boa noite! como posso fazer isso no VBA? Preciso que ao selecionar o mês na combobox ao marcar a checkbox ele coloca 0 ou 1 true ou false em uma celula. Mas nao ta dando certo ao selecionar o ^mes na combobox ele nao seleciona a celula certa. Private Sub CheckBox1_Click() If combobox1.Value = "Janeiro" Then Range("b5").Select If CheckBox1.Value = True Then Range("B5").Value = 1 If CheckBox1.Value = False Then Range("B5").Value = 0 End If If combobox1.Value = "fevereiro" Then Range("c5").Select If CheckBox1.Value = True Then Range("c5").Value = 1 If CheckBox1.Value = False Then Range("c5").Value = 0 End If Se puder me ajudar com isso eu agradeço! +1 inscrito
Boa tarde, testei os códigos e funcionaram perfeitamente. Private Sub CheckBox1_Click() Plan1.Select If ComboBox1.Value = "Janeiro" Then Range("b5").Select If CheckBox1.Value = True Then Range("B5").Value = 1 If CheckBox1.Value = False Then Range("B5").Value = 0 End If If ComboBox1.Value = "Fevereiro" Then Range("c5").Select If CheckBox1.Value = True Then Range("c5").Value = 1 If CheckBox1.Value = False Then Range("c5").Value = 0 End If End Sub Private Sub UserForm_Initialize() ComboBox1.AddItem "Janeiro" ComboBox1.AddItem "Fevereiro" End Sub Veja se colocou igual o critério mês na combobox e nas condições IF.
Tem algum problema em fazer isso? Tenho 7 checkbox. Private Sub CommandButton1_Click() If CBMes.Value = "" Then MsgBox "É necessário selecionar a competência antes de gravar", vbCritical End If If CBMes.Value = "JANEIRO" Then If CheckBox1.Value = True Then Range("B5").Value = 1 If CheckBox1.Value = False Then Range("B5").Value = 0 If CheckBox2.Value = True Then Range("D5").Value = 1 If CheckBox2.Value = False Then Range("D5").Value = 0 If CheckBox3.Value = True Then Range("F5").Value = 1 If CheckBox3.Value = False Then Range("F5").Value = 0 If CheckBox4.Value = True Then Range("H5").Value = 1 If CheckBox4.Value = False Then Range("H5").Value = 0 If CheckBox5.Value = True Then Range("J5").Value = 1 If CheckBox5.Value = False Then Range("J5").Value = 0 If CheckBox6.Value = True Then Range("L5").Value = 1 If CheckBox6.Value = False Then Range("L5").Value = 0 If CheckBox7.Value = True Then Range("N5").Value = 1 If CheckBox7.Value = False Then Range("N5").Value = 0 Private Sub UserForm_initialize() For i = 1 To 12 CBMes.AddItem MonthName(i, False) Next CheckBox1.Value = 0 CheckBox2.Value = 0 CheckBox3.Value = 0 CheckBox4.Value = 0 CheckBox5.Value = 0 CheckBox6.Value = 0 CheckBox7.Value = 0 End Sub Private Sub Cbmes_Change() CBMes = UCase(CBMes.Text) End Sub
Sim vai ser sempre na mesma linha. Eu coloquei uma outra coluna do lado com a formula SE retornando um texto caso 0 ou 1 de acordo com a variavel da checkbox. É uma planilha ta ai a ft. ctrlv.cz/shots/2018/02/01/FNxF.png e ctrlv.cz/shots/2018/02/01/3E1s.png
Professor , não estou conseguindo achar o problema, quando eu coloco para carregar no meu filtro ele fica 2/13/2021 mais o certo era 13/02/2021 , Se vc poder mim ajudar pfvr
PROFESSOR, vendo as demais perguntas e respostas dos outros fizemos outras tentativa e agora tudo certo. ficou show de bola. tanto no filtro de carregamento quantos para os demais filtros.
no módulo Filtro ( )
linhalistbox = 1;
linha = 5.
também mudamos no módulo do botom CBData_Click ( )
mudamos para:
linhalistbox = 1;
linha = 5.
dessa forma tanto ao carregar o ListBox1 com o filtro e fazer demais filtro com os critérios de data; critrio de linhas; critério de produtos, critérios de fornecedorores e critério de mês, tudo perfeito.
agora está tudo está funcionando perfeitamente, Show de Bola.
Assim voltaremos para a vídeo aula 19 onde tínhamos voltado até a aula 12, 13,14,15.
Até foi bom esses erros terem sidos apresentados contribuíram para com isso abrir mais o nosso entendimento. Obrigado...Abraço...
Boa noite, que bom que resolveu, sucesso em seus estudos.
Muito boa suas aulas gostaria de ter conhecido este casnal antes
Não consigo achar onde errei.
Meu filtro nao esta carregando nada.
Bom dia, obrigado, talvez seja referencia as colunas critérios.
Olá Canal.
Antes de mais nada, parabens pelo canal e pelas informações!!!
Observei uma falha no meu formulario e acho que isso aconteceu no seu tambem.. ao filtrar na listbox com os criterios em branco, ele nao carrega a primeira linha.
observe no video , que clicando em filtrar ele aparece a partir do lote 3 na listbox, e nao aparece o lote 1 que tem na planilha.
poderia analisar?
Olá, realmente ficou esta falha, verifique as variáveis linha e linha listbox, se tivr cabeçalho, a linhalistbox deve ser 1
@@CanalSGP OK , resolvido , colocando linhalistbox =1
Olá Canal SGP
É possível carregar a Listbox em forma de tabela ou colocar o cabeçalho com cor diferente para diferenciar?
Obrigado!
Olá, infelizmente nenhuma das opções é possível ou viável.
Na minha pesquisa quando dois produtos estão em linhas subsequente o primeiro é ignorado. O que fiz de errado?
Bom dia, veja variável linhalistbox se está com o número 1.
Boa noite, pode me ajudar de novo? Meu filtro está com problemas. Ele não identifica o Cod 1 do formulário quando seleciono todos, quando eu filtro por cliente, ele só mostra o último pedido dele e não aparece os cabeçalhos. O que pode estar acontecendo? Obrigada.
Boa noite, veja se tem alguma variável chamada Linha.
Se estiver Linha = 0, mude para Linha = 1
A linha é 5, igual a do seu exemplo e a linhalistbox que é 0. Vou muda-la e ver se resolve. Obrigada.
@@andreanoname vc resolver? Pode me falar como
Olá, meu filtro carrega todos os itens menos o primeiro item da lista, olhando aqui na execução do código, vi que ele inseri o primeiro número item mas depois meio que sobrescreve esse item e os demais itens aparecem normais. O que pode ser ?
Bom dia, solicite a planilha de exemplo nos contatos do site do canal, link na descrição do vídeo.
Boa noite !!! Por favor me manda a planilha desta alua que esta dano um erro e não consigo resolver. obrgo
Bom dia, qual e-mail para envio?
Boa noite! como posso fazer isso no VBA?
Preciso que ao selecionar o mês na combobox ao marcar a checkbox ele coloca 0 ou 1 true ou false em uma celula. Mas nao ta dando certo ao selecionar o ^mes na combobox ele nao seleciona a celula certa.
Private Sub CheckBox1_Click()
If combobox1.Value = "Janeiro" Then
Range("b5").Select
If CheckBox1.Value = True Then Range("B5").Value = 1
If CheckBox1.Value = False Then Range("B5").Value = 0
End If
If combobox1.Value = "fevereiro" Then
Range("c5").Select
If CheckBox1.Value = True Then Range("c5").Value = 1
If CheckBox1.Value = False Then Range("c5").Value = 0
End If
Se puder me ajudar com isso eu agradeço! +1 inscrito
Boa tarde, testei os códigos e funcionaram perfeitamente.
Private Sub CheckBox1_Click()
Plan1.Select
If ComboBox1.Value = "Janeiro" Then
Range("b5").Select
If CheckBox1.Value = True Then Range("B5").Value = 1
If CheckBox1.Value = False Then Range("B5").Value = 0
End If
If ComboBox1.Value = "Fevereiro" Then
Range("c5").Select
If CheckBox1.Value = True Then Range("c5").Value = 1
If CheckBox1.Value = False Then Range("c5").Value = 0
End If
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Janeiro"
ComboBox1.AddItem "Fevereiro"
End Sub
Veja se colocou igual o critério mês na combobox e nas condições IF.
Tem algum problema em fazer isso?
Tenho 7 checkbox.
Private Sub CommandButton1_Click()
If CBMes.Value = "" Then
MsgBox "É necessário selecionar a competência antes de gravar", vbCritical
End If
If CBMes.Value = "JANEIRO" Then
If CheckBox1.Value = True Then Range("B5").Value = 1
If CheckBox1.Value = False Then Range("B5").Value = 0
If CheckBox2.Value = True Then Range("D5").Value = 1
If CheckBox2.Value = False Then Range("D5").Value = 0
If CheckBox3.Value = True Then Range("F5").Value = 1
If CheckBox3.Value = False Then Range("F5").Value = 0
If CheckBox4.Value = True Then Range("H5").Value = 1
If CheckBox4.Value = False Then Range("H5").Value = 0
If CheckBox5.Value = True Then Range("J5").Value = 1
If CheckBox5.Value = False Then Range("J5").Value = 0
If CheckBox6.Value = True Then Range("L5").Value = 1
If CheckBox6.Value = False Then Range("L5").Value = 0
If CheckBox7.Value = True Then Range("N5").Value = 1
If CheckBox7.Value = False Then Range("N5").Value = 0
Private Sub UserForm_initialize()
For i = 1 To 12
CBMes.AddItem MonthName(i, False)
Next
CheckBox1.Value = 0
CheckBox2.Value = 0
CheckBox3.Value = 0
CheckBox4.Value = 0
CheckBox5.Value = 0
CheckBox6.Value = 0
CheckBox7.Value = 0
End Sub
Private Sub Cbmes_Change()
CBMes = UCase(CBMes.Text)
End Sub
Olá, não teria problema desde que os dados necessitem sempre ser registrados na mesma linha.
Sim vai ser sempre na mesma linha. Eu coloquei uma outra coluna do lado com a formula SE retornando um texto caso 0 ou 1 de acordo com a variavel da checkbox. É uma planilha ta ai a ft. ctrlv.cz/shots/2018/02/01/FNxF.png e ctrlv.cz/shots/2018/02/01/3E1s.png
Obrigado pelas respostas.
Eu seguir todos os passos , mas mesmo assim quando carrego minha listbox minha data fica mm/dd e não dd/mm
Bom dia, verifique na linha de código que carrega os dados referente a data, e no final da linha verifique se está .Text
Eu fiz tudo certinho , mais quando eu carrego minha data fica no padrão americano
Bom dia, verifique na linha de código que carrega os dados referente a data, e no final da linha verifique se está .Text
Professor , não estou conseguindo achar o problema, quando eu coloco para carregar no meu filtro ele fica 2/13/2021 mais o certo era 13/02/2021 ,
Se vc poder mim ajudar pfvr
Boa tarde, deixe seu e-mail que envio a planilha para que possa comparar.
ljhon950@gmail.com
Bom dia, planilha da vídeo aula enviada.