Cadastro de Clientes com Formulário no Excel (Parte 6 - FOTOS)
HTML-код
- Опубликовано: 3 ноя 2021
- Chegou a parte mais esperada deste nosso formulário: cadastro com fotos. Nesta aula você aprenderá criar um formulário com fotos e salvar a foto com o nome do cliente. Também vamos realizar algumas alterações nos outros botões.
Quer uma Planilha para Fluxo de Caixa?
➡️ Baixar Planilha Fluxo de Caixa: go.hotmart.com/I83874236U
🚨 Agora com 1000 campos para Receitas e Despesas 🚨
Assista todas as aulas:
Parte 1: • Cadastro de Clientes c...
Parte 2: • Cadastro de Clientes c...
Parte 3: • Cadastro de Clientes c...
Parte 4: • Cadastro de Clientes c...
Parte 5: • Cadastro de Clientes c...
Parte 6: Você está assistindo
Parte 7: • Como Abrir Direto no F...
Parte 8: • Como Criar Botão Salva...
Para ter acesso a materiais exclusivos, entre em nosso canal no Telegram:
t.me/ReynoCompartilhandoConhe...
Para você:
Como Fazer Fluxo de Caixa no Excel:
• Criando um fluxo de ca...
Como Fazer Controle Financeiro no Excel:
• Como Fazer Planilha de...
Instagram: / reynoconhecimentos
#Cadastro #Formulario #Fotos
Muito bom, obrigada.
Muito bom !!!!
Muito top
Parabéns!
Obrigado meu Amigo, todas as aulas são maravilhosas para se entender, estou fazendo uma planilha de cadastro de moradores de bairro, essas aulas estão sendo ótima, mais uma vez obrigado, principalmente pela paciência!!!
Olá, muito boa as suas aulas, foi incrivel o aprendizado que tive com elas, no caso de limpar a foto do comando edittar que não troca a fota do cadastra caso não tenha a fota, utilizei o comando para limar a foto antes de executar a busca do preencimento da edição do cadastra ,
Image1.Picture = LoadPicture("")
foto = ""
e deu certo.. obrigado.
PARABENS E OBRIGADO PELA DEDICAÇÃO
Maravilha.
Olá,ótima programação
Excelente
Obrigado pelas aulas, são muitos boas!. Por gentileza futuramente poderia ensinar a fazer um sistema de locação.
Muito interessante
Bom dia, gostei muito de assistir as suas aulas porque cada dia que eu assisto e estudo estou a ter os resultas positivos. Por favor gostaria continuar aprender outras parte 2,3.4,5,6,7 e em diante dos formulários
Olá, primeiramente, gratidão pelo seu esforço e compartilhamento do seu aprendizado.
Existe uma forma para criar um ícone de acesso ao sistema, sem entrar no Excel. Deixando a planilha oculta, como um banco de dados SQL, por exemplo.
Bom dia Reyno, parabéns pelas aulas muito boas e dinâmicas, estou criando uma tabela de estoque orçamento e proposta comercial e preciso de integrar as 3 planilhas, você tem algum vídeo que explica como fazer isso. Desde já agradeço sua dedicação.
Boa noite;
Ótima sequência de aulas...
Nesta, faltou cadastrar a foto ao clicar em "Alterar"
Obrigado pelas videos aulas .
Caso eu queira colocar mais extensões para as fotos. bmp, png.
por favor com acrescento isso ao código
Ola, gostei muito das suas aulas. Faz um vídeo, onde selecionando o item na listagem ele carrega os dados e a imagem.
Poderia fazer a aula com um código para clientes, para o numero ir automático sem escrever pra não se perder. fiz todos as aulas com calma e consegui um resultado excelente e agradeço por isso. Tem um vídeo seu fazendo também cadastro de clientes com numero porem queria nesse formulário poder fazer isso e sozinha não sei :( SE CONSGEUIR VER E FAZER A AULA FICAREI AGRADECIDA ;)
Olá muito bom sua aulas, gostaria de trabalhar com o botão pesquisa buscando informações de outra tela(formulário).
Não consegui salva a foto na pasta como vc explica na aula, da a mensagem de que salvou mas não aparece na pasta ,como resolver isso se alguém poder ajudar eu agradeço
Obrigado pelas aulas. Gosto muito de excel e se hoje tenho casa própria é graças a um curso básico feito em 2008. Infelizmente no escritório onde trabalho não se usa Excel e estou afastado do aplicativo há uns 15 anos. Pretendo me atualizar agora. Seria possível fazer um vídeo ensinado imprimir os dados do formulário? ( enviar para a impressora).
Obrigado por acompanhar o nosso canal. Podemos fazer sim. Fica ligado.
Estou com essa mesma dúvida. Parabéns pelo conteúdo. Excelentes aulas.
se colocarmos a limpeza da foto dentro do editar não resolve a questão da foto quando não usamos o botão "LIMPAR"?
Ola muito obrigado pela instruçao de facto ja consigo fazer alguma coisa no vba, preciso saber como corrigir o erro 1004 da propriedade vlookup
Show de bola, como seria um cenário em que essas informações eu jogasse para um contrato de serviço e exportar em pdf este contrato, seria possível essa adaptação?
Excelentes vídeos! Gostaria de uma orientação, pois fiz como orientado, no entanto, Não sei pq ao selecionar um cadastro e editar, não está trazendo a foto, apesar de estar cadastrando na pasta de fotos
Ali em na edição de fotos, poderia colocar um novo botão, Olá ali no botão de foto poderia colocar mais um botão só que daí é um botão mais avulso que direciona-se para a pasta do arquivos das fotos. Daí, então selecioaria a foto correta. Não sei se ajudei 😅 com comentário
Boa Noite
Tem como ao clicar no item da listbox carregar os campos e foto do cliente.
Boa tarde.
Fazendo alguns testes achei como arrumar o esquema da foto que não some qnd clica em alguma pessoa q não possui foto e depois em editar.
Basta adicionar o código de ocultar a imagem no inicio da execução do botão EDITAR.
Segue abaixo:
Private Sub BTEditar_Click()
Image1.Picture = LoadPicture("")
foto = ""
Ou seja, qnd clicar no botão editar, antes de trazer os dados do cliente, ele apaga a foto anterior.
Boa noite, no caso que uma planilha compartilhada pelo One drive, tem como salvar as fotos por lá?
Oi... O "Pastafotos" da linha de código pastafotos = ThisWordbook.Path & "\Fotos" é uma variavel? Tem que declarar em algum momento? Me perdi nesta
Como baixar os seus videos?
Mais uma Duvida Referente a Aula 3.
Estou com um problema, quando no Código de Busca quando coloco 2 dígitos no comando list, o VBA da erro, ele aceita somente até o 9, não estou conseguindo colocar mais de 10 colunas.
Exemplo: Me.LISTA.List(y, 9) = ActiveSheet.Cells(fila, 11).Value
Eu não consigo dar continuidade List(y, 10), pois dar erro.
Como eu resolvo essa questão, pois não estou conseguindo achar ?
Quando peço para fazer a busca ele mostra que deu um erro no tempo de execução '424' como solucionar agradeço
Bom dia Reyno
Estou com problemas na ALTERACAO
Erro em tempo de Execução
aparece erro '9' Subscrito Fora do Intervalo
Quando faço a Depuração vem :
Set COLUNA = Sheets("BASEDEDADOS ").Range("B:B").Find(VALORBUSCADO, LOOKAT:=xlWhole)
Pode me ajudar ?
Obrigado.
boa tarde, quero cadastrar mais de uma foto por item, tem como ?
encontrei a solução ao editar novo cliente que não tem foto não apaga foto cliente cadastrado com foto porém é colocar codigo limpar foto no principio BTEnditar irá apagar foto
Tem como por mais de uma foto?
é possível deixar apenas o logo da empresa??
Por gentileza, poderia verificar se no seu formulário dá erro ao tentar alterar o nome do cliente. Desde já obrigado
Olá!
Eu gostei muito da Aula, só que me deparei com uma problema, quando eu executo o código:
FileCopy foto, pastafotos & "\" & nome & ".jpg"
Aparece o seguinte problema:
Erro em tempo de execução '76':
Caminho não localizado
Eu descobri que quando a foto que o código vai copiar esta com o nome com letras, números e caracteres (IMG-20211105-WA0013) é que aparece o erro.
Eu gostaria de saber como concertar esse erro para que eu não tenha que renomear todas as fotos.
Olá, as fotos precisam ser renomeadas para serem localizadas.
gostaria de colocar datas, obrigado.
Boa. Vamos criar um formulário com data também. Fica ligado.
Como eu coloco o cabeçalho da planilha na minha ListBox?
Vitor
vai nas propriedades da "LISTBOX" e em "COLUMNHEADS" deixe com "TRUE"
e ou
Pode escrever o cabeçalho dentro de uma LABEL e depois ir ajustando os nomes com espaçamentos
Conseguiram resolver o problema de editar e a imagem não trocar?
coloca pra limpar antes de iniciar as rotinas
Image2.Picture = LoadPicture("") ' limpar foto
Infelizmente minha foto não aparece mesmo revendo o código do zero
Private Sub Btfoto_Click() ' nome do botao
'Dim Foto As String - esta declaracao tem que estar somente na public
Foto = Application.GetOpenFilename(Filefilter:="pictuefile,jpg")
Imagem3.Picture = LoadPicture(foto) 'Imagem3(nome da caixa da foto)
End Sub
******************************
DENTRO DO BOTAO SALVAR
'Dim Foto As String - esta declaracao tem que estar somente na public
If Foto "" Then
nome = proximoid 'nome do campo chave do formulario
pastafotos = "C:\Users\Lucia\Desktop\formulario_Excel\Fotos"
FileCopy Foto, pastafotos & "\" & nome & ".jpg"
End If