Criando Userform no VBA - Excel (Parte 4 - Final)

[@descomplicaaplica564]

Professor Darlan obrigada por tanto conteúdo gratuito e de qualidade. Quem dera pudesse ir em São Paulo fazer uma aula presencial. Acompanhei todas as aulas e consegui chegar até aqui. Muito feliz. Esse conteúdo vai ajudar demais.

[@gilvaneletrica5190]

Ótimo vídeo Darlan e muito bem explicado!

[@carloscunha3793]

Na aula de VBA constam quatro botões de comando. Um de "Novo" um de "Cadastro" um de "Alterar" e outro de " Excluir". Porém esses ultimos dois vc nao ensinou. Poderia fazer um video????

[@marcelinhoferreira7627]

Valeu professor, muito bom.

[@PROFDARLANEXCEL]

Valeuuu Marcelinho!!

[@atolmakin]

Simples, direto e convincente !!!

[@PROFDARLANEXCEL]

Olá! Agradecemos sua presença aqui no canal. Abraços da Equipe DM

[@carloscunha3793]

prof Darlan, boa tarde. Na aula 4 de VBA vc nao ensinou sobre alteração do formulário, por meio de um novo botao. Tem como fazer um vídeo desse assunto mais o de excluir.

[@ivandesantana]

Realmente este jovem conhece muito bem o VBA - Suas 4 aulas criando UseForms, incluindo esta, considerada final, são muito boas. Vale muito a pena conhecer a todas. Parabéns. Espero que tenha bastante e muito sucesso.

[@PROFDARLANEXCEL]

Ivan, Obrigado pela atenção e carinho. Fico muito feliz que gostou! Estou preparando uma aula especial, tenho certeza que vai gostar.

[@gilbertovrb]

otimas explicaçoes, foi bem direto sem enrolaçao , parabens mesmo pelo seu trabalho, consegui acompanhar e terminar o formulario mas o botao excluir esta estranho nao consegui fazer ele funcionar direito ele esta excluindo mesmo que nao busco pelo listview

[@evertonmascarenhas8330]

Muito bom!! Prof Darlan me ajuda por favor, faz um vídeo mostrando como eu posso fazer um relatório/resumo dos valores e o total de acordo com cada item selecionado na pesquisa pelo userform.

[@luizcarlosinformatica832]

Professor não vai fazer a parte de baixa? Abraços

[@luizcarlosinformatica832]

Professor como fazer a parte de baixa vc poderia fazer uma aula sobre isso? Abraço e parabéns

[@orlandopaiva8530]

Parabens, muito bom. E o botão alterar e excluir no formulário 1, como farei? Tem como explicar? Grato.

[@carloscunha3793]

Ele não deve ter chegado nesse conhecimento, ainda, pois não ter respondeu. Tem nove meses a sua pergunta e ele (Prof. Darlan) respondeu apenas outras pessoas. Acredito quer não deve ser nada fácil configurar esses botões. Bem mas já ajudou bastante. temos que dar esse crédito para ele.

[@maikonfoltz7708]

Boa noite, Duvida: Considerando que excel não é SGBD, seria possivel fazer que os Userform ja salva-se os dados direto em uma tabela dinamica, e mais uma outra duvida, após os dados salvos em uma tabela diamica eu poderia trabahar essas tabelas no Power Query e relacionalos no Power Pivot para geração de relatorios (tipo um fazer um Join no SQL), e apresentalos no ListView. Desde ja agradeço. OBs.: Suas aulas são muito boas, parabéns.

[@netincaninde9111]

Bom dia professor, descobri seu canal, escrevi-me e estou acompanhando os vídeos. Parabéns pelo trabalho, sempre bem explicado. Gostaria de ver todos os seus trabalhos, mas o endereço do Blog não deu certo encontrar. Houve alguma mudança? Gostaria da continuação das aulas "CRIANDO USERFORM NO VBA - EXCEL, a última que encontrei foi a (Parte 4 - Final) de 16 de agosto de 2017 e também queria baixar a planilha do Financeiro. Muito obrigado.

[@deborad8116]

Bom dia, professor! Depois do minuto 12 voce ensina a filtrar a listview de acordo com as opções das textbox ou combobox. Existe alguma maneira de filtrar essas informações caso eu digite somente parte do texto? Estou tentando colocar com * e &, mas nao encontrei a formula certa. Testei algumas variações deste tipo: ComboBox1.Text = "" Or ("*" & ComboBox1.Text & "*") = Planilha2.Range("a" & i)) And _ Agradeço se puder ajudar! =)

