Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Planilha de pedido ...
 
Notifications
Clear all

Planilha de pedido e banco de dados.

 
Página 1 / 2
2024 - VBA & Macros
Post Recente por bananaa 9 anos atrás
23 Posts
2 Usuários
0 Reactions
3,300 Visualizações
RSS
 bananaa
(@bananaa)
Posts: 32
Eminent Member
Topic starter
 

Boa Madrugada pessoal

Espero que possam me ajudar.
Preciso criar uma planilha com pedido dos clientes tipo
Nome
Empresa
Telefone
entre outros.

E mais abaixo ficaria os itens
itens - descrição - cor - tamanho - quantidade - valor unit. - valor total.
01 - aaaaa - ee - 9cm - 20 unid - 0,50 - 10,00
01 - qqqqq - dd - 9cm - 20 unid - 0,50 - 10,00
01 - ggggg - cc - 9cm - 20 unid - 0,50 - 10,00
01 - mmm - bb - 9cm - 20 unid - 0,50 - 10,00

Mais ou menos assim.
Preciso criar uma macro que grave essas informações em uma outra planilha no caso Banco de dados.

E salve pedidos de outros cliente tbm.
Para depois eu conseguir consulta tipo por cliente e ver os pedidos dele

Desde já agradeço a atenção

 
Postado : 12/11/2015 11:00 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Poste seu arquivo modelo!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/11/2015 5:39 am
 bananaa
(@bananaa)
Posts: 32
Eminent Member
Topic starter
 

Não consigo anexar como fazer?

 
Postado : 13/11/2015 10:26 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Leia:
viewtopic.php?f=7&t=3841

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/11/2015 11:51 am
 bananaa
(@bananaa)
Posts: 32
Eminent Member
Topic starter
 

Puts que drecha minha. Ajudo muito. Não tinha visto a opção na aba.

 
Postado : 13/11/2015 7:40 pm
 bananaa
(@bananaa)
Posts: 32
Eminent Member
Topic starter
 

Segue a planilha de exemplo

 
Postado : 13/11/2015 8:16 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja o anexo, dentro dele tem a macro de nome AleVBA_18118, que copia os dados da guia Pedido para a guia BD Pedido.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 14/11/2015 10:40 am
 bananaa
(@bananaa)
Posts: 32
Eminent Member
Topic starter
 

Cara ficou perfeita era isso mesmo que precisava
Ficou 10 muito bom e obrigado.

Se possível pode me ajudar uma dúvida?
A aba AleVBA qual a função?

 
Postado : 15/11/2015 12:03 pm
 bananaa
(@bananaa)
Posts: 32
Eminent Member
Topic starter
 

AlexandreVBA
A Macro está tudo OK.
Mais uma coisa, tipo gravas as mais recente no topo e as mais antigas irem pra baixo.
Desde já agradeço.

 
Postado : 16/11/2015 11:06 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu não sei se entendi, mas vc pode Gravar Macro para classificar os dados.

Se não conseguir retorne...

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/11/2015 8:26 am
 bananaa
(@bananaa)
Posts: 32
Eminent Member
Topic starter
 

Então mais ai sempre que eu gravasse novo pedido ele classificaria?
E mais uma dúvida.
Seria possível a macro gravar em duas planilhas?
Uma seria a banco de dados que está ok, e a outra com apenas algumas informações.
para eu poder controlar o que precisar se feito ainda?

não sei se consegui explicar.
Aguardo e agradeço desde já

 
Postado : 17/11/2015 8:35 am
 bananaa
(@bananaa)
Posts: 32
Eminent Member
Topic starter
 

Consegui mandar pra duas planilhas diferente.
A questão é somente a ordem de gravação mesmo.

 
Postado : 17/11/2015 8:43 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Altere essa linha

.Range("A2", .Range("P" & Rows.Count).End(xlUp)).Copy wsBD_Ped.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)

Para:

   
.Range("A2", .Range("P" & Rows.Count).End(xlUp)).Copy 'wsBD_Ped.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
        wsBD_Ped.Rows("2:2").Insert Shift:=xlUp

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/11/2015 10:03 am
 bananaa
(@bananaa)
Posts: 32
Eminent Member
Topic starter
 

Opa Obrigado pela atenção.
Mais ainda está mando pra linha abaixo da ultima preenchida.

 
Postado : 17/11/2015 10:48 am
 bananaa
(@bananaa)
Posts: 32
Eminent Member
Topic starter
 

Na Verdade ele está criando a linha em cima, porém copiando as info em baixo.

 
Postado : 17/11/2015 11:11 am
Página 1 / 2
Forum Jump:
  Tópico Anterior
Próximo Tópico