Macro para agregar una cuenta a un catalogo de cuentas
hola nuevamente
como podrás ver en el archivo que te envíe el catalogo de cuentas que deseo crear las cuentas deben estar separadas en grupo de tres dígitos de esta manera los primeros tres dígitos para los MAYORES, los siguientes tres dígitos para las SUB CUENTAS y los últimos tres dígitos para AUXILIARES y deberán verse reflejados de esta manera
--1 Mayor
-10 Mayor
100 Mayor
100-001 Sub Cuenta
100-001-001 Auxiliar
si se ingresara una cuenta con esta descripción 1-001 o 10-001 debería marcar un error y no dejar ingresar la cuenta
para esto tengo varios botones y varias macros y en el caso de crear una nueva cuenta es donde tengo algunos inconvenientes que te detallo
CREAR CUENTA
al dar click a este botón debe mostrar las filas 5 y 6 que están ocultas la fila 5 es el encabezado de las cuentas es decir CÓDIGO, TIPO, DESCRIPCIÓN TIPO, DETALLE y TIPO de CUENTA, en la fila 6 están los campos en donde se ingresara la información de las cuentas a ingresar, aclaro que 2 de estos campos tienen formulas y formatos condicionales, en el campo código le di un formato especial a la celda para que al introducir la cuenta no sea necesario ingresar el guion pero que este si aparezca y el formato personalizado que use es el siguiente ###-###-### y pues hasta ahi todo funciona muy bien
INGRESAR CUENTA
aquí en donde hay algún problema pues a darle click a este botón la macro que esta asignada al mismo debe hacer varias cosas entre ellas copiar la información de la fila 6 identificar en el mismo libro la ultima fila que tenga información en el campo pegar la información copiada en la fila siguiente a la ultima fila con valores encontrados y ordenarlo en forma ascendente, en la parte de el ordenamiento es donde tengo el problema pues la intención del ordenamiento seria la siguiente
--1 activos
--10 activos circulantes
--100 efectivo
-100-001 Caja General
100-001-001 caja general sucrusal sur
--101 cuentas bancarias
-101-001 cuentas de ahorro
101-001-001 cuenta No. Xxxx-xxxx-xxxx
-101-002 cuentas de cheques
101-002-001 cuenta No. X-xxxxxx-xxxx
el problema es que cuando lo ordena la cuenta 101 aparece inmediatamente después de la cuenta 100 es decir de esta manera
--100 efectivo
--101 cuentas bancarias
-100-001 caja general
con la modificación que me enviaste el ordenamiento lo hace de manera correcta pero luego la macro se detiene y aparece un mnesaje de depuración y me marca el siguiente segmento indicándome que hay un erro en la misma
'Ordena los registros por el campo código
Columns("B:C").Insert
Columns("A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, _
OtherChar:="-", _
FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2)), _
TrailingMinusNumbers:=True
como podrás comprobar en el archivo que te envíe si haces una prueba te aparecerá dicho error, espero puedas ayudarme
atentamente.
Ronny Betancourth
1 respuesta
Las cuentas deberían ser así:
001-000-000 activos
010-000-000 activo circulante
100-000-000 efectivo
101-000-000 cuentas bancarias
Etc
Si pones esto
--1, esto es el número 1 en auxiliar
1-- Esto si es mayor
Como te dije la macro no va a funcionar, está preparada para separar los datos con guiones, pero no tienes guiones, tienes un formato.
Tampoco tienes las cuentas de 3 en 3, todas las cuentas deberían tener 9 dígitos, pero tu tienes cuentas con 1 dígito, con 2, con 3, etc.
Te recomiendo que homologues tus cuentas ya sea con guiones o con formato, pero que tenga la misma estructura.
De otra forma tendrás que ordenar manualmente las cuentas.
Hacer una macro para que identifique esto:
-100-001 Caja General
100-001-001 caja general sucursal sur
Es decir, habría que poner muchas reglas para decir que abajo de Caja General, que tiene un 100, va caja generar sucursal sur, que también tiene un 100, lo malo es que le primer 100, está en la posición 3, 4 y 5, y el segundo 100 está en las posiciones 1, 2 y 3.
En cambio si tienes esto, incluso a simple vista se ve ordenado.
100-001-000 Caja General
100-001-001 caja general sucursal sur