[@msantosconsultoria]

Prof. Darlan bom dia, no seu curso no Udemy tem esses forms do sistema com explicações completas? me interessei comprá-lo. obrig desde já

[@jgbalves]

professor! Para os trechos onde você define a variável i= 2... uma forma melhor de se fazer é através da formula: For i = 2 To Planilha3.Range("A" & Rows.Count).End(xlUp).Row

[@danielnepomuceno]

Professor, por gentileza, como eu poderia fazer uma pesquisa, por cliente automaticamente ao ir digitando o nome do cliente? Obrigado

[@rafaelmueller5152]

Poderia fazer uma 5 aula complementado os comandos ?

[@joselynquadros9303]

como eu faria para animar uma imagen no excel e ou/ usar un gift animado na planilha. obrigada

[@flackvanderdutch3081]

como baixar o gdrive link ? Obrigado

[@tatianemarcelino5085]

não teve aula para o botão EXCLUIR do Userform1 ? não teve aula para botão de BAIXA ? faltou a explicação de como deixar o botão desabilitado de ALTERAR e EXCLUIR, no Userform1 no momento do cadastro... Adorei as aulas, faz o vídeo pra gente desses que faltaram pls

[@brenoataide7681]

Olá Professor , não encontrei a aula de editar e excluir, poderia me direcionar ?

[@alessonamorimmg]

Muito boa a aula. Porém faltou os botões de editar e excluir . Poderia fazer um vídeo para completar o formulário

[@administracaosalaodeassemb8616]

Muito bom o vídeo, mas tenho uma dúvida: Uma das colunas a serem exibidas no listview possui hiperlinks como valores. Como carregar esses links para a listview e torná-los ativos? É possível?

[@PROFDARLANEXCEL]

No listview vc não carrega o hiperlink, leva o texto da célula, vc pode direcionar usando o evento duplo clique, ou seja, quando a pessoa der dois clique naquela linha ele direciona para onde vc quer. Espero ter ajudado Abs

[@administracaosalaodeassemb8616]

@@PROFDARLANEXCEL Obrigado pela resposta. Nesse caso, eu teria que especificar o link de destino, correto? Visto que cada célula possui um link distinto, acho que ficaria inviável pelo listview, correto? Há alguma opção para atender essa necessidade?

[@andreinforj]

Professor Darlan. Tive uma dúvida. Ao clicar no ListView, eu consigo abrir o UserForm1 (Cadastro), para se fazer a edição do registro? A edição é muito importante e poderia nos dar mais uma parte desta aula SUPER INTERESSANTE. Obrigado pela ajuda com este assunto. Acompanhei todos os videos e a explicação é 1000.

[@flaviarezende7415]

Mais como fazer quando é um textbox? Onde preciso pesquisar pelo nome do cliente? Qual seria o código?

[@leonardolealdealmeida3247]

For i = 2 To Plan3.Range("a1000000").End(xlUp).Row If (ComboBox_TIPO.Text = "" Or ComboBox_TIPO.Text = Plan3.Range("a" & i)) And _ (ComboBox_STATUS.Text = "" Or ComboBox_STATUS.Text = Plan3.Range("d" & i)) And _ => TextBox_inicio.Text TextBox_fim.Text >= CDate(Plan3.Range("F" & i)) Then Professo estou com dificuldade neste ponto. pois as duas comboBox funciona sem erros. Mas quando coloco para filtrar a data inicio e data fim. aparece um erro de execução 13. Poderia me ajudar nesta questão. Obrigado.

Provavelmente há alguma célula com erro na planilha que está sendo inserida através do formulário de cadastro, por conta disso o programa de pesquisa está apresentando este erro.

[@andersoncarvalho6812]

Bom dia professor, estava indo tudo certo eu fiz o UserForm1 e UserForm2 referente a cadastro e pesquisa e funcionou perfeitamente mas quando faço o primeiro cadastro para testar, ele me da um erro '380' Invalid property value isso no UserForm2 referente a pesquisa pois no cadastro funciona, o que faço?

[@PROFDARLANEXCEL]

Anderson, esse erre deve aparecer em alguma linha especifica... Manda ela pra eu dar uma olhada! Abraço!

[@matheusmelgaco]

