Chook, não cheguei a ver o seu arquivo, mas de uma olhada no link abaixo, fiquei de dar uma ajuda, mas tambem ainda não tive tempo, mas quem sabe te ajuda e você consgue adaptar.

MARCAR PONTO NO EXEL !
viewtopic.php?f=25&t=3825

[]s

Preciso muito ajustar a função de minha planilha para disponibilizar aqui na empresa. Desta forma simples mesmo, os que mostrou são muito detalhado e não precisamos disto aqui na empresa. Também não achei os códigos necessários para desenvolvimento desta planilha.

Forte abraço a todos!

Preciso muito ajustar a função de minha planilha para disponibilizar aqui na empresa. Desta forma simples mesmo, os que mostrou são muito detalhado e não precisamos disto aqui na empresa. Também não achei os códigos necessários para desenvolvimento desta planilha.

Forte abraço a todos!

Chook, agora eu não entendi, os exemplos no tópico passado acima são todos referentes a Ponto Eletronico, e os codigos esstão nos modulos do VBA.

Depois você diz que precisa ajustar a função se sua planilha para disponibilizar na empresa e ainda fala que é uma forma "simples", só que os arquivos que disponiblizou, não teem nada a ver com lançamento de Ponto eletronico, e sim são de "Consultas a Pedidos e Clientes", sinceramente não entendi o relacionamento.

Será que não postou os arquivos errados ?

[]s

Amigo mil perdões! Segue arquivo correto!!

Up

Amigos é simples isso, é que não sei fazer! Help Please!!

Sistema finalizado com o código abaixo:

Private Sub ComboBox1_Change()
If ComboBox1.Value = "HILDA" Then
Image1.Picture = LoadPicture("E:Arquivos AQUINova Planilha Revenda PrintSistema V2Hilda.jpg")
End If
If ComboBox1.Value = "KAMILA" Then
Image1.Picture = LoadPicture("E:Arquivos AQUINova Planilha Revenda PrintSistema V2Kamila.jpg")
End If
If ComboBox1.Value = "RODRIGO" Then
Image1.Picture = LoadPicture("E:Arquivos AQUINova Planilha Revenda PrintSistema V2Rodrigo.jpg")
End If
End Sub

Private Sub CommandButton1_Click()
data.Caption = Now + TimeValue("00:00:01")
Sheets("Controle_Ponto").Select
Range("A1").Select

Dim UltimaLinha, i, z As Integer
UltimaLinha = Sheets("Controle_Ponto").Cells(Cells.Rows.Count, 1).End(xlUp).Row

UltimaLinha = UltimaLinha + 1
Range("A" & UltimaLinha).Select
'*****************************
    Sheets("banco_sistema").Select
    Range("AE1").Select
    Achou = False
    For i = 2 To 6
        If funcionario.Text = Sheets("Banco_Sistema").Range("AE" & i).Value And _
        senha.Text = Sheets("Banco_Sistema").Range("AF" & i).Value Then
            Achou = True
        End If
    Next
   
    If Achou = False Then
        MsgBox "Usuário ou Senha Incorretos!", vbCritical, "LOGIN"
        senha.Text = ""
        senha.SetFocus
        Exit Sub
    Else
'*****************************
Sheets("Controle_Ponto").Select
With Worksheets("Controle_Ponto").Range("b:b")
Set b = .Find(funcionario, LookIn:=xlValues, LookAt:=xlPart)
    With Worksheets("Controle_Ponto").Range("A:A")
    Set a = .Find(Date, LookIn:=xlValues, LookAt:=xlPart)
        If b Is Nothing Then
            ActiveCell.Value = CDate(Date)
            ActiveCell.Offset(0, 1).Value = funcionario.Value '(0,1) Indica o deslocamento da seleção onde 0 e a linha e 1 e coluna referente a primeira
            ActiveCell.Offset(0, 2).Value = Time
            MsgBox funcionario & " SEJA BEM VINDO(A)! BOM TRABALHO!"
            Exit Sub
        Else
            a.Activate
            b.Activate
            If ActiveCell.Offset(0, 2).Value = "" Then
                ActiveCell.Offset(0, 2).Value = Time
                MsgBox funcionario & " BOM ALMOÇO!"
                Exit Sub
            End If
            If ActiveCell.Offset(0, 3).Value = "" Then
                ActiveCell.Offset(0, 3).Value = Time
                MsgBox funcionario & " BOM RETORNO AO TRABALHO!"
                Exit Sub
            End If
            If ActiveCell.Offset(0, 4).Value = "" Then
                ActiveCell.Offset(0, 4).Value = Time
                MsgBox funcionario & " TENHA UMA ÓTIMA NOITE! ATÉ AMANHÃ"
                Exit Sub
            Else
                MsgBox funcionario & " JÁ EFETUOU A SAÍDA HOJE"
            Exit Sub

            End If
        End If
    End With
End With
End If
Unload Me
Ponto_Eletronico.Show
End Sub
Private Sub TextBox2_Change()
data.Caption = Now + TimeValue("00:00:01")
End Sub
Private Sub funcionario_Change()
If funcionario.Text = "RODRIGO" Then
Image1.Picture = LoadPicture("Z:Rodrigo.jpg")
End If
If funcionario.Text = "ALEX" Then
Image1.Picture = LoadPicture("Z:Alex.jpg")
End If
If funcionario.Text = "HILDA" Then
Image1.Picture = LoadPicture("Z:Hilda.jpg")
End If
If funcionario.Text = "KAMILA" Then
Image1.Picture = LoadPicture("Z:Kamila.jpg")
End If
If funcionario.Text = "SONIA" Then
Image1.Picture = LoadPicture("Z:Sonia.jpg")
End If
If funcionario.Text = "REVENDA PRINT" Then
Image1.Picture = LoadPicture("Z:User.jpg")
End If
End Sub

Private Sub UserForm_initialize()
data.Caption = Now
funcionario.SetFocus
Image1.Picture = LoadPicture("E:Arquivos AQUINova Planilha Revenda PrintSistema V2User.jpg")
End Sub