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

Buenas noches colegas. Muy interesante la propuesta de Israel Cassales, realmente no había valorado o detenido a pensar en lo que plantea, pero tiene mucha razón, aunque lo que necesito es el cumpleaños, pero si puede serme muy útil para otros proyectos donde sí necesite algo más exacto. En cuanto a usted Victor, nada, todos nos equivocamos a diario, lo importante es reflexionar y admitirlo. Es impresionante cómo se aprende en un FORO como este, cuantas cosas obviamos y son necesarias y es que Excel tiene eso de particular, podemos llegar a un mismo destino aún tomando por diferentes caminos, eso es lo que lo hace "RICO" en contenido, eso es lo que hace que nos fascine a muchos de nosotros. Nunca me arrepentiré de pertenecer a este maravilloso Foro, como al Foro TodoExcel. Lo he manifestado en varias ocasiones y lo patento; son los dos mejores Foro de Excel que existen (es mi modesta opinión). Ah, y a usted Victor, sí, estamos entre los países con más vieja población. Cuba cuenta con una de las poblaciones más envejecidas de América Latina y del planeta. Esto es una desgracia, no un mérito y cada día se nos envejece más, primero por la situación económica y que hace que existan más muertes que nacimientos. Las mujeres en edad fértil no quieren parir... y por otro lado, el éxodo masivo que está experimentando nuestra isla desde hace aproximadamente dos años (aunque desde 1959 no ha dejado de serlo) nos ha dejado en una situación muy desfavorable, aumentando este índice negativo para una nación. A todos mil gracias por sus aportes y ayudas. Tienen mis respetos y consideraciones. Un saludo. Pino.

Buenos días John Jairo. Su propuesta funciona perfectamente. Gracias por su tiempo. Gracias también al amigo Víctor. Bendiciones a todo el foro. Mis respetos. Pino

Buenos días colegas. Buenos días Víctor. Aplique la fórmula que usted me sugirió pero obtengo el mismos resultado. Agradecido por su respuesta. En espera de la variante. Pino.

Buenas noches colegas. Espero que se encuentren bien de salud. Hace un par de días solicité a este foro (en el apartado de Macro), ayuda sobre cómo lograr obtener la edad de los empleados y recibí dos excelentes respuestas de los Profesores Antoni y JSD, a los cuales les agradezco de manera infinita su pronta y eficaz ayuda, pero me quedé con una duda. Yo uso una fórmula para extraer el día, mes y año de nacimiento partiendo del número de Carnet de Identidad. Este documento lo poseen todos los cubanos y consta de 11 dígitos, los dos primeros representan el AÑO, los dos siguientes el MES y los otros dos que siguen el DÍA de nacimientos, los 5 restantes forman parte de una nomenclatura donde consta tomo, folio y sexo de cada persona. Ejemplo (Mi número de Identidad) 66020108609 66 es el año de nacimiento (1966) 02 es el mes de nacimiento (Febrero) 01 día de nacimiento (1) O sea, que mi fecha de nacimiento quedaría de la siguiente manera: 01/02/1966. Partiendo de esta fecha yo puedo obtener un grupo de resultados. ¿Dónde está el problema? Cuando el individuo nace a partir del 2000 se me complica obtener los datos reales. La fórmula que yo empleé: =FECHA(VALOR(EXTRAE([@[C. Identidad]];1;2));VALOR(EXTRAE([@[C. Identidad]];3;2));VALOR(EXTRAE([C. Identidad];5;2))) En la tabla del ejemplo que anexo verán dos casos (con fondos mostaza y amarillo). En uno nació en el 2003 y pone 1903, en el otro nació en el 2001 y pone 1901. Necesito ayuda para ver que puedo hacer, porque con esa fecha yo pretendo mostrar en un ListBox los Cumpleaños del día. Gracias de antemano y buenas noches. Saluos Pino Cumpleaños Foro.xlsm

Buenas tardes colegas del Foro. Buenas tardes Profesor Antoni y Porfesor JSD. Una vez más en "encrucijada" positiva, es una suerte tener dos soluciones de dos personas a las que admiro. Gracias a ambos. Las dos son perfectas (como siempre), nada que acotar, solo agradecer otra vez más a los dos por sus aportes y desearle mucha salud y bendiciones. Gracias y mis respetos. saludos Pino.

Buenas noches colegas. Espero se encuentren bien todos. Tengo un pequeño problema; A partir del numero de identidad (para otros países creo que es RUP) yo extraigo la fecha de nacimiento, y calculo la edad de cada trabajador, pero me da un "desfase" con fechas que comienzan a partir del 2000. =FECHA(VALOR(EXTRAE([@[C. Identidad]];1;2));VALOR(EXTRAE([@[C. Identidad]];3;2));VALOR(EXTRAE([C. Identidad];5;2))) Fecha para hallar la edad =AÑO($A$2)-AÑO([@[FECHA NAC.]]) Pueden ayudarme a definir o corregir este problema? Y si no fuera mucho pedir, me gustaría hacer esto desde VBA y evitar fórmulas o funciones en la hoja de cálculo. Gracias de antemano. Saludos Pino Cumpleaños Foro.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.