Minha experiencia e conhecimento no assunto Excel e VBA são praticamente zero. Mas graças a sua excelente didática estou conseguindo fazer meu primeiro sistema, aplicando sem maiores dificuldades, o conhecimento utilíssimo que V.Sa. compartilha conosco. Pessoas como V.Sa. são especiais e merecem todo respeito e admiração pelo seu trabalho. Por favor, não pare jamais! Tenho indicado seu canal para todos os interessados que conheço. Forte Abraço, Deus abençoe sempre!!
Rapaz... Relamente você deu aula... Conheço um pouquinho, e com a sua aula e com algumas inclusões para o que ue precisava ficou produto. Muito bom e Parabéns!
comprei as planilhas, e tudo perfeito ! o cara tem a manha e ainda ensina a fazer pessoal. merece meu respeito! só não aprende se não quiser. parabéns pelo belo trabalho. !
Parabens, vc tem uma didatica muito boa, fiz o formulario, e funcionou perfeito, só tive a dificuldade no salvar as fotos, mas corrigi e ficou otimo. Obrigado por compartilhar seu conhecimento com este aprendiz,.
Minha experiencia e conhecimento no assunto Excel e VBA são praticamente zero. Mas graças a sua excelente didática estou conseguindo fazer meu primeiro sistema,muito agradecido
Obrigado por compartilhar seu conhecimento, segui as orientações e consegui desenvolver uma planilha que atendeu as necessidades do meu filho em uma loja que ele inaugurou. Gratidão.
Meus parabens este sistema foi o mais proximo que eu encontrei para minha necessidade de cadastro dos meus clientes , porem tenho que ter mais campos .... mas a adicao e edição de fotos esta perfeito...obrigado e sucesso
@@CanalSGP Amigo por acaso voce teria ja uma planilha pronta neste formato mas para cadastro de clientes com fotos de pedidos feitos e formato para dar zoom nas imagens? quero comprar
Obrigado mais uma vez!! Se eu pudesse dava like todo dia nessa aula! Esse formulário mais que valeu a inscrição no canal. É coisa de gênio mesmo! É tão versátil, que com pouquíssimas adaptações, podemos criar sistemas para inúmeros seguimentos. No meu caso, adaptei para cadastrar pessoas (membros). E deu super-certo. Uma satisfação ver funcionar!!! Se me for lícito, peço humildemente, quando possível, por favor nos ensinar a criar um formulário que possibilita gerar e imprimir credenciais (carteirinhas) com as informações e a foto do membro e também gerar e imprimir a ficha de cadastro, com as informações e a foto do membro. O layout da carteirinha seria uma imagem em JPG com os campos para inserir as informações e a foto do membro deixados em branco. Desse modo, eu imaginei que poderia usar caixas de texto posicionadas sobre os campos em branco do layout da carteirinha. Será que daria certo? Tenho certeza que esse projeto seria de grande utilidade não somente para mim mas também para os demais assinantes que acompanham o canal além de ser aplicável em vários seguimentos de atividades. Conto com a sua grande inteligencia e boa vontade para tal. Desde já agradeço. Forte abraço. Fique com Deus.
Mestre, depois de assistir muitos vídeos, poucos são tão completos como o seu. E sua segurança em escrever os códigos auxilia muito quem está aprendendo (meu caso). Muito obrigado e parabéns!!! Ótimo vídeo! Ótimo conteúdo! Excelente utilidade!🙏👍👏🏻👏🏻👏🏻
Professor, fiz as alterações e BINGO! kkkk Como você fala, funcionou! Novamente muito obrigado! Gratidão! Deus ilumine você, sua família e seus negócios! Forte abraço!
Achei bacana esse sistema de pesquisa funcionou perfeito aqui e já vou implementar em outros sistemas já que antes usava esse recurso usando funções do Excel mas pelo VBA fica mais leve e resumido esse processo.
Agradeço muito sua generosidade em passar conhecimento! você explica de uma força muito simples onde conseguimos ter resultado em realizar o exercício.
BOA NOITE " EU QUERIA AQUI AGRADECER AO CANAL (SGP) COM PROFESSOR LUAN , POR SUAS EXCELENTES VÍDEO AULAS , CADA DIA ESTOU APRENDENDO MUITO MAIS . OBRIGADO ?
Parabens pelo trabalho e por dispor de tempo para repassar o conhecimento que tens para iniciantes e/ou necessitados. De grande Valia os seus videos. Obrigado!!!!!
Que show! Cada brasileiro compartilhando seu conhecimento, brasileiros querendo aprender e trabalhar ao invés de mamar no comunismo, em um novo país sem corrupção, isto fará desta nação uma das primeiras do mundo.
Meu amigo, que video incrivel, parabens pelo exclarecimento total e de uma forma tao simples, eu agora preciso fazer um controle de estoque com essa mesma dinamica, aparecendo foto, mostrando quantidade e se precisa ou nao abastecer estoque, voce tem algum video assim? abraço!
Excelente aula, sem experiencia no VBA , fiz meu formulario ( tudo funcionando ) em 3 dias , porém ficou uma pendencia, que seria na parte EDITAR, pois consigo alterar todas as informações , menos a imagem , quando troco e clico no BOTAO EDITAR ocorre erro , coloquei o mesmo codigo do botao SALVAR somente a parte relativa a imagem, mas não consegue salvar a nova imagem .
Ola Bondade professor tenho assistido várias vídeo aulas suas muito boas a maneira de esplicar os códigos, professor você tem vídeo aula que mostra foto no formulário e na planilha porque eu criei um cadastro de membro para a minha igreja e preciso imprimir a ficha então eu preciso que quando eu pesquisar um membro aparecer a foto dele no formulário e na planilha no formulário para conferir e na planilha para imprimir tem como mim ajudar agradeço muito.
Bondia professor Luan alguns dias eu te perguntei como fazia para aparecer a foto do formulário na planilha também a foto do formulário e para conferir a foto da planilha é para imprimir na ficha de membro que criei para a minha igreja você falou que seria o mesmo código mas eu não conseguir fazer funcionar não apareceu no objeto imagem da planilha já tentei várias vezes mas não consegui mesmo assim eu te agradeço muito pelo o que já concedeu e que Deus te abençoe. Uma coisa que esquece de te falar é que a foto vem de uma pasta da onde tá a planilha não tem endereço como da biblioteca o código que usei é esse do vídeo para buscar a image na pasta
excelente vídeo me ajudou muito com um catalogo de Livros que queria fazer gostaria de saber se no botão de pesquisa consigo inserir duas condições para pesquisa, por exemplo fornecedor e Produto?
Bom dia, obrigado, a pesquisa precisa ser por critério exato, se for informação única pode alterar a coluna de pesquisa ou trabalhar com if para definir quando deve ser feito a busca em qual coluna.
Oi Professor, obrigado aí por compartilhar com a gente seus conhecimentos. Poderia dar uma aula inserindo uma listview nessa planilha, selecionando item da lista, automaticamente preenche todos os campos. Desde já, muito obrigado!
BOA NOITE!!! MUITO TOP A AULA APRENDI MUITO, FUNCIONOU MUITO BEM A UNICA DUVIDA SERIA, QUANDO CLICO PARA PESQUISAR UM ITEM ELE ESTA TRAZENDO SOMENTE A PRIMEIRA FOTO CADASTRADA. O QUE DEVO TER ERRADO?
Bom dia! Excelente suas aulas e essa então!!! Apliquei esta função em um sistema meu aqui e conseguir fazer com que salve a foto na pasta mas estou tendo dificuldade para ativar a localização da foto no momento da pesquisa e trazer ela para o formulário. vc poderia me ajudar? tem algum meio de comunicação alem desse para conversarmos e ver se vc pode me ajudar...! grato desde já. Ass, Abimael Brasil
Muito obrigada, ajudou imenso. No entanto, eu tenho um formulário próprio para a pesquisa com uma ListView que carrega logo os dados e com duplo click numa das linhas ele manda a informação para o formulário Individual. O problema é que a foto não aparece lá.... Grava certinho, Edita certinho, tudo sem erro, mas não aparece no campo Imagem1. Será que pode dar uma ajudinha por favor. É uma BD só para mim, mas queria que ficasse bem bonita. Obrigada.
Boa tarde, obrigado, talvez o nome da imagem esteja diferente, porque neste procedimento a pesquisa é feito pelo nome atribuído a imagem, se tiver, por exemplo, um espaço diferente no nome, não vai localizar na pasta.
@@CanalSGP Muito obrigada pela rápida resposta. Infelizmente já verifiquei tudo e não dá certo a parte de carregar a imagem quando chamo o formulário através da pesquisa e listview. Enfim, vou continuar a procurar.
Olá professor! Parabéns por compartilhar o conhecimento! Gostaria de saber se tem algum código para rotacionar a foto que foi carregada, pois algumas fotos quando carrego vem na horizontal, então gostaria de ver um botão para rotacionar a foto depois de carregada.
Não conseguir essa parte de salvar a imagem dentro da pasta, então peguei um código da internet pronto que seleciona o caminho da pasta e armazena esse caminho dentro de uma célula em uma folha de Parâmetros, depois criei uma variável que recebe a informação dessa célula que é o caminho da pasta. Então além de poder definir a pasta, coloquei esse caminho em objeto texto e coloquei para exibir no formulário para servir de informação onde está sendo salvas as imagens. Substituir apenas essa parte do código que não funcionava de jeito nenhum no meu VBA pensei que era até algum erro de digitação da minha parte mas desistir e partir para a criatividade e readaptaçoes rsrsrs mas o restante do código funcionou perfeitamente. Meu código ficou assim: 'PROCEDIMENTO PARA SALVAR A IMAGEM DENTRO DE UMA PASTA PERSONALIZADA Dim NomeFoto As String Dim caminho_da_pasta As String
'PEGANDO O CAMINHO DA PASTA caminho_da_pasta = Sheets("PARAM").Range("caminho_da_pasta_formulario_img")
'INCIANDO O PROCEDIMENTO If Foto "" Then
'PEGANDO NOME DA FOTO VINDO DA TEXTBOX nome_da_imagem NomeFoto = nome_da_imagem.Value
'ATRIBUINDO O VALOR DO CAMPO nome_da_imagem NO NOME DA IMAGEM FileCopy Foto, caminho_da_pasta & "\" & NomeFoto & ".jpg"
Show de bola Vou utilizar no meu projeto porém ele está salvo no Dropbox pois é multiusuário Se tiver alguma dúvida entro em contato Desde já agradeço pela contribuição
Parabens pelo excelente tutorial, super didatico e de fácil compreensão. Gostaria de saber como habilito o TextBox de telefone apenas para números e tambem como posso limitar uma TextBox (no meu casa no campo "TLargura" para apenas duas casas decimais depois da virgula.
Hoje o TextBox de Largura esta assim: Private Sub T_Largura_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 46 Then KeyAscii = 44 If KeyAscii = 44 And InStr(T_Largura.Text, ",") 0 Then KeyAscii = 0 Exit Sub End If If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii 8 And KeyAscii 44 Then KeyAscii = 0 End If
Bom dia, talvez a função arredondar, definindo duas casas decimais. Segue link de vídeo neste sentido. th-cam.com/video/PPqxIhQWyL8/w-d-xo.html Dim Numero As Double If IsNumeric(TextBox1.Value) = True Then Numero = VBA.Round(TextBox1.Value, 2) TextBox1.Value = Numero End If
Perfeito, muito obrigado! E como posso fazer para exibir a imagem cadastrada na linha do produto com um tamanho pre determinado, por exemplo: 2x2cm @@CanalSGP
Boa tarde! Obrigado por compartilhar seus conhecimentos conosco, é muito sabedoria, sua facilidade em criar as planilhas e explicar é sensacional, meus parabéns 👏🏻👏🏻👏🏻, fiz a minha exatamente como você fez acompanhado o vídeo, um show a planilha, gostaria de saber se teria como adicionar o seguinte comando, meus produtos salvos estão na plan1 e eu preciso de criar a plan2 onde será salva minhas vendas diárias, e na plan1 onde estão meus produtos preciso criar um campo de filtro para o código do produto, e ao encontrar o produto desejado EX ele está na linha 100, tem como criar um botão para copiar os dados dessa linha para plan2 automático descendo linha em linha para ter como relatório de vendas diárias e mensal, desde já muito obrigado!🙏🏻
Primeiramente parabéns pela aula!! Me ajudou muito! Uma dúvida, ao pesquisar meu item (que não é um código,mas sim um ingrediente, exemplo FARINHA), eu preciso escrever em caixa alta,porque no início da edição eu coloquei comando de caixa alta pra cadastrar o ingrediente. Tem como eu colocar um comando que ele reconheça letra minúscula na pesquisa (exemplo: farinha)?
Boa noite, obrigado, pode converter o texto da pesquisa para caixa alta utilizando o comando ucase. Por exemplo: Dim Pesquisa as String Pesquisa = vba.ucase(Texto da pesquisa)
Aula muito boa! Posso fazer um pergunta? É possível copiar uma imagem para área de transferência e também recuperar uma imagem da área de transferência para um image control? Grato!
Obrigado pela resposta! A única forma que consegui foi carregando o image control do tamanho de um userform e tirando um Print Screen do mesmo. Grato pela resposta e pelo vídeo.@@CanalSGP
Professor, bom dia! Primeiro, parabéns por sua destreza, dedicação e boa vontade! Fiz todo o processo e deu tudo certo, porém, quando excluímos um cadastro, a foto continua lá na pasta. Você poderia me dizer o que acrescentar no botão excluir, para que além de excluir a linha da planilha, excluir também a foto armazenada na pasta foto? Obrigado!
Boa noite, obrigado, neste formulário não foi inserido código para excluir a foto pelo risco de deletar arquivos que não se deseja do computador. Porque deletando pelo pelo vba, não tem como recuperar o arquivo, mas ao editar a foto é substituída. Mas se desejar, em outro formulário que foi disponibilizado pronto tem o código para deletar, segue link. th-cam.com/video/Mz80qoCuokQ/w-d-xo.html
@@CanalSGP Eu percebi depois, que a foto é substituída e não há necessidade de excluí-la, portanto, só fiquei curioso se havia um código para tanto, mas já que é um risco, deixa quieto! Obrigado e mais ima vez, parabéns pra você, professor! Abraço
Boa noite. Ótima explicação. E eu posso sugerir duas idéias aqui? No meu caso, eu preciso carregar uma combo com informações de duas células de mesma linha, porém, colunas diferentes, no caso, c11 e d11. Essa seria a primeira. A segunda, na outra combo, tem que carregar iinformações de acordo com a opção desta primeira combo. Pode me ajudar por favor? Desde já fico muito grato.
Bom dia, obrigado, pode utilizar o additem para popular a combobox com as células que deseja, por exemplo. Combobox1.additem planilha1.Range("C11").value Combobox1.additem planilha1.Range("D11").value Já para as combobox dependente talvez o procedimento do vídeo no link a seguir: th-cam.com/video/JhryR7XmMfs/w-d-xo.html
Obrigado por compartilhar o seu conhecimento conosco. Queria saber se é possível que ao clicar na textbox aparecer automaticamente uma lista para selecionar, como por exemplo para informar o sexo de algum funcionário envés de escrever sempre podia aparecer as opções Feminino, Masculino, para facilitar o trabalho. Fico aguardando a reposta, muito obrigada desde já
@Canal SGP na busca, ao digitar em minusculo ele não acha, pois os itens estão todos maiusculos. Como faço para que, ao digitar tambem em minusculo na busca, funcione? Obrigado e parabéns pelo trabalho amigo!
Primeiramente parabéns por ajudar tanta gente com seus vídeos, sou seguidor e já acompanhei quase todos os vídeos e sempre aprendo algo diferente! Só uma dúvida!!! Se eu quisesse excluir a foto da pasta junto com o cadastro como faria?
Bom dia, obrigado, neste procedimento não foi colocado para deletar a foto devido ao risco de se houver erro nas referência, deletar outros arquivos do computador. E como não tem como retornar arquivo deletado via código, deixamos de fora. Mas tem outro formulário que foi disponibilizado pronto, que tem o código para deletar, segue link. th-cam.com/video/Mz80qoCuokQ/w-d-xo.html
Bom dia!! Obrigado pela aula!! Eu fiz tudo conforme mostrado no vídeo, mas na hora que testei não funcionou, não sei se os códigos são para PC de 32 Bits, e o meu é 64 Bits, gostaria de vincular a imagem (com os dados da mesma (inseridos na TextBox), depois salvo dados + foto (Image1) com endereço do caminho na TexBox , na hora de pesquisar ou chamar no userform aparece os dados e a foto. Obrigado!
Aula ótima!! Preciso de uma ajuda, tenho um autofiltro de relação de produtos, e gostaria de colocar um critério maior que zero, e não estou conseguindo fazer!
Opa professor, top das galáxias a sua aula, só uma dúvida, como faço para salvar um cadastro mesmo que esteja faltando informações em algum campo? Com a possibilidade de essa ser incluída posteriormente?
Boa tarde, no formulário no vídeo a seguir foi colocado esta função, mas cuidado para não deletar arquivos que não deseja, porque não tem como recuperar. th-cam.com/video/Mz80qoCuokQ/w-d-xo.html
Obrigado por compartilhar seu conhecimento, estou seguindo passo a passo porem não consegui identificar algumas ordens no programa, resultando erros na copilação tem as linhas de códigos para consulta?
Professor tenho uma dúvida. O macro serve para preencher uma planilha de itens na mesma linha. Como eu faço para preencher por exemplo, na linha 2 mas também preencher na linha 8? Porque o comando que o senhor usa pega como referência o cabeçalho, então no caso eu queria ter 2 cabeçalhos e preencher duas tabelas em linhas diferentes ao mesmo tempo.
@@CanalSGP Obrigado! Outra dúvida. No comando excluir, eu vi que uma linha inteira é deletada. Teria como excluir apenas um range? por exemplo, deletar as celulas da linha 12, da coluna A até a coluna B?
Bom dia, obrigado, pode converter pra ucase, por exemplo: Pesquisa = vba.ucase(Pesquisa)
3 ปีที่แล้ว
Boa tarde professor, aprendi muiitoo nesta aula, uma coisa que senti falta neste projeto foi o gerador de Id automatico, ao invés de digitar o codigo tds as vzs, Tbm gostaria de perguntar, se eu gerar o Id já na planilha com a função máximo se tbm dá certo. (!??)) Por hora obrigado e estou estudando este projeto passo-a-passo. Sérgio Rodrigues.
Boa tarde, obrigado, pode colocar os comandos a seguir no início do botão salvar, para gerar id automático: If TCod = "" Then TCod = WorksheetFunction.Max(Planilha1.Range("B1:B1000000")) + 1 End If
3 ปีที่แล้ว +1
@@CanalSGP valeu, muito bom, vamos aos testes. Sérgio Rodrigues
Olá, primeiramente suas vídeos aulas são excelentes!!!! Mas me tira uma dúvida.. consigo colocar imagens que estejam no drive do Google ? Exemplo: gerar um link do drive ?
Basta adicionar as imagens dentro de uma pasta do teu Google drive no seu PC deixa teu Google drive sincronizado que todas as imagens que estiverem lá estará também na sua pasta do PC.
que ótimo conteudo, como faço para excluir a linha inteira de duas planilhas ao mesmo tempo. e qual o codigo para editar a foto, porque ela continua na pasta, é preciso excluir da pasta e salvar outra no lugar, para edicao no caso de somente trocar a foto por exemplo. Obrigado
Ola Professor, parabéns pela didática excelente, olha fiz todos os procedimentos explicados, todo funcionou como devido inclusive "salvar as fotos na pata" perfeito, EXCETO que (ao ter mais produtos cadastrados com suas respectivas fotos, a pesquisa retorna apenas a 1ª foto da pasta) ex: se eu pesquisar pelo "código 2 ou 3 ou 20 ou qualquer outro" ele puxa a foto 1, isso será falha minha, ou algum código faltante? obrigado pela atenção. :)
@@CanalSGP ola professor, boa tarde, fiz o procedimento alterando o nome das fotos (na hora de salvar, como "Nome" ou como "Numero" ) na pasta aparece as fotos nomeadas perfeitamente, mas não funcionou, qualquer item pesquisado vai puxar a 1ª foto da pasta que estiver em ordem alfabética, se for nº, puxa por ordem numérica, sempre a 1ª foto da pasta para qualquer pesquisa....olha fico muito agradecido pela sua atenção se puder ajudar, se não for possível, fico feliz do mesmo jeito, pois até agora sua ajuda foi IMPORTANTÍSSIMA, parabéns pela sua iniciativa e agradeço de coração por todo aprendizado que tive ao longo de anos que te acompanho, obrigado e sucesso pra vc....valew
Boa tarde, teste com os mesmos nomes utilizados no vídeos, porque é separada o nome de acordo com o ponto que consta no arquivo, separando nome da extensão. Se tiver mais pontos pode dar erro, talvez seja isso.
muito top, poderiam me ajudar aqui, quando eu clico no botão salvar a planilha trava tudo e tenho que fechar e abrir mais ainda esta travando quando clica em salvar
Bom dia, Professor, tive que formatar o notebook mas antes fiz backup da aula.. depois de consertado inseri o formulário novamente no note.. e parece mentira no note da erro, mas no pendrive não. Vai entender?
IF Foto "" then Essa variável Foto que está no IF ela está recebendo informação de onde?, pois não vi vc referenciar a nenhum objeto. Desculpe foi a única parte de todo o projeto que não entendi. Funcionou tudo aqui fiz várias readaptaçoes por exemplo usei identificação de linha com endxlup e desde procurar através da variável linha mas o seu achei bem melhor tanto que fiz nos outros procedimentos de acordo com o teu código.
Bom dia, a variável Foto é do tipo public, pode ser definida em um módulo ou na parte superior dos códigos do formulário. Podendo ser utilizada em qualquer parte dos códigos, se estiver em um módulo.
Parabéns PROFESSOR!! Muito boa sua aula, muitíssimo bem explicado. Mas ficou um pequeno detalhe que não consegui resolver. Salvar as fotos na pasta "Fotos". Conforme orientação, salvei a pasta "Fotos" dentro da mesma pasta onde foi salvo a planilha, no caso a pasta "Cadastro de Produtos", porém essa pasta "Cadastro de Produtos" está dentro do meu OneDrive e por isso quando clico para "Salvar" o cadastro de algum produto com foto dá um erro (que não especifica qual), depois clico pela segunda vez em "Salvar" aí salva o produto, porém a foto não é salva na pasta "Fotos". Fiz uma experiência, recortei a pasta "Cadastro de Produtos" e colei direto no "C" e lá funciona perfeitamente, inclusive salva as fotos, então deduzi que só poderia ser isso, porque o OneDrive é rede. Sendo assim pergunto se há alguma maneira de deixar a pasta "Cadastro de Produtos" dentro do OneDrive mas de forma que tudo funcione bem, inclusive o salvamento das fotos. De ante mão agradeço pela atenção. Giulio Cesar.
Boa tarde Professor! Segui sua orientação, troquei manualmente o endereço da pasta em todo o código do formulário, coloquei como endereço da pasta a url da pasta "Fotos" que por sinal está dentro da mesma pasta onde estão todos os arquivos salvos. Funcionou perfeitamente bem para "Salvar" e "Editar", porém em "Pesquisar" não funcionou. Faço a pesquisa e só consigo ver os dados salvos, a foto referente ao produto não consigo ver. Aí tentei voltar somente nessa "Sub Pesquisar_Imagem()" com o endereço de pasta "Pasta = ThisWorkbook.Path & "\Fotos\" , mas também não funcionou. Segue abaixo ó código que está atualmente em "Sub Pesquisar_Imagem()" Por favor, dê uma olhada e vê onde está o erro. Mais uma vez agradeço muitíssimo pela sua atenção. ............................................................................................ Sub Pesquisar_Imagem() On Error GoTo Erro On Error Resume Next Image1.Picture = LoadPicture("") 'ALTERAR NOME IMAGE Dim Codigo As String Codigo = TCod.Value ' ALTERAR Dim LocalImagens As String Dim Pasta As String Dim Cod, Nome, a() As String Dim Arquivo As String Dim i As Double Dim Formato As String Pasta = "C:\Users\Giulio PC\OneDrive\Area de Trabalho\TESTE\Fotos" ' ALTERAR Formato = "*.jpg" Arquivo = VBA.Dir(Pasta & Formato, VBA.vbDirectory) While Arquivo "" Nome = Arquivo a() = VBA.Split(Nome, ".") Cod = a(0) If Cod = Codigo Then LocalImagens = Pasta & Arquivo On Error Resume Next Image1.Picture = LoadPicture(LocalImagens) ' ALTERAR NOME IMAGE Exit Sub End If i = i + 1 Arquivo = VBA.Dir() Wend Exit Sub Erro: MsgBox "Erro!", vbCritical, "ERRO" End Sub @@CanalSGP
PROFESSOR NOTA 10!!!! Quem sabe, sabe já diz o ditado. Agora quem faz com dedicação, com prazer de estar ajudando ao próximo, compartilhar seus conhecimentos e sua sabedoria, AÍ ISSO NÃO TEM PREÇO! Tudo funcionando perfeitamente. Mais uma vez muito obrigado e parabéns pela sua dedicação com um desconhecido. * Só a título de informação, quando faço a exclusão de um produto, a foto do mesmo permanece dentro da pasta "Fotos", ou seja, ela não é excluída junto com o produto, mas isso é irrelevante, pois se cadastro um novo produto usando o mesmo código do produto que foi excluído, porém utilizando uma nova foto, essa substitui a foto que havia ficado lá na pasta "Fotos". Então para mim está mais do que ótimo. Valeu! @@CanalSGP
Bom dia, que bom que deu certo, o código para excluir a imagem não foi inserido porque é um código delicado, se errar o comando pode excluir outros arquivos e não é possível recuperar. Mas no formulário de cadastro com duas imagens foi colocado, segue link. th-cam.com/video/Mz80qoCuokQ/w-d-xo.html
Boa Noite Prof. Tem como adicionar listbox que carregue os campos,salve os campos tanto na planilha como listbox,quando clicar elemostre os registro junto com foto.
Muito bom o exemplo. E como seria se o cadastro tivesse mais de uma foto? Reproduzi aqui e deu super certo, mas eu queria adptar pra pelo menos 2 fotos.
OPA, BLZ? ME TIRE UMA DÚVIDA, POR FAVOR: TENHO UMA HAMBURGURRIA. É POSSIVÉL CRIAR UM CARDAPIO COM MACROS (ACESSO VIA QRCode NAS MESAS), QUE POSSIBILITE VARIOS CLIENTES SIMUNTÂNEOS ESCOLHER SEU PEDIDO, E AO FINALIZAR, CHEGAR UMA NOTIFICAÇÃO VIA E-MAIL PARA O CAIXA> COZINHA> BAR? OBRIGADO!
Olá, eu segui o passo a passo mas não aparece o traço para escrever nos espaços em branco do formulário, não consigo dar continuidade na construção da planilha por não poder digitar no formulário, sabe me dizer o que eu possa ter feito de errado? Obrigada! adorei a aula!
Professor, boa noite! Pode ajudar? Estou aproveitando a planilha de Cadastro essa aula acrescentando imagem na anterior. Me deparei com o seguinte erro: DECLARAÇÃO DUPLICADO NO ESCOPO ATUAL, em azul aparece meu TId, pois ao invés de associar minha imagem ao códico estou usando o ID. Veja abaixo: Sub Pesquisar_Imagem() On Error GoTo Erro On Error Resume Next Imagem1.Picture = LoadPicture("") 'ALTERAR NOME IMAGE Dim ID As String ID = TId.Value ' ALTERAR Dim LocalImagens As String Dim Pasta As String Dim TId, Nome, a() As String Dim Arquivo As String Dim i As Double Dim Formato As String Pasta = ThisWorkbook.Path & "\Fotos Cadastros\" ' ALTERAR Formato = "*.jpg" Arquivo = VBA.Dir(Pasta & Formato, VBA.vbDirectory) While Arquivo "" Nome = Arquivo a() = VBA.Split(Nome, ".") ID = a(0) If ID = TId Then LocalImagens = Pasta & Arquivo
Bom dia, está repetindo a variável TID e nome do seu objeto, mesmo que no seu caos seja id, não precisa alterar nada no código, somente informar o nome dos objetos e o caminho da pasta fotos no computador. Errado Dim ID As String ID = TId.Value ' ALTERAR Correto Dim Codigo As String Codigo = TId.Value ' ALTERAR
Perfeito! Parabéns pela planilha. Tem como eu salvar as imagens em várias pastas. Por exemplo, ter uma pasta para imagens de peças de prata, uma pasta para peças de ouro, etc? Ter subpastas dentro da pasta Fotos.
Professor, estou colocando essa rotina no projeto que salva os dados no acces. uma parte esta ok, porém quando salva a imagem para outra pasta , não esta renomeando o arquivo, ou seja o sistema encontra o arquivo somente quando vou na pasta e renomeio o arquivo para quel quero que busque.. onde será o erro
![[Excel] Formulário de entrada de dados VBA](http://i.ytimg.com/vi/w23jekr8Gyg/mqdefault.jpg)
![🔴 ฟุตบอลแชมป์กีฬา 7HD แชมเปียน คัพ 2024 [รอบ 8 ทีมสุดท้าย] - ช่วงบ่าย](http://i.ytimg.com/vi/M0S_ReCIkxg/mqdefault.jpg)
✅Site SGP: Venda de Coleção de Planilhas Excel VBA Prontas:
www.planilhascanalsgp.com.br/
==========================================
Obrigado muito bom os seus vídeos parabéns, irei usar alguns modelo para o meu ambiente de trabalho valeu
Estou terminando em kkkk
Uma etapa deu certo: CADASTRAR, agora estou nas Add de imagens.
Parabéns. Seu conteúdo é muito bom.
Obrigado.
Minha experiencia e conhecimento no assunto Excel e VBA são praticamente zero.
Mas graças a sua excelente didática estou conseguindo fazer meu primeiro sistema,
aplicando sem maiores dificuldades, o conhecimento utilíssimo que V.Sa. compartilha conosco.
Pessoas como V.Sa. são especiais e merecem todo respeito e admiração pelo seu trabalho.
Por favor, não pare jamais!
Tenho indicado seu canal para todos os interessados que conheço.
Forte Abraço,
Deus abençoe sempre!!
Boa tarde, muito obrigado, sucesso em seus estudos.
Rapaz... Relamente você deu aula... Conheço um pouquinho, e com a sua aula e com algumas inclusões para o que ue precisava ficou produto. Muito bom e Parabéns!
Obrigado.
comprei as planilhas, e tudo perfeito !
o cara tem a manha e ainda ensina a fazer pessoal. merece meu respeito!
só não aprende se não quiser.
parabéns pelo belo trabalho. !
Obrigado, sucesso em seus estudos.
Parabens, vc tem uma didatica muito boa, fiz o formulario, e funcionou perfeito, só tive a dificuldade no salvar as fotos, mas corrigi e ficou otimo.
Obrigado por compartilhar seu conhecimento com este aprendiz,.
Bom dia, que bom que conseguiu.
Minha experiencia e conhecimento no assunto Excel e VBA são praticamente zero.
Mas graças a sua excelente didática estou conseguindo fazer meu primeiro sistema,muito agradecido
Que bom, sucesso em seus estudos.
Muito obrigado Professor pela aula. Sua didática é explicativa pra quem não entende. Conseguir desenvolver o sistema e rendeu até elogio do padrão
Que bom, sucesso em seu projeto.
Obrigado por compartilhar seu conhecimento, segui as orientações e consegui desenvolver uma planilha que atendeu as necessidades do meu filho em uma loja que ele inaugurou. Gratidão.
Boa noite, que bom, sucesso em seu projeto.
Meus parabens este sistema foi o mais proximo que eu encontrei para minha necessidade de cadastro dos meus clientes , porem tenho que ter mais campos .... mas a adicao e edição de fotos esta perfeito...obrigado e sucesso
Obrigado
@@CanalSGP Amigo por acaso voce teria ja uma planilha pronta neste formato mas para cadastro de clientes com fotos de pedidos feitos e formato para dar zoom nas imagens? quero comprar
Boa tarde, infelizmente não tenho.
OBRIGADO PELA BELA DIDÁTICA MEU AMIGO. AGORA SÓ FAZER MEUS AJUSTES NECESSÁRIOS E PRONTO PARA USO.
Bom dia, que bom que conseguiu, sucesso em seu projeto.
Obrigado mais uma vez!!
Se eu pudesse dava like todo dia nessa aula!
Esse formulário mais que valeu a inscrição no canal. É coisa de gênio mesmo!
É tão versátil, que com pouquíssimas adaptações, podemos criar sistemas para inúmeros seguimentos.
No meu caso, adaptei para cadastrar pessoas (membros). E deu super-certo. Uma satisfação ver funcionar!!!
Se me for lícito, peço humildemente, quando possível, por favor nos ensinar a criar um formulário que possibilita
gerar e imprimir credenciais (carteirinhas) com as informações e a foto do membro
e também gerar e imprimir a ficha de cadastro, com as informações e a foto do membro.
O layout da carteirinha seria uma imagem em JPG com os campos para
inserir as informações e a foto do membro deixados em branco.
Desse modo, eu imaginei que poderia usar caixas de texto posicionadas sobre os campos em branco do layout da carteirinha. Será que daria certo?
Tenho certeza que esse projeto seria de grande utilidade não somente para mim mas também para os demais assinantes
que acompanham o canal além de ser aplicável em vários seguimentos de atividades.
Conto com a sua grande inteligencia e boa vontade para tal.
Desde já agradeço.
Forte abraço. Fique com Deus.
Boa tarde, obrigado, vou estudar essa possibilidade futuramente. Sucesso em seus estudos.
@@CanalSGP Anciosamete, aguardando. Fica na Paz!
Muito bom as explicação, nunca fiz, mais com essa vídeo aula consegui fazer um formulário com a minha necessidades. Parabéns topp
Que bom que ajudou
Compartilha com o pessoal essa informação provavelmente irei precisar dessa manipulação
Mestre, depois de assistir muitos vídeos, poucos são tão completos como o seu. E sua segurança em escrever os códigos auxilia muito quem está aprendendo (meu caso). Muito obrigado e parabéns!!! Ótimo vídeo! Ótimo conteúdo! Excelente utilidade!🙏👍👏🏻👏🏻👏🏻
Boa noite, obrigado, sucesso em seus estudos.
Bingooooooo. Assistindo suas videos aulas conseguir concluir meu projeto de VBA. Obrigada por compartilhar conhecimento.
Boa tarde, que bom.
Obrigado pela aula, que bom ter pessoas assim como vc na web!!
Obrigado
Cara Show de Bola, gosto muito das suas aulas
Muito obrigado
Muito bom mesmo, conteúdo de curso pago, parabéns mano!!!😊
Obrigado pelo elogio
Mto bom... Adaptei todas as informações para construir outro tipo de formulário .. E deu tudo certo !!!
Boa tarde, obrigado, sucesso em seus estudos.
melhor explicaçao de todos que ja vi !!!!!!!!!
Obrigado
Professor, fiz as alterações e BINGO! kkkk Como você fala, funcionou! Novamente muito obrigado! Gratidão! Deus ilumine você, sua família e seus negócios! Forte abraço!
Boa tarde, obrigado, que bom que deu certo, sucesso em seus estudos.
Achei bacana esse sistema de pesquisa funcionou perfeito aqui e já vou implementar em outros sistemas já que antes usava esse recurso usando funções do Excel mas pelo VBA fica mais leve e resumido esse processo.
Que bom, sucesso em seus estudos.
Agradeço muito sua generosidade em passar conhecimento! você explica de uma força muito simples onde conseguimos ter resultado em realizar o exercício.
Boa noite, obrigado, sucesso em seus estudos.
Espetacular VídeoAula, parabéns pela didática e pelo conteúdo
Obrigado pelo elogio
Gostei Muito da Aula Parabéns
Obrigado
BOA NOITE
" EU QUERIA AQUI AGRADECER AO CANAL (SGP) COM PROFESSOR LUAN , POR SUAS EXCELENTES VÍDEO AULAS , CADA DIA ESTOU APRENDENDO MUITO MAIS .
OBRIGADO ?
Bom dia, obrigado, sucesso em seus estudos.
Parabéns pelo trabalho.
Obrigado 👍
Parabens pelo trabalho e por dispor de tempo para repassar o conhecimento que tens para iniciantes e/ou necessitados. De grande Valia os seus videos. Obrigado!!!!!
Obrigado, sucesso em seus estudos.
Top de mais a aula esta de parabens
Obrigado
Que show! Cada brasileiro compartilhando seu conhecimento, brasileiros querendo aprender e trabalhar ao invés de mamar no comunismo, em um novo país sem corrupção, isto fará desta nação uma das primeiras do mundo.
Boa noite, obrigado, sucesso em seus estudos.
Aula sensacional, uma das melhores que já vi!
Obrigado pelo elogio
Parabéns professor bem explicado .
Obrigado pelo elogio
Meu amigo, que video incrivel, parabens pelo exclarecimento total e de uma forma tao simples, eu agora preciso fazer um controle de estoque com essa mesma dinamica, aparecendo foto, mostrando quantidade e se precisa ou nao abastecer estoque, voce tem algum video assim? abraço!
Boa tarde, obrigado, formulário neste estilo voltado para estoque não fiz ainda.
Parabens , excelente video Aula .
obrigado.
Excelente aula, sem experiencia no VBA , fiz meu formulario ( tudo funcionando ) em 3 dias , porém ficou uma pendencia, que seria na parte EDITAR, pois consigo alterar todas as informações , menos a imagem , quando troco e clico no BOTAO EDITAR ocorre erro , coloquei o mesmo codigo do botao SALVAR somente a parte relativa a imagem, mas não consegue salvar a nova imagem .
Bom dia, qual mensagem de erro retorna.
Ola Bondade professor tenho assistido várias vídeo aulas suas muito boas a maneira de esplicar os códigos, professor você tem vídeo aula que mostra foto no formulário e na planilha porque eu criei um cadastro de membro para a minha igreja e preciso imprimir a ficha então eu preciso que quando eu pesquisar um membro aparecer a foto dele no formulário e na planilha no formulário para conferir e na planilha para imprimir tem como mim ajudar agradeço muito.
Bom dia, obrigado, pode inserir na planilha uma objeto image, vai ser o mesmo código para carregar a foto no image da planilha.
Bondia professor Luan alguns dias eu te perguntei como fazia para aparecer a foto do formulário na planilha também a foto do formulário e para conferir a foto da planilha é para imprimir na ficha de membro que criei para a minha igreja você falou que seria o mesmo código mas eu não conseguir fazer funcionar não apareceu no objeto imagem da planilha já tentei várias vezes mas não consegui mesmo assim eu te agradeço muito pelo o que já concedeu e que Deus te abençoe. Uma coisa que esquece de te falar é que a foto vem de uma pasta da onde tá a planilha não tem endereço como da biblioteca o código que usei é esse do vídeo para buscar a image na pasta
Valeu Mesmo Professor ...
De nada.
excelente vídeo me ajudou muito com um catalogo de Livros que queria fazer
gostaria de saber se no botão de pesquisa consigo inserir duas condições para pesquisa, por exemplo fornecedor e Produto?
Bom dia, obrigado, a pesquisa precisa ser por critério exato, se for informação única pode alterar a coluna de pesquisa ou trabalhar com if para definir quando deve ser feito a busca em qual coluna.
Excelente conteúdo, só está um pouco rápido e sem explicação nas funções, no mais, show de bola!!!!!....👍👍👍👍👍👍
Boa noite, obrigado, para fazer em um vídeo precisar ser mais rápido mesmo.
Oi Professor, obrigado aí por compartilhar com a gente seus conhecimentos.
Poderia dar uma aula inserindo uma listview nessa planilha, selecionando item da lista, automaticamente preenche todos os campos.
Desde já, muito obrigado!
Bom dia, vou analisar esta questão.
Cara seus vídeos são nota 10!
Boa noite, obrigado, sucesso em seus estudos.
BOA NOITE!!! MUITO TOP A AULA APRENDI MUITO, FUNCIONOU MUITO BEM A UNICA DUVIDA SERIA, QUANDO CLICO PARA PESQUISAR UM ITEM ELE ESTA TRAZENDO SOMENTE A PRIMEIRA FOTO CADASTRADA. O QUE DEVO TER ERRADO?
Boa noite como é um laço de repetição que procura pela imagem, vai parar na primeira.
gostei da aula
Obrigado
Simplesmente excepcional!
Obrigado
Bom dia! Excelente suas aulas e essa então!!!
Apliquei esta função em um sistema meu aqui e conseguir fazer com que salve a foto na pasta mas estou tendo dificuldade para ativar a localização da foto no momento da pesquisa e trazer ela para o formulário. vc poderia me ajudar? tem algum meio de comunicação alem desse para conversarmos e ver se vc pode me ajudar...! grato desde já.
Ass,
Abimael Brasil
Bom dia, obrigado, deixe seu e-mail que envio a planilha de exemplo.
Muito obrigada, ajudou imenso.
No entanto, eu tenho um formulário próprio para a pesquisa com uma ListView que carrega logo os dados e com duplo click numa das linhas ele manda a informação para o formulário Individual. O problema é que a foto não aparece lá.... Grava certinho, Edita certinho, tudo sem erro, mas não aparece no campo Imagem1.
Será que pode dar uma ajudinha por favor.
É uma BD só para mim, mas queria que ficasse bem bonita.
Obrigada.
Boa tarde, obrigado, talvez o nome da imagem esteja diferente, porque neste procedimento a pesquisa é feito pelo nome atribuído a imagem, se tiver, por exemplo, um espaço diferente no nome, não vai localizar na pasta.
@@CanalSGP Muito obrigada pela rápida resposta. Infelizmente já verifiquei tudo e não dá certo a parte de carregar a imagem quando chamo o formulário através da pesquisa e listview. Enfim, vou continuar a procurar.
Olá professor! Parabéns por compartilhar o conhecimento!
Gostaria de saber se tem algum código para rotacionar a foto que foi carregada, pois algumas fotos quando carrego vem na horizontal, então gostaria de ver um botão para rotacionar a foto depois de carregada.
Bom dia, obrigado, até o momento não fiz algo neste sentido.
Não conseguir essa parte de salvar a imagem dentro da pasta, então peguei um código da internet pronto que seleciona o caminho da pasta e armazena esse caminho dentro de uma célula em uma folha de Parâmetros, depois criei uma variável que recebe a informação dessa célula que é o caminho da pasta. Então além de poder definir a pasta, coloquei esse caminho em objeto texto e coloquei para exibir no formulário para servir de informação onde está sendo salvas as imagens. Substituir apenas essa parte do código que não funcionava de jeito nenhum no meu VBA pensei que era até algum erro de digitação da minha parte mas desistir e partir para a criatividade e readaptaçoes rsrsrs mas o restante do código funcionou perfeitamente. Meu código ficou assim:
'PROCEDIMENTO PARA SALVAR A IMAGEM DENTRO DE UMA PASTA PERSONALIZADA
Dim NomeFoto As String
Dim caminho_da_pasta As String
'PEGANDO O CAMINHO DA PASTA
caminho_da_pasta = Sheets("PARAM").Range("caminho_da_pasta_formulario_img")
'INCIANDO O PROCEDIMENTO
If Foto "" Then
'PEGANDO NOME DA FOTO VINDO DA TEXTBOX nome_da_imagem
NomeFoto = nome_da_imagem.Value
'ATRIBUINDO O VALOR DO CAMPO nome_da_imagem NO NOME DA IMAGEM
FileCopy Foto, caminho_da_pasta & "\" & NomeFoto & ".jpg"
Boa noite, que bom que conseguiu, o que importa é funcionar.
Show! Aula excelente! Me responda só uma dúvida: Como fazer para tudo que digitar na caixa de pesquisa (InputBox) ficar maiúsculo?
Boa tarde, obrigado, ao digitar não sei se é possível, mas pode converter depois de capturar a informação. Por exemplo
Pesquisa = vba.ucase(Pesquisa)
Show de bola
Vou utilizar no meu projeto porém ele está salvo no Dropbox pois é multiusuário
Se tiver alguma dúvida entro em contato
Desde já agradeço pela contribuição
Boa noite, obrigado, não testei no dropbox, mas se capturar o endereço correto, pode dar certo.
Parabens pelo excelente tutorial, super didatico e de fácil compreensão.
Gostaria de saber como habilito o TextBox de telefone apenas para números e tambem como posso limitar uma TextBox (no meu casa no campo "TLargura" para apenas duas casas decimais depois da virgula.
Hoje o TextBox de Largura esta assim:
Private Sub T_Largura_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
If KeyAscii = 44 And InStr(T_Largura.Text, ",") 0 Then
KeyAscii = 0
Exit Sub
End If
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii 8 And KeyAscii 44 Then
KeyAscii = 0
End If
End Sub
Bom dia, talvez a função arredondar, definindo duas casas decimais. Segue link de vídeo neste sentido. th-cam.com/video/PPqxIhQWyL8/w-d-xo.html
Dim Numero As Double
If IsNumeric(TextBox1.Value) = True Then
Numero = VBA.Round(TextBox1.Value, 2)
TextBox1.Value = Numero
End If
Perfeito, muito obrigado!
E como posso fazer para exibir a imagem cadastrada na linha do produto com um tamanho pre determinado, por exemplo: 2x2cm @@CanalSGP
Boa tarde!
Obrigado por compartilhar seus conhecimentos conosco, é muito sabedoria, sua facilidade em criar as planilhas e explicar é sensacional, meus parabéns 👏🏻👏🏻👏🏻, fiz a minha exatamente como você fez acompanhado o vídeo, um show a planilha, gostaria de saber se teria como adicionar o seguinte comando, meus produtos salvos estão na plan1 e eu preciso de criar a plan2 onde será salva minhas vendas diárias, e na plan1 onde estão meus produtos preciso criar um campo de filtro para o código do produto, e ao encontrar o produto desejado EX ele está na linha 100, tem como criar um botão para copiar os dados dessa linha para plan2 automático descendo linha em linha para ter como relatório de vendas diárias e mensal, desde já muito obrigado!🙏🏻
Boa noite, obrigado, bem complexo o que deseja, não fiz procedimento assim ainda, mas vou estudar essa necessidade.
@@CanalSGP
Boa noite!
Obrigado pela atenção, pra você e pelo seu conhecimento, tenho certeza que será super simples 😃👏🏻👏🏻👏🏻
Primeiramente parabéns pela aula!! Me ajudou muito!
Uma dúvida, ao pesquisar meu item (que não é um código,mas sim um ingrediente, exemplo FARINHA), eu preciso escrever em caixa alta,porque no início da edição eu coloquei comando de caixa alta pra cadastrar o ingrediente. Tem como eu colocar um comando que ele reconheça letra minúscula na pesquisa (exemplo: farinha)?
Boa noite, obrigado, pode converter o texto da pesquisa para caixa alta utilizando o comando ucase. Por exemplo:
Dim Pesquisa as String
Pesquisa = vba.ucase(Texto da pesquisa)
Aula muito boa!
Posso fazer um pergunta?
É possível copiar uma imagem para área de transferência e também recuperar uma imagem da área de transferência para um image control?
Grato!
Boa tarde, obrigado, não tentei fazer isso ainda, não sei dizer se é possível.
Obrigado pela resposta!
A única forma que consegui foi carregando o image control do tamanho de um userform e tirando um Print Screen do mesmo.
Grato pela resposta e pelo vídeo.@@CanalSGP
Que bom que conseguiu.
Professor, bom dia! Primeiro, parabéns por sua destreza, dedicação e boa vontade! Fiz todo o processo e deu tudo certo, porém, quando excluímos um cadastro, a foto continua lá na pasta. Você poderia me dizer o que acrescentar no botão excluir, para que além de excluir a linha da planilha, excluir também a foto armazenada na pasta foto? Obrigado!
Boa noite, obrigado, neste formulário não foi inserido código para excluir a foto pelo risco de deletar arquivos que não se deseja do computador. Porque deletando pelo pelo vba, não tem como recuperar o arquivo, mas ao editar a foto é substituída. Mas se desejar, em outro formulário que foi disponibilizado pronto tem o código para deletar, segue link. th-cam.com/video/Mz80qoCuokQ/w-d-xo.html
@@CanalSGP Eu percebi depois, que a foto é substituída e não há necessidade de excluí-la, portanto, só fiquei curioso se havia um código para tanto, mas já que é um risco, deixa quieto! Obrigado e mais ima vez, parabéns pra você, professor! Abraço
De nada
Boa noite. Ótima explicação. E eu posso sugerir duas idéias aqui? No meu caso, eu preciso carregar uma combo com informações de duas células de mesma linha, porém, colunas diferentes, no caso, c11 e d11. Essa seria a primeira. A segunda, na outra combo, tem que carregar iinformações de acordo com a opção desta primeira combo. Pode me ajudar por favor? Desde já fico muito grato.
Bom dia, obrigado, pode utilizar o additem para popular a combobox com as células que deseja, por exemplo.
Combobox1.additem planilha1.Range("C11").value
Combobox1.additem planilha1.Range("D11").value
Já para as combobox dependente talvez o procedimento do vídeo no link a seguir:
th-cam.com/video/JhryR7XmMfs/w-d-xo.html
Gratidão!
De nada.
valeu! ótimo vídeo cara, parabéns!
Bom dia, muito obrigado.
Obrigado por compartilhar o seu conhecimento conosco. Queria saber se é possível que ao clicar na textbox aparecer automaticamente uma lista para selecionar, como por exemplo para informar o sexo de algum funcionário envés de escrever sempre podia aparecer as opções Feminino, Masculino, para facilitar o trabalho.
Fico aguardando a reposta, muito obrigada desde já
Bom dia, pode trocar uma campo de texto por uma combobox e colocar a lista via código ou carregar de uma lista da planilha.
@Canal SGP na busca, ao digitar em minusculo ele não acha, pois os itens estão todos maiusculos. Como faço para que, ao digitar tambem em minusculo na busca, funcione? Obrigado e parabéns pelo trabalho amigo!
Bom dia, obrigado, pode padronizar para caixa alta, se não fazer pesquisa por número.
Pesquisa = VBA.Ucase(Pesquisa)
Primeiramente parabéns por ajudar tanta gente com seus vídeos, sou seguidor e já acompanhei quase todos os vídeos e sempre aprendo algo diferente!
Só uma dúvida!!! Se eu quisesse excluir a foto da pasta junto com o cadastro como faria?
Bom dia, obrigado, neste procedimento não foi colocado para deletar a foto devido ao risco de se houver erro nas referência, deletar outros arquivos do computador. E como não tem como retornar arquivo deletado via código, deixamos de fora. Mas tem outro formulário que foi disponibilizado pronto, que tem o código para deletar, segue link. th-cam.com/video/Mz80qoCuokQ/w-d-xo.html
Bom dia!! Obrigado pela aula!! Eu fiz tudo conforme mostrado no vídeo, mas na hora que testei não funcionou, não sei se os códigos são para PC de 32 Bits, e o meu é 64 Bits, gostaria de vincular a imagem (com os dados da mesma (inseridos na TextBox), depois salvo dados + foto (Image1) com endereço do caminho na TexBox , na hora de pesquisar ou chamar no userform aparece os dados e a foto. Obrigado!
Boa tarde, acredito que funciona em ambas as versões, deixe seu e-mail que envio a planilha da aula.
Aula ótima!! Preciso de uma ajuda, tenho um autofiltro de relação de produtos, e gostaria de colocar um critério maior que zero, e não estou conseguindo fazer!
Boa noite, está utilizando funções ou macros para fazer o filtro.
Opa professor, top das galáxias a sua aula, só uma dúvida, como faço para salvar um cadastro mesmo que esteja faltando informações em algum campo? Com a possibilidade de essa ser incluída posteriormente?
Bom dia, obrigado, pode retirar o campo do if de verificação do inicio do código.
Só pra fechar mestre, e pra excluir a foto lá da pasta caso o produto seja excluído como faz?
Boa tarde, no formulário no vídeo a seguir foi colocado esta função, mas cuidado para não deletar arquivos que não deseja, porque não tem como recuperar. th-cam.com/video/Mz80qoCuokQ/w-d-xo.html
@@CanalSGP Como consigo aplicar esse código de exclusão pro projeto DESSE vídeo aqui?
Obrigado por compartilhar seu conhecimento, estou seguindo passo a passo porem não consegui identificar algumas ordens no programa, resultando erros na copilação tem as linhas de códigos para consulta?
Bom dia, deixe seu e-mail que envio a planilha para que possa comparar.
Professor tenho uma dúvida. O macro serve para preencher uma planilha de itens na mesma linha. Como eu faço para preencher por exemplo, na linha 2 mas também preencher na linha 8? Porque o comando que o senhor usa pega como referência o cabeçalho, então no caso eu queria ter 2 cabeçalhos e preencher duas tabelas em linhas diferentes ao mesmo tempo.
Boa tarde, não fiz procedimento assim ainda, geralmente formulário é para salvar dados mais padronizados em sequência.
@@CanalSGP Obrigado! Outra dúvida. No comando excluir, eu vi que uma linha inteira é deletada. Teria como excluir apenas um range? por exemplo, deletar as celulas da linha 12, da coluna A até a coluna B?
Bom dia, sim, para capturar o código pode gravar uma macro fazendo o processo manualmente e depois adaptar a sua macro.
Boa noite, se for fazer um laudo onde preciso de várias fotos, funciona também????
Bom dia, infelizmente não.
Sensacional, muito bom.
Obrigado.
Ótima aula, parabéns... No cadastro todas as informações estão em caixa alta, porém não na pesquisa, como faço para pesquisar em caixa alta?
Bom dia, obrigado, pode converter pra ucase, por exemplo:
Pesquisa = vba.ucase(Pesquisa)
Boa tarde professor, aprendi muiitoo nesta aula, uma coisa que senti falta neste projeto foi o gerador de Id automatico, ao invés de digitar o codigo tds as vzs,
Tbm gostaria de perguntar, se eu gerar o Id já na planilha com a função máximo se tbm dá certo. (!??))
Por hora obrigado e estou estudando este projeto passo-a-passo.
Sérgio Rodrigues.
Boa tarde, obrigado, pode colocar os comandos a seguir no início do botão salvar, para gerar id automático:
If TCod = "" Then
TCod = WorksheetFunction.Max(Planilha1.Range("B1:B1000000")) + 1
End If
@@CanalSGP valeu, muito bom, vamos aos testes.
Sérgio Rodrigues
Olá, primeiramente suas vídeos aulas são excelentes!!!! Mas me tira uma dúvida.. consigo colocar imagens que estejam no drive do Google ? Exemplo: gerar um link do drive ?
Bom dia, obrigado, acredito que não, pelo menos não sei de código para fazer isso ainda.
Basta adicionar as imagens dentro de uma pasta do teu Google drive no seu PC deixa teu Google drive sincronizado que todas as imagens que estiverem lá estará também na sua pasta do PC.
que ótimo conteudo, como faço para excluir a linha inteira de duas planilhas ao mesmo tempo. e qual o codigo para editar a foto, porque ela continua na pasta, é preciso excluir da pasta e salvar outra no lugar, para edicao no caso de somente trocar a foto por exemplo. Obrigado
Boa tarde, foto é trocada automaticamente quando escolher outra com o mesmo código.
Boa noite no final aconteceu esse erro de compilação era esperado End Sub
Arquivo = VBA.Dir(). Parabém pelo trabalho.
Bom dia, respondido no outro comentário.
Boa nOite
Tem como colocar listbox,quando salvar ,salvar na planilha e listbox.
Bom dia, acredito que sim, mas talvez seja o caso de montar um filtro na listbox.
10, Muito Obrigado.
Obrigado.
Amei ☺️☺️☺️❤️
Obrigado
Ola Professor, parabéns pela didática excelente, olha fiz todos os procedimentos explicados, todo funcionou como devido inclusive "salvar as fotos na pata" perfeito, EXCETO que (ao ter mais produtos cadastrados com suas respectivas fotos, a pesquisa retorna apenas a 1ª foto da pasta) ex: se eu pesquisar pelo "código 2 ou 3 ou 20 ou qualquer outro" ele puxa a foto 1, isso será falha minha, ou algum código faltante? obrigado pela atenção. :)
Boa tarde, obrigado, teste alterar o nome das fotos para ver.
@@CanalSGP ola professor, boa tarde, fiz o procedimento alterando o nome das fotos (na hora de salvar, como "Nome" ou como "Numero" ) na pasta aparece as fotos nomeadas perfeitamente, mas não funcionou, qualquer item pesquisado vai puxar a 1ª foto da pasta que estiver em ordem alfabética, se for nº, puxa por ordem numérica, sempre a 1ª foto da pasta para qualquer pesquisa....olha fico muito agradecido pela sua atenção se puder ajudar, se não for possível, fico feliz do mesmo jeito, pois até agora sua ajuda foi IMPORTANTÍSSIMA, parabéns pela sua iniciativa e agradeço de coração por todo aprendizado que tive ao longo de anos que te acompanho, obrigado e sucesso pra vc....valew
Boa tarde, teste com os mesmos nomes utilizados no vídeos, porque é separada o nome de acordo com o ponto que consta no arquivo, separando nome da extensão. Se tiver mais pontos pode dar erro, talvez seja isso.
@@CanalSGP Vou verificar, muito obrigado e desculpe pelo transtorno, vc é fantastico, vou verificar... :)
De nada
Tem como fazer um que o cadastramento abre diretamente a câmera do celular ou notebook? (No caso, sem possibilidade de colocar alguma foto da galeria)
Bom dia, não tentei código assim ainda, não sei dizer se é possível.
Adorei o video!! Parabéns!! :)
Que bom que gostou
Boa tarde. Ótima aula. Só que no meu aparece e salva a foto virada. Sabe onde errei?
Bom dia, obrigado, acredito que está falha não tenha relação com o código vba, deve ser na foto original.
muito top, poderiam me ajudar aqui, quando eu clico no botão salvar a planilha trava tudo e tenho que fechar e abrir mais ainda esta travando quando clica em salvar
Boa tarde, obrigado, é difícil saber exatamente a causa. Solicite a planilha de exemplo no e-mail do site do canal, link na descrição do vídeo.
Bom dia, Professor, tive que formatar o notebook mas antes fiz backup da aula.. depois de consertado inseri o formulário novamente no note.. e parece mentira no note da erro, mas no pendrive não. Vai entender?
Boa noite, qual mensagem de erro retorna.
Bom dia, como eu colocar 2 botões no form para ir pra frente e para trás, sem precisar pesquisar?
Boa tarde, segue link de vídeo com procedimento neste sentido. th-cam.com/video/1V82o-KH2TU/w-d-xo.html
Muito bom ! Excelente !
Obrigado.
Boa noite! Posso enviar o meu projeto baseado nas sua aulas. Estou tendo dificuldade em retornar a imagem (foto)
par Editar!
Bom dia, deixe seu e-mail que envio a planilha da aula.
IF Foto "" then
Essa variável Foto que está no IF ela está recebendo informação de onde?, pois não vi vc referenciar a nenhum objeto. Desculpe foi a única parte de todo o projeto que não entendi. Funcionou tudo aqui fiz várias readaptaçoes por exemplo usei identificação de linha com endxlup e desde procurar através da variável linha mas o seu achei bem melhor tanto que fiz nos outros procedimentos de acordo com o teu código.
Bom dia, a variável Foto é do tipo public, pode ser definida em um módulo ou na parte superior dos códigos do formulário. Podendo ser utilizada em qualquer parte dos códigos, se estiver em um módulo.
Bom dia, Prof como colocar a InputBox em caixa alta par ficar tudo igual? um abraço.
Boa tarde, segue link de vídeo sobre este tema. th-cam.com/video/9EYJ2aDGB_c/w-d-xo.html
boa noite, outra pergunta, como fazer para que o botão excluir tbm exclua a imagem dentro da pasta que foi salva?
Bom dia, a imagem na realidade não precisa deletar, porque quando entrar outra foto com mesmo nome vai excluir automaticamente a anterior.
Parabéns PROFESSOR!!
Muito boa sua aula, muitíssimo bem explicado.
Mas ficou um pequeno detalhe que não consegui resolver.
Salvar as fotos na pasta "Fotos".
Conforme orientação, salvei a pasta "Fotos" dentro da mesma pasta onde foi salvo a planilha, no caso a pasta "Cadastro de Produtos", porém essa pasta "Cadastro de Produtos" está dentro do meu OneDrive e por isso quando clico para "Salvar" o cadastro de algum produto com foto dá um erro (que não especifica qual), depois clico pela segunda vez em "Salvar" aí salva o produto, porém a foto não é salva na pasta "Fotos".
Fiz uma experiência, recortei a pasta "Cadastro de Produtos" e colei direto no "C" e lá funciona perfeitamente, inclusive salva as fotos, então deduzi que só poderia ser isso, porque o OneDrive é rede.
Sendo assim pergunto se há alguma maneira de deixar a pasta "Cadastro de Produtos" dentro do OneDrive mas de forma que tudo funcione bem, inclusive o salvamento das fotos.
De ante mão agradeço pela atenção.
Giulio Cesar.
Bom dia, obrigado, no OneDrive acredito que não funciona a captura do endereço da pasta, teste colocar o endereço url manualmente no código.
Boa tarde Professor!
Segui sua orientação, troquei manualmente o endereço da pasta em todo o código do formulário, coloquei como endereço da pasta a url da pasta "Fotos" que por sinal está dentro da mesma pasta onde estão todos os arquivos salvos.
Funcionou perfeitamente bem para "Salvar" e "Editar", porém em "Pesquisar" não funcionou.
Faço a pesquisa e só consigo ver os dados salvos, a foto referente ao produto não consigo ver.
Aí tentei voltar somente nessa "Sub Pesquisar_Imagem()" com o endereço de pasta "Pasta = ThisWorkbook.Path & "\Fotos\" , mas também não funcionou.
Segue abaixo ó código que está atualmente em "Sub Pesquisar_Imagem()"
Por favor, dê uma olhada e vê onde está o erro.
Mais uma vez agradeço muitíssimo pela sua atenção.
............................................................................................
Sub Pesquisar_Imagem()
On Error GoTo Erro
On Error Resume Next
Image1.Picture = LoadPicture("") 'ALTERAR NOME IMAGE
Dim Codigo As String
Codigo = TCod.Value ' ALTERAR
Dim LocalImagens As String
Dim Pasta As String
Dim Cod, Nome, a() As String
Dim Arquivo As String
Dim i As Double
Dim Formato As String
Pasta = "C:\Users\Giulio PC\OneDrive\Area de Trabalho\TESTE\Fotos" ' ALTERAR
Formato = "*.jpg"
Arquivo = VBA.Dir(Pasta & Formato, VBA.vbDirectory)
While Arquivo ""
Nome = Arquivo
a() = VBA.Split(Nome, ".")
Cod = a(0)
If Cod = Codigo Then
LocalImagens = Pasta & Arquivo
On Error Resume Next
Image1.Picture = LoadPicture(LocalImagens) ' ALTERAR NOME IMAGE
Exit Sub
End If
i = i + 1
Arquivo = VBA.Dir()
Wend
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"
End Sub
@@CanalSGP
Boa tarde, teste colocar mais uma barra no final do endereço.
Pasta = "C:\Users\Giulio PC\OneDrive\Area de Trabalho\TESTE\Fotos\" '
PROFESSOR NOTA 10!!!!
Quem sabe, sabe já diz o ditado.
Agora quem faz com dedicação, com prazer de estar ajudando ao próximo, compartilhar seus conhecimentos e sua sabedoria, AÍ ISSO NÃO TEM PREÇO!
Tudo funcionando perfeitamente.
Mais uma vez muito obrigado e parabéns pela sua dedicação com um desconhecido.
* Só a título de informação, quando faço a exclusão de um produto, a foto do mesmo permanece dentro da pasta "Fotos", ou seja, ela não é excluída junto com o produto, mas isso é irrelevante, pois se cadastro um novo produto usando o mesmo código do produto que foi excluído, porém utilizando uma nova foto, essa substitui a foto que havia ficado lá na pasta "Fotos".
Então para mim está mais do que ótimo.
Valeu!
@@CanalSGP
Bom dia, que bom que deu certo, o código para excluir a imagem não foi inserido porque é um código delicado, se errar o comando pode excluir outros arquivos e não é possível recuperar. Mas no formulário de cadastro com duas imagens foi colocado, segue link. th-cam.com/video/Mz80qoCuokQ/w-d-xo.html
Boa Noite Prof.
Tem como adicionar listbox que carregue os campos,salve os campos tanto na planilha como listbox,quando clicar elemostre os registro junto com foto.
Bom dia, vou estudar essa necessidade.
@@CanalSGP Obrigado
Muito bom o exemplo. E como seria se o cadastro tivesse mais de uma foto? Reproduzi aqui e deu super certo, mas eu queria adptar pra pelo menos 2 fotos.
Boa noite, obrigado, para este procedimento acredito que não seja possível colocar duas fotos, porque vai atrelar a foto ao nome.
OPA, BLZ?
ME TIRE UMA DÚVIDA, POR FAVOR: TENHO UMA HAMBURGURRIA. É POSSIVÉL CRIAR UM CARDAPIO COM MACROS (ACESSO VIA QRCode NAS MESAS), QUE POSSIBILITE VARIOS CLIENTES SIMUNTÂNEOS ESCOLHER SEU PEDIDO, E AO FINALIZAR, CHEGAR UMA NOTIFICAÇÃO VIA E-MAIL PARA O CAIXA> COZINHA> BAR?
OBRIGADO!
Boa tarde, acredito que seja muito complexo para uma planilha Excel, pelo menos não fiz nada assim ainda.
Boa tarde só faltou na exclusão deletar a foto da pasta também, mas suas aulas são show.
Boa tarde, obrigado, no formulário pronto para manipular duas imagens tem o código de exclusão. th-cam.com/video/Mz80qoCuokQ/w-d-xo.html
@@CanalSGP Valeu amigão
De nada
Posso inserir uma imagem no lugar de um botão? exemplo: Salvar=Disquete Excluir=Lixeira ou X
Bom dia, pode inserir uma imagem ícone diretamente no botão, segue link de vídeo explicativo: th-cam.com/video/FeJx5KaTg_8/w-d-xo.html
Olá, eu segui o passo a passo mas não aparece o traço para escrever nos espaços em branco do formulário, não consigo dar continuidade na construção da planilha por não poder digitar no formulário, sabe me dizer o que eu possa ter feito de errado? Obrigada! adorei a aula!
Boa noite, obrigado, se refere ao underline utilizado para continuar a digitação do código na próxima linha do editor?
@@CanalSGP não seria isso, ele nem digita, eu clico no espaço para escrever mas não funciona. Difícil explicar sem mostrar haha
Ola professor. O Projeto inteiro vc disponibiliza para eu estudar?
Boa noite, esta planilha é apenas esta aula, deixe seu e-mail que envio a planilha.
Professor, boa noite! Pode ajudar? Estou aproveitando a planilha de Cadastro essa aula acrescentando imagem na anterior. Me deparei com o seguinte erro: DECLARAÇÃO DUPLICADO NO ESCOPO ATUAL, em azul aparece meu TId, pois ao invés de associar minha imagem ao códico estou usando o ID. Veja abaixo:
Sub Pesquisar_Imagem()
On Error GoTo Erro
On Error Resume Next
Imagem1.Picture = LoadPicture("") 'ALTERAR NOME IMAGE
Dim ID As String
ID = TId.Value ' ALTERAR
Dim LocalImagens As String
Dim Pasta As String
Dim TId, Nome, a() As String
Dim Arquivo As String
Dim i As Double
Dim Formato As String
Pasta = ThisWorkbook.Path & "\Fotos Cadastros\" ' ALTERAR
Formato = "*.jpg"
Arquivo = VBA.Dir(Pasta & Formato, VBA.vbDirectory)
While Arquivo ""
Nome = Arquivo
a() = VBA.Split(Nome, ".")
ID = a(0)
If ID = TId Then
LocalImagens = Pasta & Arquivo
Bom dia, está repetindo a variável TID e nome do seu objeto, mesmo que no seu caos seja id, não precisa alterar nada no código, somente informar o nome dos objetos e o caminho da pasta fotos no computador.
Errado
Dim ID As String
ID = TId.Value ' ALTERAR
Correto
Dim Codigo As String
Codigo = TId.Value ' ALTERAR
Perfeito! Parabéns pela planilha.
Tem como eu salvar as imagens em várias pastas. Por exemplo, ter uma pasta para imagens de peças de prata, uma pasta para peças de ouro, etc?
Ter subpastas dentro da pasta Fotos.
Bom dia, obrigado, o que pode tentar é colocar condições if para identificar no momento de salvar, em qual pasta deve ser inserida a imagem.
@@CanalSGP outra pergunta: tem como colocar Caixa Alta, no campo da pesquisa?
Boa tarde, pode utilizar VBA.Ucase para transformar o critério de pesquisa para caixa alta.
@@CanalSGP problema resolvido. Obrigado, mais uma vez.
@@wilsonlopesjunior1043 Que bom que conseguiu.
Professor, estou colocando essa rotina no projeto que salva os dados no acces. uma parte esta ok, porém quando salva a imagem para outra pasta , não esta renomeando o arquivo, ou seja o sistema encontra o arquivo somente quando vou na pasta e renomeio o arquivo para quel quero que busque.. onde será o erro
Bom dia, é difícil saber exatamente onde está o problema, solicite a planilha de exemplo no e-mail do site do canal, link na descrição do vídeo.