Servicedesk

Private Sub BotonBAJA_Click() If MsgBox("¿SEGURO QUE QUIERE ELIMINAR ESTE CLIENTE?", vbExclamation + vbYesNo) = vbYes Then ActiveCell.EntireRow.Delete Shift = xlUp ComboBoxNIF2 = "" TextBoxNOMBRE ="" TextBoxDIRECCION = "" TextBoxCP = "" TextBoxTELEF = "" TextBoxEMAIL = "" If MsgBox("EL CLIENTE HA SIDO ELIMINADO. ¿Quiere cerrar el formulario?", vbInformation + vbYesNo) = vbYes Then UserForm8.HideEnd If End If End Sub Private Sub BotonCANCELAR_Click() ComboBoxNIF2 = "" TextBoxNOMBRE = "" TextBoxDIRECCION = "" TextBoxCP = "" TextBoxTELEF = "" TextBoxEMAIL = "" Do While Not IsEmpty(ActiveCell)ActiveCell.Offset(1, 0).Activate Loop ComboBoxNIF.SetFocus End Sub Private Sub BotonBAJA_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, By Val Y As Single)BotonBAJA.BackStyle = fmBackStyleOpaque BotonBAJA.ForeColor = vbWhite End Sub Private Sub ButtonCANCELAR_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Sin gle, ByVal Y As Single)ButtonCANCELAR.BackStyle = fmBackStyleOpaque ButtonCANCELAR.ForeColor = vbWhite End Sub Private Sub ButtonModif_Click() Application.ScreenUpdating = False Sheets("Lista de Clientes").ActivateCells(ComboBoxNIF2.ListIndex + 2, 1).Select ActiveCell.Offset(0, ActiveCell.Offset(0, ActiveCell.Offset(0, ActiveCell.Offset(0, ActiveCell.Offset(0, 1) 2) 4) 3) 5) = = = = = TextBoxNOMBRE TextBoxDIRECCIONCDbl(TextBoxCP) CDbl(TextBoxTELEF) TextBoxEMAIL

TextBoxNIF = "" TextBoxNOMBRE = "" TextBoxDIRECCION = "" TextBoxCP = "" TextBoxTELEF = "" TextBoxEMAIL = ""

UserForm8.Hide

End Sub Private SubButtonModif_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, B yVal Y As Single) ButtonModif.ForeColor = vbBlack ButtonModif.BackStyle = fmBackStyleOpaque End Sub Private SubComboBoxNIF2_Change() Application.ScreenUpdating = False Sheets("Lista de Clientes").Activate On Error Resume Next Cells(ComboBoxNIF2.ListIndex + 2, 1).Select TextBoxNOMBRE = ActiveCell.Offset(0, 1)...