Cadastro de Horas Extras utilizando VBA

[Anacleto]

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, 8).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

[Anacleto]

<script type='text/javascript'>window.mod_pagespeed_start = Number(new Date());</script>

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, 8).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!
Para facilitar o entendimento segue abaixo o link do meu projeto.

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!