Este fórum está sendo desativado

[AlexMaciel]

Bom dia a todos!

Sou novo por aqui e um entusiasta do uso do Excel em sua plenitude, mesmo não tendo a didática necessário sempre me viro com vídeo aulas e ajudas de amigos em meus "mini projetos".

O projeto da vez é: Um formulário para preenchimento de orçamento/cotações de meus clientes e que ao fim, no botão salvar ele preenche automaticamente um banco de dados em uma segunda planilha. Já fiz toda a estrutura e quebrando a cabeça fiz 90% da Macro para salvar os dados e deixar o formulário pronto para um novo preenchimento.

O que não consigo finalizar é que: 1- Gostaria que cada orçamento/cotação gerasse um numero automático. 2 - Ordenar que os dados sejam salvos linha após linha no banco de dados já que não consegui ordenar que fossem salvos na próxima linha disponível/em branco. 3 - Uma caixa de texto com a pergunta se desejo ou não salvar (executar a Macro ou não) antes de enviar os dados para o banco de dados.

Procurei bastante aqui no fórum e não achei algo parecido para resolver meu problema.

Desde ja agradeço a atenção desprendida em resolver mais este probleminha, grande abraço a todos!




Alex Maciel
Gerente de Logística
Whats (41) 99145-8910

[almirjorge]

Alex, bom dia !!!!

Pelo que vi em seus prints, você não está usando useform para a inserção dos dados a serem cadastrados.

Coloca a planilha em anexo e te faço esses ajustes.

[AlexMaciel]

Bom dia Almir,

Realmente não, iniciei o projeto editando as células para editar um formulário, as ideias começaram a surgir durante o trabalho. Muito obrigado pela ajuda amigo!

Ainda não aprendi como anexar por aqui

[alexandrevba]

Boa tarde!!
Quanto a sua dúvida...
Para copiar dados de um formulário que está no corpo do excel, o ideal seria usar formulas para alinhar esses dados, depois copia-los via VBA.
Eu já demonstrei por várias vezes idéias como essa, veja uma em:
http://www.planilhando.com.br/forum/vie ... 10&t=18118

Para anaexar:
Ao responder uma mensagem ou criar um novo post, logo abaixo há uma opção Adicionar um anexo , selecione seu arquivo depois click em enviar.

Att

[AlexMaciel]

Muito Obrigado pela dica alexandrevba!!!

Agora que sei como anexar, segue a planilha para verificação!


Alex Maciel
Gerente de Logística
Whats (41) 99145-8910

[alexandrevba]

Bom dia!!

Eu fiz um exemplo incompleto, siga o raciocínio...

Código: Selecionar todos

Sub AleVBA_4191()
Sheets("Formulário").Range("AP2:BK2").Copy
Sheets("Banco de d").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

End Sub

Veja o arquivo em anexo.

Att

[AlexMaciel]

Puxa Vida Alexandre,

Agora complicou, a sua macro não virou e eu me perdi no raciocinio no vba

[almirjorge]

Alex, boa noite !!!


Segue outro modelo


Veja se era isso que você queria.

[almirjorge]

Alex, fiz um pequeno ajuste no arquivo

Se precisar de algo e estiver ao meu alcance, disponha.

[AlexMaciel]

Show de bola Almir!!!

Isso mesmo que eu queria, agora só falta alguns pequenos detalhes, se puder me dar a dica eu me viro.. são elas:

*É possível editar a célula com lista suspensa para que possa ser digitável? Ex: Ao digitar São P ele me leva na altura da lista onde esta a cidade de São Paulo. Isso é possível?
*No campo "Cotação" é onde espero que ele me dê o número automático e sequencial da cotação (porém não editável) a ser informada ao cliente via fone por exemplo.. vi que você criou o campo ID no banco de dados e ja funciona.. é o mesmo sistema.
*E um botão simples para limpar sem precisar salvar..

Acho que é isso

Grande Abraço meu amigo!

Alex Maciel
Gerente de Logística
Whats (41) 99145-8910

[almirjorge]

Alex, bom dia !!!

Veja se a planilha que segue anexa corresponde com o que vc havia pedido.

Dessa vez fiz com userform.

Abraço.

Almir

[Niltoncsp]

Senhor Alex, acho que a solução para o seu trabalho será um formulário ( userform ).

Aprenda a fazer userform nestes vídeos. Acompanhe as aulas. Acho que serão 7 vídeos no total. Estamos apenas no primeiro. Amanhã ou depois será publicado o segundo.

Link do vídeo: https://youtu.be/MjSbcxGF4aI

Abraços:
Niltoncsp