Olá Pessoal!
Estou fazendo uma pequena aplicação para usar no meu trabalho, preciso fazer apontamento de determinada atividade com inicio e fim. Já consigo impedir o apontamento repetido. Todavia, não consigo fazer o apontamento do fim desta atividade.
segue modelo
Grato!
at
Laerte Oliveira
Mas qual o parâmetro para determinar o fim da atividade??
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Bom dia!!
Eu não entendi
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Boa Tarde!
Reinaldo, o parametro seria "horas" , uma vez encerrada a atividade o operador escolhe o usuário, pôe a sua senha e aponta o fim. Este apontamento tem que incidir sobre a linha que o mesmo deu entrada na atividade.
Alexandre, trata-se de uma rotina para sinalizar o inicio e fim de uma determinada atividade produtiva e como disse consigo dar o inicio, mas não estou conseguindo finalizar de forma que o apontamento esteja na mesma linha.
at
Laerte
Boa Tarde!
Srs, no modelo anexo consegui fazer o apontamento do fim da atividade, porém tive que travar a variável "i" em 2 correspondente a 2ª linha da planilha. O que eu preciso e não consigo é que o sistema entenda qual a atividade e qual a linha deva ser encerrada assim que o usuário inserir a atividade por exemplo "PRODUÇÃO"
Eu continuo sem entender???
Horas não é parâmetro mas sim o resultado, o parâmetro seria algo assim: Quando incluir nova atividade, encerrar atividade em aberto, ou decorridos 2 dias atividade encerrada
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Boa Tarde!
Reinaldo, dependendo pode-se ter 3 atividades em aberto e a medida que elas forem terminando preciso que o operador ao entrar com a sua senha o Excel identifique a linha do apontamento e dê o fim da mesma.
tentei fazer algo, mas o "tiro" saiu pela culatra:
Private Sub CommandButton2_Click() Dim i As Integer Dim myRow As Integer myRow = ActiveCell.Row i = myRow Columns(1).Select If Sheets("Plan1").Range("B" & i).Value = TextBox1.Value Then If Sheets("Plan1").Range("E" & i).Value <> "" Then MsgBox "SAÍDA JÁ APONTADA!", vbCritical, "ERRO" 'TextBox1.Text = "" 'TextBox1.SetFocus Unload Me Exit Sub End If End If With Sheets("Plan1") .Cells(i, 5).Value = Label1 End With TextBox2.Value = myRow Unload Me End Sub
Acredito que o parametro que você se refere seja a senha, pois se a entrada já foi apontada o sistema impede o ato repetido, porém se a saída esta vazia o sistema entende que se trata do fim daquela atividade.
Obrigado por ajudar!