Bases de datos en Excel Parte II. Botón Modificar.

Dim Codigo As String, PosExiste As Long
If Me.BotonModificar.Caption = "Modificar" Then
Me.BotonModificar.Caption = "Guardar Modificación"
Me.Frame1.Enabled = True Me.BotonNuevo.Enabled = False
Me.BotonEliminarRegistro.Enabled = False
Me.BotonSalir.Enabled = False
Me.BotonBuscar.Enabled = FalseElse
Codigo = Me.TextBox1.Text
PosExiste = ExisteCodigo(CanRegistros, Codigo)
If (PosExiste >= 1 Or Codigo = "") And (Registro <> PosExiste) Then
'condicional para el texto adecuado en caso de error
If Codigo = "" Then
MsgBox "Imposible Modificar el nuevo registro, el valor para el campo Código no
puede ser vacio.", vbCritical
Else
MsgBox "Imposible Modificar el nuevo registro, el valor para el campo Código ya
existe.", vbCritical
End If
Me.BotonInicio.Value = True
Else
'creando el registro ya que no existe
FilaEst = Registro + 1
For i = 1 To TotalCampos
Hoja2.Cells(FilaEst, i) = "'" & Me.Controls("TextBox" & i).Text
Next i
End If 'fin del existe codigo

'Activando botones
Me.BotonModificar.Caption = "Modificar"
Me.BotonNuevo.Enabled = True
Me.BotonEliminarRegistro.Enabled = True
Me.BotonSalir.Enabled = True
Me.Frame1.Enabled = False
Me.BotonBuscar.Enabled = True
End If