Professor, estou com o mesmo problema do Bruno Araújo.... quando insiro as linhas de "IF" para as celular que contém data e coloco para rodar aparece o erro 13 (Type mismatch). Poderia me auxiliar pfv?

[@PROFDARLANEXCEL]

Agradecemos sua visita em nosso Canal. Sua dúvida será encaminhada ao professor Darlan. Um abraço! Equipe DM

[@edmilsoned1378]

Puxa o meu deu o mesmo erro

[@edmilsoned1378]

O professor repassou o erro com você. Da pra me passar????

[@dinelson.Oliveira]

CADE O RESTO DA AULA AINDA VOLTA O BOTÃO DE EXCLUI

[@PROFDARLANEXCEL]

Dinelson, vc tem razão... nos próximos dias vou postar essa aula, pode deixa! Outra coisa, anotei um ponto positivo aqui pelo seu time!! Dale Fogo!! rs Abs!!

[@CaioCesarPS]

Olá Darlan ou alguma outra pessoa, preciso saber como fazer essa pesquisa puxando pelo CPF, alguem consegue me ajudar por favor?muito obrigado

[@gsa1440]

Dá para botar o algoritmo de pesquisa imediatamente junto ao evento change da combobox. Eliminando assim a necessidade de se clicar no botão.

[@M3SS14SX]

Cade a o link da Planilha ?

[@armandobarros7520]

Professor, tenho curiosidade e necessidade em aprender VBA mas é possível, sem dominar o inglês; uma vez que este é o idioma da linguagem dos códigos? Abraço, Armando

[@PROFDARLANEXCEL]

Olá Armando!!! Uma noção de Inglês sempre ajuda, porém o mais importante é a 'lógica de programação. Temos um curso no "forno", saindo em breve. Manda um e-mail para [e-mail] pra colocar seu nome na lista. Abraços!!!

[@gabsena1]

Alguém sabe como resolver o erro? O erro que aparece é '13', Tipos incompatíveis. Quando eu depuro ele diz que o erro está nas duas linhas de código referente às datas. Private Sub BtnPesquisar_Click() LISTAR_ENTRADAS End Sub Private Sub TextDataFim_Change() 'Formatação para datas TextDataFim.MaxLength = 10 If Len(TextDataFim) = 2 Or Len(TextDataFim) = 5 Then TextDataFim.Text = TextDataFim.Text & "/" End If End Sub Private Sub TextDataInicio_Change() 'Formatação para datas TextDataInicio.MaxLength = 10 If Len(TextDataInicio) = 2 Or Len(TextDataInicio) = 5 Then TextDataInicio.Text = TextDataInicio.Text & "/" End If End Sub Private Sub UserForm_Initialize() 'Declaração dos itens no Select ComboTipo.AddItem "Pagar" ComboTipo.AddItem "Receber" ComboStatus.AddItem "Realizado" ComboStatus.AddItem "Não Realizado" End Sub Sub LISTAR_ENTRADAS() 'Declaração das variáveis Dim item As ListItem Dim i As Integer ListViewEntradas.ColumnHeaders.Clear ListViewEntradas.ListItems.Clear ListViewEntradas.Gridlines = True ListViewEntradas.View = lvwReport ListViewEntradas.FullRowSelect = True ListViewEntradas.ColumnHeaders.Add Text:="Data", Width:=60, Alignment:=0 ListViewEntradas.ColumnHeaders.Add Text:="Tipo", Width:=70, Alignment:=0 ListViewEntradas.ColumnHeaders.Add Text:="Valor", Width:=80, Alignment:=0 ListViewEntradas.ColumnHeaders.Add Text:="Categoria", Width:=60, Alignment:=0 ListViewEntradas.ColumnHeaders.Add Text:="Cliente/ Fornecedor", Width:=120, Alignment:=0 ListViewEntradas.ColumnHeaders.Add Text:="CPF/ CNPJ", Width:=100, Alignment:=0 ListViewEntradas.ColumnHeaders.Add Text:="Data Previsão", Width:=70, Alignment:=0 ListViewEntradas.ColumnHeaders.Add Text:="Status", Width:=60, Alignment:=0 ListViewEntradas.ColumnHeaders.Add Text:="Observação", Width:=100, Alignment:=0 For i = 2 To Planilha2.Range("A1000000").End(xlUp).Row If (ComboTipo.Text = "" Or ComboTipo.Text = Planilha2.Range("b" & i)) And _ (ComboStatus.Text = "" Or ComboStatus.Text = Planilha2.Range("h" & i)) And _ TextInicio.Text = CDate(Planilha2.Range("g" & i)) Then 'And _ 'TextInicio.Text

