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!
Postado : 03/07/2014 11:08 am