Cadastro de Horas Extras utilizando VBA

Boa Tarde!

Preciso resolver um problemão.

Estou utilizando uma tela de Cadastro de horas extras, onde é realizado o lançamento de horas extras, até ai tudo bem, estou conseguindo fazer o lançamento. Meu problema está na planilha que recebe os lançamentos, pois o valor data que é digitado no formulário não é lido como data na planilha, mesmo fato ocorre com o valor hora. Para analisar essa informações lançadas pelo formulário, utilizou uma tabala dinâmica, mas devido esta formatação de data e hora, não estou conseguindo analisar as informações.

Estou utilizando este modulo para inserir o cadastro


Public LinhaAtual As Long

Sub lsInserirHora_Extra()

Dim iTotalHora_Extra As Integer
Dim lUltima As Long

iTotalLinhas = Sheets("Hora_Extra").Cells(Rows.Count, 1).End(xlUp).Row + 1

If IsNumeric(Sheets("Hora_Extra").Cells(iTotalLinhas - 1, 1).Value) Then
lUltima = Sheets("Hora_Extra").Cells(iTotalLinhas - 1, 1).Value + 1
Else
lUltima = 1
End If

With Frm_HoraExtra
.Tb_ID = lUltima
Sheets("Hora_Extra").Cells(iTotalLinhas, 1).Value = lUltima
Sheets("Hora_Extra").Cells(iTotalLinhas, 2).Value = .Tb_Data
Sheets("Hora_Extra").Cells(iTotalLinhas, 3).Value = .Cb_Matr
Sheets("Hora_Extra").Cells(iTotalLinhas, 4).Value = .tb_Nome
Sheets("Hora_Extra").Cells(iTotalLinhas, 5).Value = .Tb_H_Inicio
Sheets("Hora_Extra").Cells(iTotalLinhas, 6).Value = .Tb_H_Fim
Sheets("Hora_Extra").Cells(iTotalLinhas, 7).Value = .Tb_Resultado
Sheets("Hora_Extra").Cells(iTotalLinhas, .Value = .Cb_Veiculo
Sheets("Hora_Extra").Cells(iTotalLinhas, 9).Value = .Tb_Proj
Sheets("Hora_Extra").Cells(iTotalLinhas, 10).Value = .Tb_Terminal
Sheets("Hora_Extra").Cells(iTotalLinhas, 11).Value = .Cb_Matr_Resp
Sheets("Hora_Extra").Cells(iTotalLinhas, 12).Value = .Tb_Nome_Resp
Sheets("Hora_Extra").Cells(iTotalLinhas, 13).Value = .Tb_Motivo
Sheets("Hora_Extra").Cells(iTotalLinhas, 14).Value = .Tb_Centro_custo




End With
End Sub

O botão Salvar utilizo este:

Private Sub B_Salvar_Click()

' If Tb_Data.Enabled = True And lfValidarDados = True Then
If Not IsNumeric(Tb_ID.Text) = True Then
lsInserirHora_Extra
Sheets("Hora_Extra").Activate
Else
lsAlterarHora_Extra
Sheets("Hora_Extra").Activate
End If

lsDesabilitarHora_Extra
MsgBox "Registro Salvo!"
lsHabilitarHora_Extra
lsLimparHora_Extra
B_Novo.Enabled = False
Frm_HoraExtra.Tb_Data.SetFocus
Me.Tb_Data.Text = Date

'End If
End Sub

Boa tarde!!

Como eu não pode testar seu código, eu tenho outra opção (seria melhor ter seu arquivo modelo)
Faça assim, selecione todo o intervalo desejado (manualmente ou automaticamente), depois chame a macro (call Altera)

Código:

Public Sub Altera()
  Dim rngCelula As Range
  For Each rngCelula In Selection
    rngCelula.FormulaLocal = rngCelula.Value
  Next rngCelula
End Sub

Att

Bom dia!
Agradeço sua atenção!
Segue abaixo o link do meu projeto.

http://www.4shared.com/file/0d7XXnlxba/Sistema_Operacional__Atualizad.html

Com já havia comentado, meu problema está na compilação dos dados, tenho uma tabela dinâmica para apresentação das horas extras pagas aos colaboradores, mas não está somando, deduzo que é o formato da hora lançada no Formulário. Preciso codificar o código onde é lançado a Data e a Hora, seja transferido para a planilha com o formato compatível para analisa-lo.
Detalhe: Ao abrir a planilha, irá apresentar uma tela principal, deverá clicar no botão "Operação dos Funcionários", abrirá outra tela, onde deverá clicar no Botão "Horas Extras não programadas", esses são os passos para o cadastro das horas extras.
Na Aba "Tabela_Dinamica" é ondo são analisadas as horas extras, nesta parta que os valores não estão apresentados de forma correta.

Fico no aguardo!

Bom dia!!

Pelo visto você não considerou minha dica  

Dentro de um módulo, insira o código

Código:

Public Sub Altera()
  Dim rngCelula As Range
  Dim pt As PivotTable
 
    Worksheets("Hora_Extra").Activate
    With Worksheets("Hora_Extra")
        .Range("E2:G" & Range("E" & Rows.Count).End(xlUp).Row).Select
    End With
 
  For Each rngCelula In Selection
    rngCelula.FormulaLocal = rngCelula.Value
  Next rngCelula

    Worksheets("Tabela_Dinamica").Activate
    Set pt = ActiveSheet.PivotTables("Tabela dinâmica1")
    pt.RefreshTable
 
End Sub

Depois dentro do botão SALVAR, no final da rotina dentro botão, insira o código

Código:

Call Altera

Att

Bom dia, Alexandrevba!

Claro que considerei sua dica, porem como não consegui implementar no meu código, postei o link, para que pudesse visualizar melhor meu problema.
Incluir seu código e para a tabela dinâmica nos teste que realizei ficou perfeito. Possuo também uma conexão tipo consulta a essa base de dados "na Aba Dados/em De outra Fonte/Do Microsoft Query" na planilha de recebe esta conexão a formatação não condiz.

Agradeço e muito sua atenção, se puder me auxiliar nesta conexão fico muito grato.
Abraço!

Boa tarde!!

Citação :

Possuo também uma conexão tipo consulta a essa base de dados "na Aba Dados/em De outra Fonte/Do Microsoft Query" na planilha de recebe esta conexão a formatação não condiz.

Você tem alguma consulta SQL?

Eu não entendi muito bem, o que precisa exatamente?


Att

O sisteminha que estou desenvolvendo é o seguinte, possuo 4 terminais de ônibus, onde cada terminal terá um sisteminha de cadastro conforme o link anterio. O supervisor geral terá um relatório Gerencial conforme o link abaixo, que fará um analise de todas as informações cadastradas. Para que o supervisor não precisasse abrir individualmente, procurei fazer uma conexão unindo as informações de todas as planilhas, partindo desta consulta fiz algumas formulas de consulta para melhorar a visualização e compilação das informações, porem minhas formulas não estão funcionando devido a formatação do cadastro, onde na consulta a data não é data, tenho que redigitar a data para que minha formula busque as informações, mas quando as informações são atualizadas a consulta não funciona. Mesmo fato ocorre no Cadastro de Horas Extras, como lhe disse Teria algo mais funcional?
http://www.4shared.com/file/AiYcjVlTba/Relatorio_Gerencial.html
Conto com sua ajuda!
Abraço.