Antes de que leas este tema, te invito a que visites la pagina de Aplica Excel Contable en Facebook, para eso tan solo pulsa clic aquí. 

Cuenta que tal te fue con el tema 16? Todo bien! Muy bien…. te sientes contento! Estamos casi en la recta final y te invito a que no te quedes atrás, si todavía no has visto el tema 16 hazlo ahora pulsando clic aquí. 

Hoy vamos a ver los códigos del módulo 2, los códigos del botón Guardar de la hoja D y los códigos del botón PRESENTAR MAYOR de la hoja Menú. No olvides que estos son los últimos códigos básicos de tu sistema contable.

Modulo 2:

Sub REGRESARMENU()
Sheets(“MENU”).Visible = True
Sheets(“MENU”).Select
Sheets(“D”).Visible = True
Sheets(“I”).Visible = True
Sheets(“E”).Visible = True
Sheets(“ND”).Visible = True
Sheets(“NC”).Visible = True
Sheets(“DIARIO”).Visible = True
Sheets(“MAYOR”).Visible = False
Sheets(“BALANCE”).Visible = True
Sheets(“GENERAL”).Visible = True
Sheets(“RESULTADO”).Visible = True
End Sub
Sub IRAMAYOR()
‘ IRA A LA HOJA MAYOR Macro
Sheets(“MAYOR”).Visible = True
Sheets(“MENU”).Visible = False
Sheets(“MAYOR”).Select
End Sub

Código para la Hoja MENÚ:

Private Sub CommandButton1_Click()
Sheets(“DIARIO”).Unprotect “123”
Call BusquedaContinuaM
Sheets(“DIARIO”).Protect “123”
Call REGRESARMENU
End Sub

Código  para la Hoja D:

Private Sub CommandButton3_Click ()
ActiveSheet.Unprotect Password: = ”124 ″
Sheets (“ DIARIO ”). Activar
Sheets (“ DIARIO ”). Desproteger“ 123 ”
Sheets (“ D ”). Seleccione
'rutina que graba la factura venta en hoja base
'se busca la imprimación fila libre en hoja Fact
filalibre = Sheets (“DIARIO”). Range (“A1048576”). End (xlUp) .Row + 1
' se pasarán los datos desde la 1er fila de elementos
ActiveSheet.Range (“C10”). Select
fila = 10
While ActiveCell.Value <> “”
'copiamos datos fijos ajustando nro col
Sheets (“DIARIO”). Cells (filalibre, 2) = ActiveSheet.Range (“D3 ”) 'NRO ASI
Sheets (“ DIARIO ”). Cells (filalibre, 1) = ActiveSheet.Range (“ F3 ”)' FECHA
Sheets (“ DIARIO ”). Cells (filalibre, 9) = ActiveSheet.Range (“ C6 ”)' CONCEPTO
Hojas (“DIARIO”). Celdas (filalibre, 3) = ActiveSheet.Range (“H1”) 'Nº ING.
Hojas (“DIARIO”). Celdas (filalibre, 4) = ActiveSheet.Range (“H1”) 'Nº EGRESO
Sheets (“DIARIO”). Cells (filalibre, 5) = ActiveSheet.Range (“H1”)' Nº ND
Hojas (“DIARIO”). Celdas (filalibre, 6) = ActiveSheet.Range (“H1”) 'Nº NC
' otros datos del encabezado

'copiamos lista de elementos
Hojas (“DIARIO”). Celdas (filalibre, 7) = ActiveCell .Offset (0, 0) 'CODIGO
Sheets (“DIARIO”). Cells (filalibre, 8) = ActiveCell.Offset (0, 1)' DESCRIPCION
Sábanas (“DIARIO”). Cells (filalibre, 10) = ActiveCell.Offset (0, 2) 'DESCRIPC
Sheets (“DIARIO”). Celdas (filalibre, 11) = ActiveCell.Offset (0, 3) '
Hojas PRECIO (“DIARIO”). Cells (filalibre, 12) = ActiveCell.Offset (0, 4) 'PRECIO
' incremento la variable fila para repetir el bucle
filalibre = filalibre + 1

'repito el bucle para los elementos siguientes
ActiveCell.Offset (1, 0) .Select
Wend
'una vez concluída la copia debiera limpiarse el formulario de datos
' para el ingreso de nueva factura
MsgBox “Tus Datos se Guardaron Corectamente”
ActiveSheet.Proteger contraseña: = ”124 ″
Hojas (“ DIARIO ”). Activar
Hojas (“ DIARIO ”) .Proteger ActiveWorkbook “123”.
Guardar
End Sub

Que tal hemos llegado a la meta final y te invito a que le eches muchas ganas, por que en el próximo tema te voy a presentar el sistema contable completo. También te voy dar el enlace para que descargues el sistema contable básico.

No olvides que todo estos temas lo puedes ver en vídeo desde la Zona de Alumnos. Los vídeos básicos son gratis, puedes registrarte y ver los vídeos básicos, pulsando clic aquí.

Si tienes preguntas o dudas puedes contactarnos por la sala de chat. También no olvides visitar la pagina de APLICA EXCEL CONTABLE en Facebook, pulsando clic aquí.

Saludos,

Roger Perez – Aplica Excel Contablex