[@PROFDARLANEXCEL]

Olá Gabriel! Estamos com uma nova playlist no canal “Resolve essa bucha Darlan”. Manda um e-mail para [e-mail] explicando o seu problema! Abs!

[@gabsena1]

@@PROFDARLANEXCEL Ok, Obrigado!

Professor, quando coloco as duas linhas de código referente às datas me aparece o erro dizendo o seguinte: "Erro em tempo de execução '13': Tipos incompatíveis" O que sugere de solução para tal erro? Lembrando que só falta essa configuração para o projeto ser finalizado. Se puder me ajudar serei muito grato.

[@PROFDARLANEXCEL]

Olá! Dúvida encaminhada ao professor. Abraços, Equipe DM

@@PROFDARLANEXCEL Muito Obrigado.

[@Daniel_Pãozinho]

@ , o meu deu o mesmo erro no critério de data. To rachando os miolos pra saber onde está o erro

Gabriel Martelo me manda seu e-mail que eu tento ajudar

[@Daniel_Pãozinho]

@ [e-mail]

[@GuilhermePereira-qx6cx]

Private Sub CommandButton1_Click() LISTAR_FINANCEIRO End Sub Private Sub CommandButton2_Click() ComboBox1 = "" ComboBox2 = "" TextBox1 = "" TextBox2 = "" LISTAR_FINANCEIRO End Sub Private Sub TextBox1_Change() If Len(TextBox1.Value) = 10 Then 'Verifica se já digitou os dez caracteres, por exemplo: "31/01/2015" If Left(TextBox1.Value, 2) > 31 Then 'Verifica se foi digitou número maior que 31 MsgBox "Dia Incorreto" ElseIf Mid(TextBox1.Value, 4, 2) > 12 Then 'Verifica se o mês é maior que 12 MsgBox "Mês Incorreto" ElseIf Right(TextBox1.Value, 4) < 2010 Then 'Verifica se o ano é maior que 2010 MsgBox "Ano Incorreto" End If End If End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Formatação da data TextBox1.MaxLength = 10 'Fixando o tamanho da data em 10 DD/MM/YYYY Select Case KeyAscii Case 8 'Aceita o Back Space Case 13: SendKeys "(TAB)" 'Anula o Tab Case 45 To 58 If TextBox1.SelStart = 2 Then TextBox1.SelText = "/" If TextBox1.SelStart = 5 Then TextBox1.SelText = "/" Case Else: KeyAscii = 0 'Ignora os outros caracteres End Select End Sub Private Sub TextBox2_Change() If Len(TextBox2.Value) = 10 Then 'Verifica se já digitou os dez caracteres, por exemplo: "31/01/2015" If Left(TextBox2.Value, 2) > 31 Then 'Verifica se foi digitou número maior que 31 MsgBox "Dia Incorreto" ElseIf Mid(TextBox2.Value, 4, 2) > 12 Then 'Verifica se o mês é maior que 12 MsgBox "Mês Incorreto" ElseIf Right(TextBox2.Value, 4) < 2010 Then 'Verifica se o ano é maior que 2010 MsgBox "Ano Incorreto" End If End If End Sub Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Formatação da data TextBox2.MaxLength = 10 'Fixando o tamanho da data em 10 DD/MM/YYYY Select Case KeyAscii Case 8 'Aceita o Back Space Case 13: SendKeys "(TAB)" 'Anula o Tab Case 45 To 58 If TextBox2.SelStart = 2 Then TextBox2.SelText = "/" If TextBox2.SelStart = 5 Then TextBox2.SelText = "/" Case Else: KeyAscii = 0 'Ignora os outros caracteres End Select End Sub Private Sub UserForm_Initialize() ComboBox1.AddItem "PAGAR" ComboBox1.AddItem "RECEBER" ComboBox2.AddItem "DINHEIRO" ComboBox2.AddItem "CRÉDITO" ComboBox2.AddItem "DÉBITO" ComboBox2.AddItem "CHEQUE" End Sub Sub LISTAR_FINANCEIRO() 'Criando uma rotina 'Declando variáveis Dim item As ListItem Dim i As Integer 'Limpar o ListView ListView1.ColumnHeaders.Clear ListView1.ListItems.Clear 'Determinar propriedades do ListView ListView1.Gridlines = True 'colocando linhas ListView1.View = lvwReport 'estilo da linha ListView1.FullRowSelect = True 'selecionando a linha inteira 'Criar o cabeçalho do ListView ListView1.ColumnHeaders.Add Text:="TIPO", Width:=62, Alignment:=0 ListView1.ColumnHeaders.Add Text:="NF", Width:=62, Alignment:=0 ListView1.ColumnHeaders.Add Text:="CLIENTE/FORNECEDOR", Width:=174, Alignment:=0 ListView1.ColumnHeaders.Add Text:="FORMA DE PGTO", Width:=82, Alignment:=0 ListView1.ColumnHeaders.Add Text:="VALOR", Width:=60, Alignment:=0 ListView1.ColumnHeaders.Add Text:="VENCIMENTO", Width:=70, Alignment:=0 ListView1.ColumnHeaders.Add Text:="COMPETÊNCIA", Width:=70, Alignment:=0 ListView1.ColumnHeaders.Add Text:="DATA DE PGTO", Width:=70, Alignment:=0 'Carregar o ListView For i = 3 To Sheet2.Range("B1000000").End(xlUp).Row If (ComboBox1.Text = "" Or ComboBox1.Text = Sheet2.Range("B" & i)) And _ (ComboBox2.Text = "" Or ComboBox2.Text = Sheet2.Range("E" & i)) And _ TextBox1.Text = "" Or TextBox1.Text = CDate(Sheet2.Range("G" & i)) Then Set item = ListView1.ListItems.Add(Text:=Sheet2.Range("B" & i)) 'TIPO item.SubItems(1) = Sheet2.Range("C" & i) 'NF item.SubItems(2) = Sheet2.Range("D" & i) 'CLIENTE/FORNECEDOR item.SubItems(3) = Sheet2.Range("E" & i) 'FORMA DE PGTO item.SubItems(4) = Sheet2.Range("F" & i) 'VALOR item.SubItems(5) = Sheet2.Range("G" & i) 'VENCIMENTO item.SubItems(6) = Sheet2.Range("H" & i) 'COMPETÊNCIA item.SubItems(7) = Sheet2.Range("I" & i) 'DATA DE PGTO End If Next End Sub Alguém sabe como resolver o erro? O erro que aparece é '13'

