Estamos apunto de terminar y ver funcionar tu sistema contable B\u00e1sico.. Y me pregunto que tal te va? Has aplicado todos los pasos?<\/p>\n
A partir de este tema comenzamos a programar tu sistema contable b\u00e1sico, la programaci\u00f3n b\u00e1sica solo incluye el funcionamiento del bot\u00f3n guardar y el bot\u00f3n Presentar MAYOR.<\/p>\n
El d\u00eda de hoy voy a compartir contigo los primeros c\u00f3digos y se trata de los c\u00f3digos del Modulo 1.<\/p>\n
Copiando C\u00f3digos en los M\u00f3dulos de VBA de tu contabilidad en excel15<\/h2>\n
Entramos a VBA con la combinaci\u00f3n de tecla Alt + F11 y e insertamos dos M\u00f3dulos m\u00e1s y copiamos los siguientes c\u00f3digos:<\/p>\n
C\u00f3digo para el Modulo 1 de tu Contabilidad en excel15:<\/span><\/strong><\/p>\n Sub DIARIO()\u00bb ESTA MACRO LIMPIA EL CONTENIDO DEL DIARIOActiveSheet.Unprotect \u00ab123\u00bbRange(\u00abA2:L2000\u00bb).SelectSelection.ClearContentsRange(\u00abA2\u00bb).SelectSheets(\u00abDIARIO\u00bb).ProtectEnd Sub<\/p>\n Sub BusquedaContinuaM()Dim busca As ObjectDim PrimeroDim hojaBusc As String, quebusco As String, mihoja As StringDim filalibre As Integer’en la siguiente variable se indica la hoja d\u00f3nde buscarhojaBusc = \u00abDIARIO\u00bb‘el dato a buscar se encuentra en E3 de la hoja activa’la variable \u00abmihoja\u00bb ser\u00e1 donde se volcar\u00e1n los datosmihoja = \u00abMAYOR\u00bbfilalibre = 10quebusco = Sheets(mihoja).Range(\u00abH7\u00bb)’la b\u00fasqueda se realiza sobre la columna D de la Hoja3Set busca = Sheets(hojaBusc).Range(\u00abG2:G2000\u00bb).Find(quebusco, LookIn:=xlValues, Lookat:=xlWhole)<\/p>\n If Not busca Is Nothing ThenPrimero = busca.Address’comienza el bucleDo’completa la fila de la hoja activa (Hoja2) con datos del registro encontradoSheets(mihoja).Cells(filalibre, 1) = busca.Offset(0, -6) ‘dato de col A FECHASheets(mihoja).Cells(filalibre, 2) = busca.Offset(0, -5) ‘dato de col B N\u00ba ASISheets(mihoja).Cells(filalibre, 3) = busca.Offset(0, -4) ‘dato de col c N\u00ba INGSheets(mihoja).Cells(filalibre, 4) = busca.Offset(0, -3) ‘dato de col c N\u00ba EGRSheets(mihoja).Cells(filalibre, 5) = busca.Offset(0, -2) ‘dato de col c N\u00ba NDSheets(mihoja).Cells(filalibre, 6) = busca.Offset(0, -1) ‘dato de col c N\u00ba NDSheets(mihoja).Cells(filalibre, 7) = busca ‘dato de col D CODIGOSheets(mihoja).Cells(filalibre, 8) = busca.Offset(0, 2) ‘dato de col J DESCRIPCIONSheets(mihoja).Cells(filalibre, 9) = busca.Offset(0, 3) ‘dato de col P DEBESheets(mihoja).Cells(filalibre, 10) = busca.Offset(0, 4) ‘dato de col R HABERfilalibre = filalibre + 1<\/p>\n Set busca = Sheets(hojaBusc).Range(\u00abG2:G2000\u00bb).FindNext(busca)’se repite la rutina hasta volver a la primer direcci\u00f3n guardada.Loop While Not busca Is Nothing And busca.Address <> PrimeroEnd If’se libera la variableSet busca = NothingCall ImprimirmayorCall LimpiaMayorEnd Sub<\/p>\n Sub LimpiaMayor()Range(\u00abA10:J2000\u00bb).ClearContentsEnd SubSub Imprimirmayor()Call IRAMAYOROn Error Resume NextSheets(\u00abMAYOR\u00bb).ActivateActiveSheet.PrintPreviewEnd Sub<\/p>\n Solo es abrir VBA e insertar un modulo y copiar los c\u00f3digos dentro de VBA, hazlo hoy mismo no lo dejes para ma\u00f1ana. En el pr\u00f3ximo tema te voy a dar los c\u00f3digos correspondientes a l Modulo2.<\/p>\n Si quieres adelantar y terminar de estructurar tu sistema, visita la Zona de Alumno, al acceder encontraras todos los videos b\u00e1sicos disponible, los c\u00f3digos b\u00e1sicos disponible para ver y descargar.<\/p>\n Si te gusto el tema de hoy, comp\u00e1rtelo con tus amigos de Facebook<\/a>, pulsando clic en compartir:<\/p>\n Y si aun no estas suscrito en nuestro canal, tan solo pulsa clic en el bot\u00f3n rojo para acceder a todos los v\u00eddeos nuevos que subimos cada semana:<\/p>\n <\/a><\/a><\/p>\n Me gustar\u00eda saber que piensas de este articulo \u00abPlantilla Excel – Programando tu Sistema Contable\u00bb, por lo tanto, d\u00e9jame tu comentario con dudas, criticas constructivas y sugerencias.<\/p>\n Hasta aqu\u00ed hemos llegado con este articulo, para continuar con el siguiente articulo, tan solo pulsa clic en el bot\u00f3n:<\/p>\nMacro para la mayorizacion de tu contabilidad en excel15<\/h2>\n
‘si busca No es Vac\u00edo\u2026 es decir si la b\u00fasqueda es exitosa y encuentra el dato, guarda ladirecci\u00f3n en la variable Primero<\/h4>\n
‘contin\u00faa la b\u00fasqueda<\/h4>\n
Macro para Limpiar la hoja mayor de tu contabilidad en excel15<\/h4>\n
Pasos para copiar y pegar los codigos de Programacion de tu contabilidad en excel15<\/h2>\n
S\u00edguenos en:<\/strong><\/h1>\n
Para Finalizar:<\/h3>\n
![\"contabilidad](\"https:\/\/aplicaexcelcontable.com\/blog\/wp-content\/uploads\/2023\/11\/Roger-Perez-caricatura.png\" "\\"Roger")
<\/span><\/p>\n