@@CanalSGP No meu caso eu quero jogar a informação da Coluna A da Planilha4 no ComboBox2. Private Sub UserForm2_Initialize() ComboBox2.Clear Dim ULTIMALINHA As Long Dim linha As Integer ULTIMALINHA = Planilha4.Range("A1000").End(xlUp).Row Carregar.ComboBox2.AddItem Planilha4.Range("A" & linha) Carregar.ComboBox2.List(Carregar.ComboBox2.ListCount = 1, 1) = Planilha4 End Sub
Boa noite professor, existe alguma forma de tornar automatizado o preenchimento de uma data na textbox de forma que sempre que eu salve um arquivo eu não precise ficar abrindo e fechando ele novamente? Sou novo com VBA e nao achei em nenhum lugar algo que explique isso.
bom dia professor tenho um banco de dados, por exe: em uma caixa de arquivo com a ID 255 tem varias notas fiscais então eu digitei em varias linhas com a mesma ID. mas quando vou fazer uma pesquisa e quero fazer uma edição nessa linha, sempre que clico na mesma aparece na caixa de edicao a primeira linha cadastrada e nao a linha que eu quero. agora o que posso fazer para eu poder editar a linha clicada e nao a primeira linha cadastrada? obrigado
Boa noite professor, tem como tornar automático o preenchimento da list box de acordo com uma lista de nomes? Ex: copiar um nome em uma coluna em seguida abrir a listbox, colar esse nome, selecionar ele, salvar em PDF como um a macro que já existe e fazer esse mesmo processo até terminar a lista de nomes que tem na coluna?
Dessa forma ele tbm consegue consultar um pedaço somente do nome? Exemplo... Pesquisar por Vasconcelos... Mas o nome real q está lá é Carla Vasconcelos Ele conseguiria encontrar?
Ola bom dia. como posso esta contando itens no listbbox ativox e cancelado? ex tenho uma planilha de vendas, tenho produtos ativos e cancelados, queria contar eles pra jogar no meu dashboard os, mas não é somar a quantidade e sim os cadastrados produto 1 ATIVO produto 2 ATIVO produto 3 CANCELADO Queria contar quantos tem cancelados
Boa noite, acredito que o procedimento desta aula possa ser adaptado. Colocando um if de verificação e cada linha que encontrar somar mais um em uma variável.
Olá Professor! Fiz todo o código e está funcionando, porém, ele so encontra o registro se eu digitar o nome exatamente igual ao registro da ListBox. Por exemplo: Eu tenho dois registro de Roberto na ListBox, Roberto Cunha e Roberto Kubiaki. Ao pesquisar desta forma "roberto" ele deveria trazer os dois registros, conforme você mostrou no vídeo, correto? Então eu teria que digitar o nome completo para encontrar o nome. Será que faltou algum mínimo detalhe que deixei passar? Segue abaixo o código que fiz: Dim Contador As Double Dim Linha As Double Dim Criterio As String
With Caixa_listagem_clientes For Linha = 1 To .ListCount - 1 If VBA.UCase(.List(Linha, 0)) = Criterio Then .Selected(Linha) = True Contador = Contador + 1 Else .Selected(Linha) = False End If Next Linha End With If Contador < 1 And Criterio Empty Then MsgBox "Nenhum registro encontrado", vbInformation, "Controle de clientes" End If Aproveitando, para ficar perfeito o código no meu projeto, eu li aqui nos comentários que tem a possibilidade de fazer uma busca por sobrenomes, ex.: pereira, pelo comando Like "*" & Criterio & "*". Em qual posição ficaria esse código? Obrigado!
Boa noite, pode ajustar o if. Ex: If VBA.UCase(.List(Linha, 2)) Like VBA.UCase("*" & (Criterio) & "*") Then .Selected(Linha) = True Contador = Contador + 1 Else .Selected(Linha) = False End If
Bom dia, faz uma aula ensinando como jogar informações de uma coluna A por exemplo da planilha 3 num list box vba
Bom dia, pode ser um código normal para carregar a listbox, mas pegando apenas a coluna desejada. Segue link: th-cam.com/video/MnC6rFSmQj4/w-d-xo.html
@@CanalSGP No meu caso eu quero jogar a informação da Coluna A da Planilha4 no ComboBox2.
Private Sub UserForm2_Initialize()
ComboBox2.Clear
Dim ULTIMALINHA As Long
Dim linha As Integer
ULTIMALINHA = Planilha4.Range("A1000").End(xlUp).Row
Carregar.ComboBox2.AddItem Planilha4.Range("A" & linha)
Carregar.ComboBox2.List(Carregar.ComboBox2.ListCount = 1, 1) = Planilha4
End Sub
Bom dia, acredito que o procedimento do vídeo a seguir vai atender a necessidade. th-cam.com/video/F5SUlAPotpY/w-d-xo.html
Boa noite professor, existe alguma forma de tornar automatizado o preenchimento de uma data na textbox de forma que sempre que eu salve um arquivo eu não precise ficar abrindo e fechando ele novamente? Sou novo com VBA e nao achei em nenhum lugar algo que explique isso.
Bom dia, não entendi exatamente a dúvida, mas o código para capturar a data do dia é vba.date
bom dia professor
tenho um banco de dados, por exe: em uma caixa de arquivo com a ID 255 tem varias notas fiscais então eu digitei em varias linhas com a mesma ID.
mas quando vou fazer uma pesquisa e quero fazer uma edição nessa linha, sempre que clico na mesma aparece na caixa de edicao a primeira linha cadastrada e nao a linha que eu quero.
agora o que posso fazer para eu poder editar a linha clicada e nao a primeira linha cadastrada?
obrigado
Bom dia, acredito que precisa ter uma informação que seja única por linha para conseguir editar, nem que seja necessário juntar duas informações.
Boa noite professor, tem como tornar automático o preenchimento da list box de acordo com uma lista de nomes? Ex: copiar um nome em uma coluna em seguida abrir a listbox, colar esse nome, selecionar ele, salvar em PDF como um a macro que já existe e fazer esse mesmo processo até terminar a lista de nomes que tem na coluna?
Bom dia, um pouco complexo esta tarefa, não fiz algo semelhante ainda.
Dessa forma ele tbm consegue consultar um pedaço somente do nome? Exemplo... Pesquisar por Vasconcelos...
Mas o nome real q está lá é Carla Vasconcelos
Ele conseguiria encontrar?
Bom dia, acredito que seja possível, teste trocar o sinal de igual pelo comando like. Por exemplo:
Like "*" & Criterio & "*"
Ola bom dia. como posso esta contando itens no listbbox ativox e cancelado? ex tenho uma planilha de vendas, tenho produtos ativos e cancelados, queria contar eles pra jogar no meu dashboard os, mas não é somar a quantidade e sim os cadastrados
produto 1 ATIVO
produto 2 ATIVO
produto 3 CANCELADO
Queria contar quantos tem cancelados
Boa noite, acredito que o procedimento desta aula possa ser adaptado. Colocando um if de verificação e cada linha que encontrar somar mais um em uma variável.
@@CanalSGP Mas quero jogar pra um dashboard
Bom dia, Dashboard no vba não fiz ainda.
Olá Professor!
Fiz todo o código e está funcionando, porém, ele so encontra o registro se eu digitar o nome exatamente igual ao registro da ListBox.
Por exemplo: Eu tenho dois registro de Roberto na ListBox, Roberto Cunha e Roberto Kubiaki. Ao pesquisar desta forma "roberto" ele deveria trazer os dois registros, conforme você mostrou no vídeo, correto? Então eu teria que digitar o nome completo para encontrar o nome.
Será que faltou algum mínimo detalhe que deixei passar?
Segue abaixo o código que fiz:
Dim Contador As Double
Dim Linha As Double
Dim Criterio As String
Contador = 0
Criterio = VBA.UCase(Caixa_texto_pesquisar.Text)
With Caixa_listagem_clientes
For Linha = 1 To .ListCount - 1
If VBA.UCase(.List(Linha, 0)) = Criterio Then
.Selected(Linha) = True
Contador = Contador + 1
Else
.Selected(Linha) = False
End If
Next Linha
End With
If Contador < 1 And Criterio Empty Then
MsgBox "Nenhum registro encontrado", vbInformation, "Controle de clientes"
End If
Aproveitando, para ficar perfeito o código no meu projeto, eu li aqui nos comentários que tem a possibilidade de fazer uma busca por sobrenomes, ex.: pereira, pelo comando Like "*" & Criterio & "*". Em qual posição ficaria esse código?
Obrigado!
Boa noite, pode ajustar o if. Ex:
If VBA.UCase(.List(Linha, 2)) Like VBA.UCase("*" & (Criterio) & "*") Then
.Selected(Linha) = True
Contador = Contador + 1
Else
.Selected(Linha) = False
End If