atualizar banco de dados na mesma plan

[fabiodias]

é a mesma planilha, só coloquei o botao com o nome "salvar".

e tem o Form de lançamento de gasto da planilha de poiaman q depois vo tentar adaptar pra essa tambem, só fiz colocar na planilha mas ainda não mexi nela..

o q ta incucando agora é como fazer para copiar os dados na outra planilha pra depois consultar.

[webmaster]

Fabio,

No caso, quais o dados e como quer armazená-los? Você quer informar o usuário e data até que é fácil, mas no caso, você quer que a macro armazene automaticamente a data/hora atual ou você quer informá-las manualmente. Como viu no modelo de cartão de ponto que fiz, o usuário só informa quem ele é e o sistema armazena o restante dos dados sozinho.

Abraços

[fabiodias]

Tomaz,

aqui funciona da seguinte forma:

- fica um tecnico controlando a entrada e saida de um setor com risco aqui na empresa;
- ele anota num papel a hora que o funcionário entrou e a hora q ele saiu (geralmente da 2 ou 3hrs la dentro);
- aí ele vai no CPU e lança os dados anotados;
- os dados são: nome, matricula, hora de entrada e hora de saida; (a matricula ja fiz aqui o "PROCV" para puxar automatico ao selecionar o funcionario)
- entao nesse caso teria q ser manual, já q não tem um horario especifico todos os dias como na sua planilha de cartao de ponto;
- os dados ao salvar seria lançado na planilha "cadastro", como um histórico de cada funcionário;
- conseguindo jogar esses dados para a planilha "cadastro" como histórico, aí ficaria mais fácil para usar a formula "PROCV" ou "BDEXTRAIR" para quando selecionar o nome de um funcionário, puxar o histórico dele para cada campo específico que se encontra na planilha "UPS".

é por aí.. abraço!

[fabiodias]

Olá, achei um codigo muito bom pru que eu tava querendo..

ele copia a planilha no mesmo modelo, só q sem as formulas e sem os botoes usadas em macros, e ainda nomeia a planilha com o nome de uma determinada celula.

colei a formula abaixo pra quem quiser dar uma olhada.

OBS: onde ta em negrito é o local onde vai buscar o nome que vai dar na planilha criada.

depois é só criar um botao de "seleção de planilhas" (demontrado em um dos topicos aqui no forum) que vira uma opção de "consultas de relatórios", porque vai ta com o nome de cada relatório lançado.


Taí a formula:

'Converte fórmulas para valores constantes
For Each rnCell In wshPlan.Cells.SpecialCells(xlFormulas)
rnCell.Value = rnCell.Value
Next rnCell

'É uma colecção compreensiva na fórmula planilha pode
'ser mais rápido com o Colar Especial.

'With wshPlan.UsedRange
' .Copy
' .PasteSpecial Paste:=xlValues
'End With

'Application.CutCopyMode = False

'Recuperando nome da folha
SbCelNome = CStr(wshPlan.Range("A2").Value)

'Remove o Formulário objeto, valores, e para compartilhar ficha
'seu nome

With wshPlan
For Each SbObjetos In .Shapes
SbObjetos.Delete
Next SbObjetos
.Name = SbCelNome
.Range("B4:B6").Value = ""
.Range("A1").Select
End With

On Error GoTo 0

Application.ScreenUpdating = True
End Sub