viernes, 21 de abril de 2017

ELIMINAR

  If MsgBox("¿Seguro que quiere eliminar este alumno?", vbQuestion + vbYesNo) = vbYes Then
       
        Sheets("DATOS").Select
       
        ActiveCell.EntireRow.Delete
       
       
       
        MsgBox "Alumno eliminado", vbInformation + vbOKOnly
        ComboBox1.SetFocus

lunes, 17 de abril de 2017

sistema facturas

formato de factura__________________________________________________________________
formato para ingresar datos con una macro ______________________________________________


Formato de  base de datos________________________________________________________
Formato para buscar datos con la formula si.error.buscarv

Base de datos para clientes.