Duvida sobre Banco de dados e Formulário no Excel 2007

[Agustin Sanches]

Boa noite pessoal ! 

 

Estou com um problema grande com o desenvolvimento de um formulário que preencha automaticamente um banco de dados, meu chefe solicitou que eu fizesse um até amanhã, porém eu não aprendi isso no curso ainda.

 

Vou deixar a base que montei aqui, e vocês poderiam me dar dicas de como estar montando este arquivo? estou na experiência e este job vai ser crucial para o meu ingresso na empresa.

 

Agradeço desde já !

 

Banco de dados.xlsx

[Visitante]

Olá, Agustin.

A "Autorização" é válida para somente um banco ou poderá servir para mais de um?

Se poderá servir para anotar mais de um banco na coluna "E" da "Autorização", como você quer que apareça esse registro na planilha "Banco de Dados" ?

Sugiro que você disponibilize um arquivo com exemplos de resultados desejados para facilitar o entendimento.

[Eduardo S.Nering]

Osvaldo boa noite, 

 

Também tenho essa dúvida, ele fez um cross post no guru http://gurudoexcel.com/forum/viewtopic.php?f=13&t=89.

Ainda não me respondeu

[Agustin Sanches]

Bom dia, estou anexando um exemplo de como meu chefe quer que fique. Conforme atualizando o formulário "Autorização de transporte" o banco de dados seria atualizado ou ao contrário desde que o banco se mantesse intacto para servir de histórico. Vou anexar um exemplo de como deveria ficar embora eu não consigo desenvolver muita coisa.

para agustin.xlsx

[Visitante]

Solução utilizando macro.

 

Instale o código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor >> Inserir >> Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. com a planilha "Autorização de Transporte" ativada tecle 'Alt+F8' >> selecione a macro correspondente >> Executar, ou insira um botão na planilha "Autorização de Transporte" e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 > Opções).
 

Sub TransfereRegistro() Dim LR As Long, BC As Range  With Sheets("Banco de Dados")   LR = .Cells(Rows.Count, 4).End(xlUp).Row   .Cells(LR + 1, 1).Resize(, 3).Value = _     Application.Transpose(Range("C8").Resize(3).Value)   .Cells(LR + 1, 6) = [E20]: .Cells(LR + 1, 7) = [C22]   .Cells(LR + 1, 8) = [C23]: .Cells(LR + 1, 9) = [D25]   For Each BC In Range("E13:E19")    If BC.Value <> "" Then     .Cells(LR + 1, 5) = BC.Value: .Cells(LR + 1, 4) = BC.Offset(, -1).Value     LR = LR + 1    End If   Next BC  End WithEnd Sub

funcionamento - após inserir os dados na planilha "Autorização de Transporte" rode o código; o código irá replicar os dados daquela planilha na planilha "Banco de Dados". Retorne se quiser adicionar ao código comandos para limpar os dados da planilha de origem.

[Agustin Sanches]

Obrigado pela ajuda mas eu fiz o procedimento porém na hora de rodar o código eu não sei como faz, e não está transferindo os dados.

[Visitante]

Veja se funciona aí.

Segue cópia do arquivo que você disponibilizou no post #4, com o código instalado e um botão para rodar o código.

 

 

a Autoriz Transporte CH.rar

[Eduardo S.Nering]

Boa tarde Augustin,
Consegui terminar o que você havia pedido.
Fiz em forma de UserForm, acredito que seu chefe gostará desta solução
Ah e sempre que você upar uma planilha não se esqueça de compactá-la, regras do fórum  
Espero ter te ajudado

Banco de dados - Augustin.zip

[Agustin Sanches]

Bom dia ! obrigado pessoal, consegui roda-la, ok Eduardo compactarei nas próximas vezes.

[Visitante]

Ah e sempre que você upar uma planilha não se esqueça de compactá-la, regras do fórum  

 

 

Eduardo, o fórum aceita sem estar compactados arquivos Excel sem macro, veja que ele upou um arquivo no post #4 sem compactar. A exigência para compactar vale somente para arquivos com macro, por razões de segurança, visto que macros podem "transportar" virus.