#57 - Curso de Macros e Excel VBA - Projeto - Planilha de orçamentos

#57 - Curso de Macros e Excel VBA - Projeto - Planilha de orçamentos

Nesta quinquagésima sétima aula do curso de Macros e VBA vamos continuar desenvolvendo o projeto 2.
Uma planilha de orçamentos totalmente personalizada.

Conteúdo abordado
- Criação da Rotina de Alteração de dados
- Criação da Rotina de Exclusão de dados
- Dicas diversas das operações

Boa aula!
Se gostou compartilhe com seus colegas de trabalho e amigos!

#Excel #VBA #MVP #MVPBR #MVPBuzz #ExcelVBA #MicrosoftExcel

Me acompanhe nas redes sociais:

Microsoft Excel é um aplicativo do pacote Microsoft Office

[paulotarso]

Aulas cada vez mais produtivas e agregando valores e conhecimentos.

[mauricioreguete]

Seus ensinamentos são espetaculares, Que DEUS possa te abençoar muito ...

[ContatoLFMathias]

Como sempre, agregando conhecimento!

[edsonlucia]

show de bola, simples e pratico, indo direto sem muitos rodeios

[franciscoammeida]

Ola, Alessandro, obrigado por compartilhar seus conhecimentos, estou aprendendo muito com essa ferramenta fantástica que é o Excel. já estou fazendo coisas que eu não acredito que é eu mesmo que fiz, estou programando cara, estou muito feliz, pois com esse projeto eu aprendi que posso fazer muito mais, é como você diz agente pode fazer o que quiser e como quiser, assisto todas as suas aulas no Youtube desde as aulas do básico até chegar a programar com VBA. Está sendo muito gratificante ver o resultado de tudo que estou fazendo graças a você. Muito obrigado mesmo.

[yasmin_pewr]

ótima aula professor, vamos juntos ate o fim do treinamento

[MrToasa]

Valeu Alessandro. Agora está tudo ok. Agradeço mais uma vez a atenção.

[sibramopoesias]

Este curso de orçamentos está maravilhoso.
.

[looksmart]

Mais uma excelente aula como era de se esperar. Parabéns Alessandro.

[rodrigocorreia]

Chegando na aula 57 show e simplesmente TOP!!!!

[wessleybarbosa]

Simples e muito explicativo, novamente parabéns!

[josael]

Muito bom!! As Aulas e a sua atenção!!!, obrigado mais uma vez consegui resolver o problema que tive na aula 56 graças a sua assistência tinha um "S" no meio do caminho.Obrigado!!!

[leonardoguimaraes]

Show de bola!
Professor, boa tarde, tudo bem?
fiz uma pequena rotina na qual deve ser registrado algumas quantidades mas, quando os registros são feitos eles estão sendo enviados para a planilha como texto e ficando aquela opção de converter para números, como posso resolver isso, mesmo declarando como inteiro.
abraços! No aguardo!
E PARABÉNS é claro!
super show!

[Rogerio]

Aew Pessoal. Não sei se e a melhor forma mas deu certo, para inserir a resposta na label eu utilizei o método Clear nas ComboBox após gravei a resposta na label e para atualizar novamente as box chamei a sub Userform_Activate.

[MrToasa]

Não consegui acessar a aula #58 - Planilha de orçamentos. Qdo. tento assistir no you tube diz video privado.

[jamespontes]

Olá somente para contribuir na parte onde pode dar um tempo para a mensagem do label de status seja observada pelo usuário e colocar
If vResp = 6 Then

ActiveCell.EntireRow.Delete

lblStatus.Caption = "Produto Apagado...."

Application.Wait Now + TimeValue("00:00:02")

ElseIf vResp = 7 Then

lblStatus.Caption = "Produto não Apagado...."

Application.Wait Now + TimeValue("00:00:02")

End If

[pedromartins]

Olá, Alessandro! Eu fiz o código sempre retornar à célula A1 e mesmo assim consegui fazer as rotinas de alterar e excluir funcionar adequadamente.

Primeiro declarei uma variável LinhaAtual do tipo long na área de declaração. Na rotina que trata da mudança do código e carrega os valores da planilha para o formulário, acrescentei a seguinte linha:
LinhaAtual = ActiveCell.Row

Desta forma, temos armazenado o número da linha cujos dados estão no formulário no momento. Na rotina de exclusão, posso colocar o comando da seguinte forma:
Cells(LinhaAtual, 1).EntireRow.Delete

Na rotina de alteração, seleciono a linha da seguinte forma:
Cells(LinhaAtual, 1).Select

Desta forma, podemos colocar o Range("A1").Select no final de cara rotina, evitando que o usuário veja a linha selecionada na planilha.

[Fernando-zros]

Alessandro, tudo bem?
Tenho seguido o roteiro do projeto de orçamentos, com algumas pequenas modificações, adaptando para um cadastro de clientes. No formulário de cadastro, dou a opção de cadastrar um novo cliente ou excluir/modificar um cadastro já feito, de forma semelhante ao que você fez ao longo deste curso.
Para o usuário selecionar um nome já existente no cadastro, a caixa de combinação com o nome dos clientes é alimentada por uma lista, criada com a função DESLOC, como você ensinou em outros vídeos. Esta lista, por sua vez, é alimentada a partir do próprio formulário com o cadastro dos clientes.
Pois bem, estou com um problema que não consigo resolver de jeito nenhum, quando quero excluir um cliente: quando eu clico em excluir, assim que o sub apaga a linha correspondente, meu código acaba interpretando isso como uma modificação no nome e entra na sub quando um nome é selecionado (txt_nome_Change). Já tentei colocar a função em vários pontos, mas debugando eu vejo que o código sempre vai para esta sub antes de finalizar a sub do botão excluir. Alguma ideia?

[assisgauderetogaudereto]

sem duvida, muito bom. mas gostaria de perguntar. qd lanço os dados quero que minha planilha fique organizada, para isso, usei o codigo "Columns.AutoFit" ok mas pergunto tem um comando onde não há necessidade de repetir em todas as colunas? como uma variavel declarada no sistema. ex: Dim Linha As Long e Linha = Columns.AutoFit
aí o codigo ficava assim Linha.ActiveCell..Offset(0, 1).Value = frmProd.txtDescricao.Text
pode ser?

[claytonpradodasilva]

Alexandro neste evento
Dim vResp As Integer

vResp = MsgBox("Deseja realmente excluir?", vbYesNo)

If vResp = 6 Then

ActiveCell.EntireRow.Delete

Range("A1").Select
' eu coloquei essa range para o cmb poder carregar a lista inteira sem ele só carrega da celula apaga para baixo tipo se eu apago a celula 5 o cmb cod carrega de 5 para baixo ficando 6, 7, 8, 9, 10. e com essa range em A1 ele carrega tudo, eu to certo ? e pelo o que vi no alterar a mesma coisa
MsgBox "Registro Apagado..."

End If

Unload Me
frmProd.Show