Este fórum está sendo desativado

[braz]

Amigos,



Gostaria de preencher um relatório de frequência mensal através de um formulário tipo um cartão de ponto, tentei fazer formatando a planilha2 no formato tabela, mas não deu certo.Alguém poderia me ajudar.

Obs. No final do mês vou ter tipo 30 cartões e digitar essas informações no formulário para gerar esse relatório em ordem crescente de forma automática.



Att

[Duarte]

Ola! Acredito que a melhor forma seria usando uma macro, talvez com um botão.
Segue uma ideia de como elaborar a macro.

Código: Selecionar todos

    Dim form As Worksheet
    Dim rela As Worksheet
    
    Set form = Sheets("Formulario")
    Set rela = Sheets("Relatório de Frequencia Mensal")
    
    rela.Select
    Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrBelow
    
    rela.Cells(4, 1).Text = form.Cells(1, 4).Value
    rela.Cells(4, 2).Value = form.Cells(1, 6).Value
'   rela.Cells(4, 3).Value = form.Cells(N/A).Value
    rela.Cells(4, 4).Value = form.Cells(3, 3).Value
    rela.Cells(4, 5).Value = form.Cells(3, 6).Value
    rela.Cells(4, 6).Value = form.Cells(4, 3).Value

Poderia fazer outra para restaurar o formulário para o estado inicial.

[braz]

Duarte,

Sua ideia parece ser ótima, mas infelizmente em função das minhas limitações não consegui por em pratica.

Att