Excelente programação! Observe que tudo o que se precisa fazer ao inicializar o form é executar os comandos do botão limpar. Então, você pode colocar todos os comandos do botão limpar em uma única rotina e chamá-la tanto no evento click do botão limpar como no evento initialize do form.
Cara pensar que aprendi o que é Placeholder quando comecei a estudar PHP! Desgrama que PHP é muito mais dificil de aprender para quem está acostumado com VBA! Tu já me ajudou horrores, nesses 3 anos fiz meu nome no meu trabalho graças a tuas aulas, algumas coisas consegui por conta porém tenho um notebook muito devagar no meu trabalho e atualmente quando vou salvar qualquer projeto com macros ele dá crash, gera um arquivo de log sem extensão definida onde está tecnicamente as informações atualizadas que não foram salvas no projeto em XLSM, a pasta está compartilhada na nuvem, em casa como tenho um PC como muito mais desempenho isso não acontece pois em segundos o arquivo de log some e o sistema é salvo normalmente... Isso tem me desanimado em refinar meu sistema atual que já conta com pelo menos 1400 cadastros de baixa de estoque e 950 Lotes registrados... O interessante é que com esse volume já fiz curva ABC, relatório de valores de entrada e saída por tempo e relatório de consumo de lote por tempo! mas o sistema ficou pesado no notebook do trabalho e isso tem me desmotivado um pouco! Cogitei migrar meu sistema que fiz no VBA para PHP mas aí veio a pandemia e desmotivei de estudar isso pois para chegar ao mesmo nível de conhecimento que tenho no VBA hoje precisaria aprender 4 linguagens a parte incluindo o PHP (Java Script, Html5 e CSS3) Se não fosse esse empecilho de estar lerdo no notebook onde eu uso para trabalhar eu não estaria tão estressado em achar uma linguagem mais leve para portar esse sistema... A não ser que tu tenha uma receita para "emagrecer" e rodar com mais desempenho embora convencer meus superiores a trocar de dispositivo será muito mais difícil!
Bom dia, talvez migrar os dados para banco de dados Access, e fazer apenas manipulação com o VBA. Outra possibilidade para deixar a planilha mais leve é salvar o arquivo com o tipo de binário, vai diminuir o peso.
Boa aula. Numa caixa de combinação, como fazer para que o texto fique o mais à esquerda possível? Quando escolhemos um dado da caixa de combinação, ele fica um pouco dentro da caixa. O que eu queria é que ele ficasse encostado à borda esquerda. É possível?
@@CanalSGP Essa propriedade não resolve o problema, porque aplica-se só à instrução dentro do campo. O que pretende é colocar a opção (depois de escolhida) encostada à esquerda. Ou seja, em tenho na combobox opções que são maiores que o campo (e não posso aumentar o campo). Por isso quero encostar as opções escolhidas o mais à esquerda possível. Em alternativa, como fazer para reduzir o tamanho da opção escolhida para ficar o texto todo visível. Ou seja, o tamanho do campo mantém-se, mas o tamanho do texto ajusta-se ao campo (reduz o tamanho da letra). Obrigado.
Olá, este código só funciona dentro de UserForm? Pois eu inclui TextBox direto na planilha através do ActiveX e não consegui. Por exemplo, os eventos Enter e Exit não existem lá. Grato
Olá Luan, boa tade! Não tem como add o PLACEHOLDER em uma combobox? Estou tentando mas aparece como "Valor da propriedade inválido" Não estou conseguindo por esse motivo Grato
Show de bola!!!!! mas o meu ta dando um erro depois que compilo e clico na célula do textbox me da a seguinte mensagem : "O objeto não aceita essa propriedade ou método" quando depuro o código ele me joga para essa linha: "Controls(Objeto).Tag = Controls(Objeto).Value" poderia me ajudar?
@@paulaoliveira2209 oii, eu tive que tirar de dentro do frame. Infelizmente pelas pesquisas que eu fiz, dentro do frame não permite, aí tive que mudar um pouco meu projeto aqui. Pode ser que tenha uma solução e eu não achei, agora quem poderá salvar a gente é o professor, e aí professor????? Socorre noix!!! Rs
como faz pra usar estas funções em modo classe, exemplo: tem vários formulários uns 8 formulários, ai teria que fazer isso pra cada formulário. Não teria como usar uma só função pra todos os formulários?
ola boa Tarde sera que o Sr conseguiria me ajudar em um codigo que estou tentado desenvolver Sub carregar_modelo() fabrica = frm_orcamento.CBX_FABRICANTE Dim COMANDOSQL As String Call Conecta With frm_orcamento .CBX_CARRO.Clear COMANDOSQL = "select * from tbl_Cliente_Carros where id_fabricante = '" + fabrica + "'" Set consulta = banco.OpenRecordset(COMANDOSQL) Do While Not consulta.EOF .CBX_CARRO.AddItem consulta.Fields(3) & "" consulta.MoveNext Loop Call Desconecta End With End Sub estou tentado colocar a função '( distinct ) estou preenchendo uma combobox com um fabricante e na outra gostaria que trouxe os carros mais para não criar uma tabela diferente estou usado os carros ja cadastrado com os clientes
Novamente, um conteúdo muito bom. Parabéns
Obrigado pelo elogio
mais um aprendizado feliz. Obrigado Prof.
Que bom, sucesso em seus estudos.
Excelente programação!
Observe que tudo o que se precisa fazer ao inicializar o form é executar os comandos do botão limpar.
Então, você pode colocar todos os comandos do botão limpar em uma única rotina e chamá-la tanto no evento click do botão limpar como no evento initialize do form.
Bom dia, obrigado, pode ser feito desta forma também.
Fiz aqui e ficou super top. Valeu.
Que bom que deu certo
Meus parabéns como sempre conteúdo de altíssimo nivel
Obrigado
Show!!!!!
Obrigado
Muito bom mano. Obrigado!
De nada.
Cara pensar que aprendi o que é Placeholder quando comecei a estudar PHP! Desgrama que PHP é muito mais dificil de aprender para quem está acostumado com VBA! Tu já me ajudou horrores, nesses 3 anos fiz meu nome no meu trabalho graças a tuas aulas, algumas coisas consegui por conta porém tenho um notebook muito devagar no meu trabalho e atualmente quando vou salvar qualquer projeto com macros ele dá crash, gera um arquivo de log sem extensão definida onde está tecnicamente as informações atualizadas que não foram salvas no projeto em XLSM, a pasta está compartilhada na nuvem, em casa como tenho um PC como muito mais desempenho isso não acontece pois em segundos o arquivo de log some e o sistema é salvo normalmente... Isso tem me desanimado em refinar meu sistema atual que já conta com pelo menos 1400 cadastros de baixa de estoque e 950 Lotes registrados... O interessante é que com esse volume já fiz curva ABC, relatório de valores de entrada e saída por tempo e relatório de consumo de lote por tempo! mas o sistema ficou pesado no notebook do trabalho e isso tem me desmotivado um pouco! Cogitei migrar meu sistema que fiz no VBA para PHP mas aí veio a pandemia e desmotivei de estudar isso pois para chegar ao mesmo nível de conhecimento que tenho no VBA hoje precisaria aprender 4 linguagens a parte incluindo o PHP (Java Script, Html5 e CSS3)
Se não fosse esse empecilho de estar lerdo no notebook onde eu uso para trabalhar eu não estaria tão estressado em achar uma linguagem mais leve para portar esse sistema...
A não ser que tu tenha uma receita para "emagrecer" e rodar com mais desempenho embora convencer meus superiores a trocar de dispositivo será muito mais difícil!
Bom dia, talvez migrar os dados para banco de dados Access, e fazer apenas manipulação com o VBA. Outra possibilidade para deixar a planilha mais leve é salvar o arquivo com o tipo de binário, vai diminuir o peso.
Estava tentando fazer isso meus parabéns
Obrigado
Boa aula.
Numa caixa de combinação, como fazer para que o texto fique o mais à esquerda possível? Quando escolhemos um dado da caixa de combinação, ele fica um pouco dentro da caixa. O que eu queria é que ele ficasse encostado à borda esquerda. É possível?
Boa tarde, obrigado, não me recordo se este objeto tem a propriedade textalign, e tiver alterar left.
@@CanalSGP Essa propriedade não resolve o problema, porque aplica-se só à instrução dentro do campo. O que pretende é colocar a opção (depois de escolhida) encostada à esquerda.
Ou seja, em tenho na combobox opções que são maiores que o campo (e não posso aumentar o campo). Por isso quero encostar as opções escolhidas o mais à esquerda possível.
Em alternativa, como fazer para reduzir o tamanho da opção escolhida para ficar o texto todo visível. Ou seja, o tamanho do campo mantém-se, mas o tamanho do texto ajusta-se ao campo (reduz o tamanho da letra). Obrigado.
Bom dia, automático não sei se tem com fazer isso, o que pode fazer é reduzir o tamanho da letra normal, para todas as opções.
Olá, este código só funciona dentro de UserForm?
Pois eu inclui TextBox direto na planilha através do ActiveX e não consegui.
Por exemplo, os eventos Enter e Exit não existem lá.
Grato
Boa tarde, acredito que funciona somente em formulário, porque precisa ter os eventos corretos.
Olá Luan, boa tade!
Não tem como add o PLACEHOLDER em uma combobox?
Estou tentando mas aparece como "Valor da propriedade inválido"
Não estou conseguindo por esse motivo
Grato
Bom dia, se estiver como dowlist acredito que não.
Show de bola!!!!! mas o meu ta dando um erro depois que compilo e clico na célula do textbox me da a seguinte mensagem : "O objeto não aceita essa propriedade ou método" quando depuro o código ele me joga para essa linha: "Controls(Objeto).Tag = Controls(Objeto).Value" poderia me ajudar?
Boa tarde, deixe seu e-mail que envio a planilha da aula, somente pela mensagem não sei exatamente o que pode ser, talvez nome de objeto errado.
O meu está com a mesma coisa, já refiz o código igual a aula mas ainda não resolveu. Conseguiu uma solução amigo?
O meu está dando isso quando eu tento colocar numa texbox que está dentro de um frame... Como eu resolvo?
@@paulaoliveira2209 oii, eu tive que tirar de dentro do frame.
Infelizmente pelas pesquisas que eu fiz, dentro do frame não permite, aí tive que mudar um pouco meu projeto aqui.
Pode ser que tenha uma solução e eu não achei, agora quem poderá salvar a gente é o professor, e aí professor?????
Socorre noix!!! Rs
como faz pra usar estas funções em modo classe, exemplo: tem vários formulários uns 8 formulários, ai teria que fazer isso pra cada formulário. Não teria como usar uma só função pra todos os formulários?
Boa tarde, não tentei fazer desta forma ainda.
Boa Noite
Tem como você mostrar como eu faço uma frase fica passando no rodapé do formulario assim que ele for aberto.
Desde ja agradeço
Boa noite, não vi algo semelhante ainda, não sei se é possível.
@@CanalSGP Boa Noite
Obrigado,seria escrever uma frase ela ficar passando enquanto trabalho com formulario
Entendi
Esqueci como fazer para manter o texto dentro da textbox ao abrir o formulario. Você tem essa aula?
Bom dia, pode utilizar a propriedade value no evento initialize do formulário. Ex:
Textbox1.value = "TEXTO"
Teria como fazer isso dentro de um módulo de classes?
Boa noite, não tentei fazer desta forma ainda.
ola boa Tarde sera que o Sr conseguiria me ajudar em um codigo que estou tentado desenvolver
Sub carregar_modelo()
fabrica = frm_orcamento.CBX_FABRICANTE
Dim COMANDOSQL As String
Call Conecta
With frm_orcamento
.CBX_CARRO.Clear
COMANDOSQL = "select * from tbl_Cliente_Carros where id_fabricante = '" + fabrica + "'"
Set consulta = banco.OpenRecordset(COMANDOSQL)
Do While Not consulta.EOF
.CBX_CARRO.AddItem consulta.Fields(3) & ""
consulta.MoveNext
Loop
Call Desconecta
End With
End Sub
estou tentado colocar a função '( distinct )
estou preenchendo uma combobox com um fabricante e na outra gostaria que trouxe os carros mais para não criar uma tabela diferente estou usado os carros ja cadastrado com os clientes
Bom dia, em breve vamos lançar uma vídeo aula sobre essa necessidade.