Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Cadastro de Horas Extras utilizando VBA

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Anacleto



Mensagens : 86
Data de inscrição : 04/04/2012

MensagemAssunto: Cadastro de Horas Extras utilizando VBA   Sex Mar 14, 2014 8:22 pm

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, Cool.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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Cadastro de Horas Extras utilizando VBA   Sex Mar 14, 2014 10:53 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Anacleto



Mensagens : 86
Data de inscrição : 04/04/2012

MensagemAssunto: Re: Cadastro de Horas Extras utilizando VBA   Seg Mar 17, 2014 5:31 pm

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!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Cadastro de Horas Extras utilizando VBA   Ter Mar 18, 2014 4:35 pm

Bom dia!!

Pelo visto você não considerou minha dica Suspect 

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Anacleto



Mensagens : 86
Data de inscrição : 04/04/2012

MensagemAssunto: Re: Cadastro de Horas Extras utilizando VBA   Ter Mar 18, 2014 6:01 pm

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!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Cadastro de Horas Extras utilizando VBA   Ter Mar 18, 2014 7:16 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Anacleto



Mensagens : 86
Data de inscrição : 04/04/2012

MensagemAssunto: Re: Cadastro de Horas Extras utilizando VBA   Ter Mar 18, 2014 8:00 pm

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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Cadastro de Horas Extras utilizando VBA   Hoje à(s) 8:22 pm

Voltar ao Topo Ir em baixo
 
Cadastro de Horas Extras utilizando VBA
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Ktm 250 -revisao 200 horas / kit 300
» Sistema de cadastro pra jogo multiplayer online?
» Compro um conta horas.
» Como fazer o personagem atirar utilizando Ctrl
» Modificar local de cadastro e enviar email a todos membros

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: