pinoji

Gracias a todos.

Buenos días colegas. Espero se encuentren bien de salud. Hace algunos días comencé un nuevo proyecto para llevar la Contabilidad en un Negocio que es de mi hermano. Apenas comienzo, pero tengo varios problemas a pesar de ser Contador (pero no programador). El tema que me ocupa hoy es el siguiente: Tengo una Hoja (Plan de Cuentas) donde tengo el Catálogo, pero es necesario agregar Cuentas nuevas a medida que el Negocio avance como son Proveedores, Clientes, Bancos, Ingresos, etc... Tengo una macro que he creado, pero no me ORDENA como requiere el Catálogo, Me inserta bien los datos (Jerarquía, Numero de cuenta, Titular y Naturaleza), pero lo ordena de manera inadecuada. En el ejemplo que "subo" inserté una nueva cuenta: Jararquía: 2 Nunero: 102-03 Titulo: Bancos Mixtos Naturaleza: D Pero si se fijan, este me lo insertó (Ordenó) Fondo amarillo, debajo de la cuenta 101-01, cuando debía ser debajo de la cuenta 102-02. Todo parte del FrmCuentas (Label signo +). El código está en el Módulo5. Por favor si pudieran ayudarme. Tengo otras dudas o problemas que iré ventilando con ustedes a medida que la corriente me lo permita (acá los apagones son de 20 horas diarias). Sub InsertarCuenta() Dim wsCatalogo As Worksheet Dim ultimaFila As Long Dim nuevaCuenta As String Dim nivelCuenta As String Dim tituloCuenta As String Dim nCuenta As String Dim celda As Range Set wsCatalogo = ThisWorkbook.Sheets("Plan de Cuentas") ultimaFila = wsCatalogo.Cells(wsCatalogo.Rows.Count, 1).End(xlUp).Row nivelCuenta = InputBox("Ingrese la categoría jerárquica de la cuenta:") nuevaCuenta = InputBox("Ingrese el código de la nueva cuenta:") tituloCuenta = InputBox("Ingrese el Titulo de la Cuenta a Crear:") nCuenta = InputBox("Ingrese la Naturaleza de la cuenta:") Set celda = wsCatalogo.Range("A3:A" & ultimaFila).Find(nivelCuenta, LookAt:=xlWhole) If Not celda Is Nothing Then wsCatalogo.Rows(celda.Row + 1).Insert Shift:=xlDown wsCatalogo.Cells(celda.Row + 1, 1).Value = nivelCuenta wsCatalogo.Cells(celda.Row + 1, 2).Value = nuevaCuenta wsCatalogo.Cells(celda.Row + 1, 3).Value = tituloCuenta wsCatalogo.Cells(celda.Row + 1, 4).Value = nCuenta MsgBox "Cuenta insertada correctamente en el Catálogo.", vbInformation Else MsgBox "No se encontró la Jerarquía especificada.", vbExclamation End If End Sub Un abrazo a todos. Pino PD No me deja insertar el archivo por su tamaño... 429KB... no entiendo...

Buenas tardes colegas. Espero gocen de buena salud todos. Tanto a Héctor Miguel como a Víctor 7 mis agradecimientos por tomarse tiempo en mi "problema". Buscaré cual de las variantes me es más factible y esa aplicaré, pero de las dos saco experiencias y aprendizajes. Gracias a todos, en especial a ustedes dos y mis respetos. Saludos Pino

Buenas noches colegas. Espero se encuentren bien de salud. Adjunto un archivo de muestra para ejemplificar mi problema. Yo tengo que hacer esto todas las semanas y en el caso de la muestra escogí solo un Comprobante, pero son muchos más, incluso con mucho más registros. Esto lo extraigo de un sistema (Ábaco) que es de Nóminas. Yo necesito extraer y hacer algunos cálculos con esos números, pero están en formato de TEXTO. He tratado de convertirlo a número (Valor), pero no he podido, incluso hice una macro dónde sí lo convierte, pero el formato resultante no me sirve. Traté de convertirlo con la fórmula =Valor(), multipliqué el numero por 1 (*1), le sumé1 y resté 1 (+1-1) y nada. Por favor, si pudieran ayudarme se los agradecería. Un saludo y gracias de antemano. Pino CO Sept.xlsm

Hola colegas. Creo necesario en virtud de la fecha, hacerles llegar a todos los miembros de este FORO, una felices fiestas de Navidad. Aprecio sobremanera el trabajo que hacen y no me perdonaría hacer Mutis en tan especial fecha. Llegue a todos mis deseos de buenas salud, prosperidad y bendiciones. Mis más sinceros respetos. Pino.