[@PROFDARLANEXCEL]

Guilherme, normalmente este erro está relacionado a planilha protegida durante a execução do código

[@GuilhermePereira-qx6cx]

@@PROFDARLANEXCEL Eu tentei mas não consegui solucionar o problema. Eu apenas quis fazer um pouco a mais do que o código que foi passado no vídeo. Incrementei um botão de limpar os dados após a consulta. Porém está dando erro na dada (provavelmente).

[@carloscunha3793]

Acho que configurar os botoes excluir ou alterar não deve ser nada fácil .

[@PROFDARLANEXCEL]

Tomei uma bronca em hem Carlão... rs Está decidido, a aula dessa semana será para finalizar essa sequência! Na época que eu criei a sequência não teve muita visualização, início do canal, tal... mas pode esperar, essa semana tem, é o melhor, não é difícil! Abraço e bom final de semana!

[@carloscunha3793]

@@PROFDARLANEXCEL Mil desculpas prof, não foi a minha intensão. Na verdade, igual ao senhor em matéria de ensinamento não tem. Muito difícil configurar esses botoes, mesmo assistindo outros vídeos não consegui. Agora dar aquela forca para todos nós que querem colocar esses botões (excluir e alterar). Fique sabendo que pois estou te indicando para várias pessoas. Você tem didática e se expressa múito bem.

[@carloscunha3793]

@@PROFDARLANEXCEL E aí professor, estamos todos esperando aquela aula de alterar e excluir dados no VBA? Sai esse mês?

[@carloscunha3793]

@@PROFDARLANEXCEL Proferssor, bom dia!. Tudo bem, ainda estamos esperando aquele vídeo de construção dos botões "Alterar e Excluir" em VBA. Consegue disponibilizá-los para nós, ainda esse mês? Estamos todos ansiosos.

[@rafarwa]

@@PROFDARLANEXCEL estou aprendendo muito... Obrigado... Gostaria de aprender o restante da aula....