Private Sub CommandButton1_Click()
Dim UltFila As Double
If Btt1 = False Then
MsgBox "Select INSERT Option", vbExclamation, "FRS"
Exit Sub
End If
'************************************************
UltFila = 1
While Trim(Sheets(4).Cells(UltFila, 1)) <> "": UltFila = UltFila + 1: Wend
Sheet4.Visible = True
Sheet4.Select
Sheet4.Unprotect (231278)
Cells(UltFila, 1) = TxtPassport.Value
Cells(UltFila, 2) = TxtName.Value
Cells(UltFila, 3) = TxtSurname.Value
Cells(UltFila, 4) = ComboRank.Value
Cells(UltFila, 5) = TxtNationality.Value
Cells(UltFila, 6) = Format(TxtBirth, "dd-mmm-yy")
Cells(UltFila, 7) = TxtPlace.Value
Cells(UltFila, 8) = TxtCompany.Value
Cells(UltFila, 9) = TxtSeamanbook.Value
Cells(UltFila, 10) = TextoID.Value
Cells(UltFila, 11) = Format(TxtVISA, "dd-mmm-yy")
Cells(UltFila, 12) = Format(TxtCompetency, "dd-mmm-yy")
Cells(UltFila, 13) = Format(TxtWatch, "dd-mmm-yy")
Cells(UltFila, 14) = Format(TxtBasic, "dd-mmm-yy")
Cells(UltFila, 15) = Format(TxtPax, "dd-mmm-yy")
Cells(UltFila, 16) = Format(TxtCraft, "dd-mmm-yy")
Cells(UltFila, 17) = Format(TxtFire, "dd-mmm-yy")
Cells(UltFila, 18) = Format(TxtFRB, "dd-mmm-yy")
Cells(UltFila, 19) = Format(TxtAid, "dd-mmm-yy")
Cells(UltFila, 20) = Format(TxtCare, "dd-mmm-yy")
Cells(UltFila, 21) = Format(TxtMedical, "dd-mmm-yy")
Cells(UltFila, 22) = Format(TxtForklift, "dd-mmm-yy")
Cells(UltFila, 23) = Format(TxtArpa, "dd-mmm-yy")
Cells(UltFila, 24) = Format(TxtGmdss, "dd-mmm-yy")
Cells(UltFila, 25) = Format(TxtHSC, "dd-mmm-yy")
Cells(UltFila, 26) = Format(TxtAssist, "dd-mmm-yy")
Cells(UltFila, 27) = Format(TxtSecurity, "dd-mmm-yy")
Cells(UltFila, 28) = Format(TxtEcdis, "dd-mmm-yy")
Cells(UltFila, 29) = Format(TxtCook, "dd-mmm-yy")
Sheet4.Protect (231278)
Sheet4.Visible = False
Sheet1.Select
End Sub
Sub EditCrew()
Dim UltFila As Long, rango As String, FilaRegistro As Long, ans As Integer
UltFila = Range("A" & Rows.Count).End(xlUp).Row
rango = "A2:A" & UltFila
If Len(frmCrew.TxtPassport) = 0 Then
MsgBox "Write True Passport", vbExclamation, "FRS"
Exit Sub
End If
If TxtVISA = "" Then ' <---- Por aqui sale sin avisar
Exit Sub
End If
FilaRegistro = filaexisteregistro(frmCrew.TxtPassport, rango)
If FilaRegistro = 0 Then
MsgBox "ID don´t exist", vbExclamation, "FRS"
Exit Sub
End If
Sheet4.Visible = True
Sheet4.Unprotect ("231278")
Sheet4.Cells(FilaRegistro, 2) = frmCrew.TxtName
Sheet4.Cells(FilaRegistro, 3) = frmCrew.TxtSurname
Sheet4.Cells(FilaRegistro, 4) = frmCrew.ComboRank
Sheet4.Cells(FilaRegistro, 5) = frmCrew.TxtNationality
Sheet4.Cells(FilaRegistro, 6) = frmCrew.TxtBirth
Sheet4.Cells(FilaRegistro, 7) = frmCrew.TxtPlace
Sheet4.Cells(FilaRegistro, 8) = frmCrew.TxtCompany
Sheet4.Cells(FilaRegistro, 9) = frmCrew.TxtSeamanbook
Sheet4.Cells(FilaRegistro, 10) = frmCrew.TextoID
Sheet4.Cells(FilaRegistro, 11) = frmCrew.TxtVISA
Sheet4.Cells(FilaRegistro, 12) = frmCrew.TxtCompetency
Sheet4.Cells(FilaRegistro, 13) = frmCrew.TxtWatch
Sheet4.Cells(FilaRegistro, 14) = frmCrew.TxtBasic
Sheet4.Cells(FilaRegistro, 15) = frmCrew.TxtPax
Sheet4.Cells(FilaRegistro, 16) = frmCrew.TxtCraft
Sheet4.Cells(FilaRegistro, 17) = frmCrew.TxtFire
Sheet4.Cells(FilaRegistro, 18) = frmCrew.TxtFRB
Sheet4.Cells(FilaRegistro, 19) = frmCrew.TxtAid
Sheet4.Cells(FilaRegistro, 20) = frmCrew.TxtCare
Sheet4.Cells(FilaRegistro, 21) = frmCrew.TxtMedical
Sheet4.Cells(FilaRegistro, 22) = frmCrew.TxtForklift
Sheet4.Cells(FilaRegistro, 23) = frmCrew.TxtArpa
Sheet4.Cells(FilaRegistro, 24) = frmCrew.TxtGmdss
Sheet4.Cells(FilaRegistro, 25) = frmCrew.TxtHSC
Sheet4.Cells(FilaRegistro, 26) = frmCrew.TxtAssist
Sheet4.Cells(FilaRegistro, 27) = frmCrew.TxtSecurity
Sheet4.Cells(FilaRegistro, 28) = frmCrew.TxtEcdis
Sheet4.Cells(FilaRegistro, 29) = frmCrew.TxtCook
MsgBox "EDIT Crew OK", vbInformation, "FRS"
Sheet4.Visible = False
Sheet4.Protect ("231278")
Sheet1.Select
End Sub
Sub DeleteCrew()
Sheet4.Visible = True
Sheet4.Unprotect ("231278")
Dim UltFila As Long, rango As String, FilaRegistro As Long
UltFila = Range("A" & Rows.Count).End(xlUp).Row
rango = "A2:A" & UltFila
If Len(frmCrew.TxtPassport) = 0 Then
MsgBox "Write True Passport", vbExclamation, "FRS"
Exit Sub
End If
FilaRegistro = filaexisteregistro(frmCrew.TxtPassport, rango)
If FilaRegistro = 0 Then
ans = MsgBox("ID don´t exist", vbExclamation, "FRS")
Exit Sub
End If
Sheet4.Rows(FilaRegistro).ClearContents
Sheet4.Visible = False
Sheet4.Protect ("231278")
Sheet1.Select
End Sub
Sub DeleteCrew()
Dim UltFila As Long, rango As String, FilaRegistro As Long
With Sheets("Nombre")
UltFila = .Range("A" & Rows.Count).End(xlUp).Row
rango = "A2:A" & UltFila
If Len(frmCrew.TxtPassport) = 0 Then
MsgBox "Write True Passport", vbExclamation, "FRS"
Exit Sub
End If
FilaRegistro = filaexisteregistro(frmCrew.TxtPassport, rango)
If FilaRegistro = 0 Then
ans = MsgBox("ID don´t exist", vbExclamation, "FRS")
Exit Sub
End If
.Visible = True
.Unprotect ("231278")
.Rows(FilaRegistro).ClearContents
.Visible = False
.Protect ("231278")
End With
Sheets("Data").Select
End Sub