Jump to content

pinoji

Members
  • Posts

    61
  • Joined

  • Last visited

  • Country

    Spain

Everything posted by pinoji

  1. Profesor, el placer es mío. Soy seguidor de su canal desde hace algún tiempo y he aprendido muchas cosas en él. No sabes a cuantas personas has ayudado al igual que este Foro que es excepcional, con miembros muy capaces, amables y sobre todo, tanto en usted como en este Foro el ALTRUISMO es una premisa. Yo verdaderamente admiro a aquellas personas que lo dan todo por ayudar a los demás. Por acá hay un grupo de personas (me incluyo, de hecho lo digo por mí) que desgraciadamente tenemos muchos problemas para acceder a Cursos On Line o tener una bibliografía acorde o una persona experta que lo guía y estos "espacios" vienen, de alguna manera, a "llenar" esos vacíos. Soy empírico, no se nada de Arquitectura, Algoritmo, Programación estructurada, Pseudocódigos, y todos esos conceptos que se manejan en una Carrera Universitaria o quizás en Cursos, pero sí tengo el interés de aprender. Ya no tengo 20 años (tengo 56) y las capacidades de aprendizajes disminuyen mucho, las neuronas no son las mismas y hace apenas 9 meses que escribí mi primer código VBA y lo debo a los canales de YouTube y personas como ustedes. No son capaces de imaginas el trabajo que paso para poder hacer algo en Excel y VBA. No tengo Ordenador, poco tiempo, los apagones, (...) pero aún así QUIERO aprender y me encuentro con personas como usted, Víctor Hernández (TOR-Code), Carolina de Andrade, Andrés Rojas, Sergio Alejandro Campos, Antoni, JSD JSD, Haplox, Alexander, Jalui, Sergio Reigosa, Sergio el administrador de este Foro y muchos más presto a ayudar, a sacrificar su tiempo libre para atender nuestras dudas. En una ocasión lo dije y ahora lo repito, yo los considero Seres Superiores. Pero bueno, basta charlas que este medio no es para eso. Agradecerle por sus aportes y que tenga una Excelente salud usted y su familia. Mi nombre es José Ignacio Pino Mondeja, vivo en Cuba, 56 años y me puede contactar por: pinomondejajoseignacio@gmail.com. Gracias a usted y todos los miembros del Foro
  2. Enigma25, buenas noches. No conocía que usted estuviera al tanto de este Calendario y que además como dice "es un aporte que hice en mi canal EcoExcel..." Tenia entendido que era del Profesor David, pero no es la cuestión de mi comentario quien es o no el autor, lo que si quería comentar es que no se por qué razón me gustó este más que otros que me he encontrado, como el de Andrés Rojas Moncada, que por cierto es muy bueno, pero decidí usar este y me va bien, ahora me gustaría obtener esa versión mejorada. Podrías darme el link? Gracias entonces por su aporte y acá tiene un seguidor y servidor. Saludos. Pino
  3. Janlui hermano, todo lo referente al EcoCalendario está en el archivo que subí. Puedes llegar hasta él y tomarlo.
  4. Hola Juanlui, buenas noches. No entiendo a ciencias ciertas su pregunta. Creo entender que si conozco el Calendario EcoCalendario. Pues sí, lo uso en mis proyectos y es muy fácil de usar. Consta de un Modulo, un Modulo Clase y un UserForm, los cuales los incluyes en tu proyecto y listo. Si esa es tu pregunta creo que está contestada, si es otra, por favor, dime y responderé con mucho placer. Usted me ayudó en su momento con una duda y creo estar en deuda con usted. Gracias por todo. Saludos y excelente fin de semana. JIPM
  5. Buenos días Haplox. Espero que se encuentre bien de salud. Muy interesante su comentario y por supuesto que es una tremenda ayuda, sobre todo para mi que apenas estoy comenzando con esto de VBA. Comenzaré a interiorizar y poner en practica estos elementos. Pero sigo teniendo una duda; Como puedo en el Formulario que envié por ejemplo mientras voy declarando los salarios por meses, de manera automática y en tiempo real se vaya mostrando el el TextBox correspondiente al Promedio Mes el resultado y así con el Promedio Días y los demás TextBox y Label como sucede con el Total de Salario. En qué Evento lo declaro, cómo podría ser la sintaxis (...) porque para el Total de Salario con un poco de trabajo lo hice, pero he intentado con los demás y no puedo lograrlo. Podrías ayudarme con un ejemplo para yo tener una referencia? Gracias por atender mi duda y excelente fin de semana para ti y tu familia. Saludos Pino
  6. Buenos días Foristas. Una vez más por acá. Quizás más rápido de lo que yo hubiera querido, pero sigo teniendo problemas con los cálculos en VBA. Es algo que no acabo de aprender y necesito aprenderlo. Acá en mi país cuando un trabajador se enferma y el Médico le da Reposo, emite un Certificado Médico, donde entre otros datos consigna los días a Descansar y la fecha Inicial cuando comienza ese Reposo. Imagino que en todos lados sea parecido, quizás difiera en el cálculo. Yo quise automatizarle esto a mi esposa para que hiciera los cálculos de manera automática con sólo introducir los datos imprescindibles. Primero: Declara el Salario devengado por cada uno de los últimos 12 meses y esto crea un Total de Salario. Esto lo logré hacer y funciona perfecto, porque lo que necesito es que se vaya mostrando en los TextBox o Label los resultados en Tiempo Real, pero hay otros cálculos que no he podido lograr, por ejemplo: Promedio Mes que utilizo la función =SI.ERROR(PROMEDIO(D8:D19),"0.00") Promedio Día que utilizo la función =SI.ERROR(D21/24,"0.00") Días a Contar que utilizo =DIAS.LAB.INTL(H8,I8,11,I13) (en el cuarto argumento requiere del rango I13:I20) Total Días a Pagar =F11-D23 Días x Promedio Días =SI.ERROR(F14*D22,"0.00") Neto a Cobrar =SI.ERROR(F17*K9/100,"0.00") El importe de los Meses se introduce manual, al igual que Fecha Inicio (Desde) y Fecha Final (Hasta), al igual que en No Considerar que son fechas de días Feriados, Festivos o simplemente No laborables (no incluye los domingos) En el Combobox % a Aplicar defino el porciento que requiere el certificado según el Tipo. En Días de Carencia se introduce manual. Esto son los 3 primeros días de cada certificado que no se les paga, a no ser que el certificado sea continuación de otro. En la Hoja me funciona PERFECTAMENTE y obtengo lo que necesito, pero quiero hacerlo a través de VBA, pero no logro concretar los cálculos en los TextBox o Label. Esto es una asignatura que sigo teniendo pendiente pero que superaré. Resumiendo, necesito me ayuden a que los TextBox TxtPromedioDia y TxtPromedioMes me vaya mostrando en Tiempo Real el resultado de las operaciones, así como en los 4 Label. Aun no lo he terminado, pero con esto me estarían ayudando muchísimo. Les agradecería su apoyo. Gracias y que tengan un excelente día. JIPM Subsidio Foro .xlsm
  7. Buenas noches Foristas. Buenas noches JSD. Excelente. Evidentemente su propuesta me gusta más y me quedo con ella. Gracias una vez más hermano. Nos seguiremos "viendo" en el camino y yo seguiré aprendiendo de usted y todos los demás miembros de este prestigioso Foro que por demás son verdaderos expertos. Un abrazo a todos los miembros y en especial a usted y cuídese mucho y a su familia. Pino
  8. Hola Foristas. Hola JSD. Ya resolví también el problema de borrar las Pre-Nóminas y dejarlas listas para el próximo mes. Este es el código. También creo que se puede mejorar, pero voy resolviendo... Sub LimpiarNominas() Dim Nombre As String Nombre = "Bases de Datos" If MsgBox("Recuerde hacer un Backup. Seguro Desea borrar las " & Nombre & " " & Chr(13), vbQuestion + vbYesNo, "COLOSSUS") = vbYes Then Hoja16.Range("A5:V80").ClearContents Hoja17.Range("A5:V80").ClearContents Hoja18.Range("A5:V80").ClearContents Hoja18.Range("A5:V80").ClearContents Hoja20.Range("A5:V80").ClearContents Hoja21.Range("A5:V80").ClearContents MsgBox "Las Nominas fueron Vaciadas con Total Éxito." Exit Sub End End If End Sub Gracias una vez más. Saludos Pino
  9. Ahora tengo que buscar la manera de Borrar los datos de esas 6 Hojas cuando haya concluido el proceso para que quede listo para el próximo mes. Recuerda que yo hago un Backup (en cualquier momento del mes o semana). Si puedes ayudame con eso, de todas maneras yo voy pensando por acá. Con la Grabadora de Macro lo puedo hacer, pero quiero buscar otra manera. Gracias por su ayuda. Saludos Pino
  10. Buenas Tardes JSD, claro que se puede mostrar y también creo posible mejorarlo. Siempre estoy abierto a sugerencias, sobre todo de expertos como ustedes. Este es el código. Sub ExtraerSalario() Dim uFilaNomina As Long Dim uFilaSalario As Long Dim Codigo As String Dim Nombre As String Dim Identidad As String Dim Categoria As String Dim Departamento As String Dim Tipo As String Dim Ocupacion As String Dim Sexo As String Dim SalarioB As Double Dim Tiempo As Long Dim Horas As Long Dim F As Integer Dim D As Integer Dim N As Integer Dim A As Integer Dim SalarioR As Double Dim X As Integer Dim Noct As Double Dim Bon As Double Dim SobreC As Double Dim Pagado As Double Dim Fecha As Date Dim Cont As Long uFilaNomina = Sheets("Nomina").Range("A" & Rows.Count).End(xlUp).Row For Cont = 5 To uFilaNomina Codigo = Sheets("Nomina").Cells(Cont, 1) Nombre = Sheets("Nomina").Cells(Cont, 2) Identidad = Sheets("Nomina").Cells(Cont, 3) Categoria = Sheets("Nomina").Cells(Cont, 4) Departamento = Sheets("Nomina").Cells(Cont, 5) Ocupacion = Sheets("Nomina").Cells(Cont, 6) Tipo = Sheets("Nomina").Cells(Cont, 7) Sexo = Sheets("Nomina").Cells(Cont, 😎 SalarioB = Sheets("Nomina").Cells(Cont, 9) Tiempo = Sheets("Nomina").Cells(Cont, 10) Horas = Sheets("Nomina").Cells(Cont, 11) F = Sheets("Nomina").Cells(Cont, 12) D = Sheets("Nomina").Cells(Cont, 13) N = Sheets("Nomina").Cells(Cont, 14) A = Sheets("Nomina").Cells(Cont, 15) SalarioR = Sheets("Nomina").Cells(Cont, 16) X = Sheets("Nomina").Cells(Cont, 17) Noct = Sheets("Nomina").Cells(Cont, 18) Bon = Sheets("Nomina").Cells(Cont, 19) SobreC = Sheets("Nomina").Cells(Cont, 20) Pagado = Sheets("Nomina").Cells(Cont, 21) Fecha = Sheets("Nomina").Cells(Cont, 22) If Tipo = "Salario" Then uFilaSalario = Sheets("Salario").Range("A" & Rows.Count).End(xlUp).Row Sheets("Salario").Cells(uFilaSalario + 1, 1) = Codigo Sheets("Salario").Cells(uFilaSalario + 1, 2) = Nombre Sheets("Salario").Cells(uFilaSalario + 1, 3) = Identidad Sheets("Salario").Cells(uFilaSalario + 1, 4) = Categoria Sheets("Salario").Cells(uFilaSalario + 1, 5) = Departamento Sheets("Salario").Cells(uFilaSalario + 1, 6) = Ocupacion Sheets("Salario").Cells(uFilaSalario + 1, 7) = Tipo Sheets("Salario").Cells(uFilaSalario + 1, 😎 = Sexo Sheets("Salario").Cells(uFilaSalario + 1, 9) = SalarioB Sheets("Salario").Cells(uFilaSalario + 1, 10) = Tiempo Sheets("Salario").Cells(uFilaSalario + 1, 11) = Horas Sheets("Salario").Cells(uFilaSalario + 1, 12) = F Sheets("Salario").Cells(uFilaSalario + 1, 13) = D Sheets("Salario").Cells(uFilaSalario + 1, 14) = N Sheets("Salario").Cells(uFilaSalario + 1, 15) = A Sheets("Salario").Cells(uFilaSalario + 1, 16) = SalarioR Sheets("Salario").Cells(uFilaSalario + 1, 17) = X Sheets("Salario").Cells(uFilaSalario + 1, 18) = Noct Sheets("Salario").Cells(uFilaSalario + 1, 19) = Bon Sheets("Salario").Cells(uFilaSalario + 1, 20) = SobreC Sheets("Salario").Cells(uFilaSalario + 1, 21) = Pagado Sheets("Salario").Cells(uFilaSalario + 1, 22) = Fecha End If Next Cont MsgBox "Depuración de Salario realizada con Éxito", vbInformation, "COLOSSUS" End Sub Un saludo hermano para ti y los demás foristas. Los respeto mucho y los estimo. Pino
  11. Buenos días Foristas. Buenos días JSD. Ya encontré como resolver el problema para ejecutar un código y transferir los datos de toda la Fila a otra hoja según el Tipo de Prenomina. Por el Momento doy el tema por RESUELTO y les agradezco su interés. Gracias una vez más. Saludos Pino
  12. Buenas noches Foristas. Buenas noches JSD. Desde un principio en este Foro he comentado que no pretendo que me hagan las cosas, no soy un "arreguindado" (por decir algo), aunque es otra manera de aprender, porque cuando ustedes me dan una solución la repaso y estudio el código y en lo adelante ya no tengo que volver con esa duda, pero si escribí es porque no tengo ni idea de como hacerlo. Creeme que cuando escribo al Foro es porque ya he agotado todos mis pocos conocimientos. No me avergüenza decir que NO SÉ ALGO... porque estaría por una parte atrasando mis enseñanzas y por otra engañándome a mi y es algo que no debo permitirme, al menos NO a estas alturas de mi vida. Mediante el Formulario Consulta puedo lograr saber y filtrar cualquiera de los datos, incluyendo Tipo de PreNomina, pero no es eso exactamente lo que quiero. Necesito que cada una de las Hojas con los nombre de los Tipos de Prenóminas se vayan llenando automáticamente a medida que se van insertando. Mi esposa debe ir introduciendo los datos y por lo general primero es la Prenóminas de Salario, después irá y a través del evento Dobleclick y Modificará a los trabajadores que tengan otro tipo de Prenóminas (Dejado de Pagar por algún tipo de error, Feriado si es que el mes en cuestión lo tiene, Sobre Cumplimiento si algún trabajador lo amerita y así sucesivamente) y la primer Prenóminas de Salario que se hizo, ya no va a existir, no al menos como se concibió originalmente. Pensé hacerlo también a través de la Grabadora de Macros, pero me quedan un par de "Lagunas" que no sé cómo "nadarlas". Lo otro es aplicar Filtros Avanzados (en Excel, no VBA), pero me gustaría hacerlo todo desde VBA. Eso es lo que tengo, no hay más... Gracias a todos, es especial a JSD por su interés. Tengan una excelente semana. Pino
  13. Buenos días Foristas. Buenos días JSD. Realmente no entiendo bien su sugerencia, pero usted es el experto y siempre me ha ayudado con resultados excelentes. Si usted entiende que eso es lo mejor ADELANTE! Espero por su propuesta que siempre es bien recibida porque algo se aprende de todos ustedes... siempre se aprende. Un saludo. Pino
  14. Hola Foristas. Espero se encuentren bien de salud. De nuevo por acá. Esta vez necesito me ayuden con algo. Tengo este Proyecto que estoy desarrollando para mi esposa sobre las Pre-Nóminas pero necesito algo: En el FrmPreNomina ella hace los cargos de cada trabajador según el tiempo trabajado y los salario que devenga, pero tiene varios Tipos de Pre-Nóminas (Salario, Dejado de Pagar, Feriado, Estimulación, Objeto de Obra y Sobre Cumplimiento) que se detallan en el CmbPrenomina, pero en un mismo mes, un trabajador puede tener varias prenóminas, por ejemplo: El trabajador : 8045 Luis Carlos Avila Pupo 66062804844 O Contratos Carrocero Chapista A Salario 4210.00 8045 Luis Carlos Avila Pupo 66062804844 O Contratos Carrocero Chapista A Feriado 120.00 8045 Luis Carlos Avila Pupo 66062804844 O Contratos Carrocero Chapista A Dejado de Pagar 500.00 8045 Luis Carlos Avila Pupo 66062804844 O Contratos Carrocero Chapista A Estimulación 1250.00 No encuentro solución a como hacer, que según el Tipo de Pre-Nómina me las separe. Yo creé en mi Libros una Hoja para cada una de estas Pre-Nóminas, pero no se como hacer para que según se vayan insertando o modificando los trabajadores en el FrmPreNomina y se le vaya definiendo el Tipo de Pre-Nómina todos los datos de este trabajador hagan una copia en la Hoja predetermina (OJO una Copia porque debo conservar la Hoja Nomina con todos los datos de todos los trabajadores) para la Pre-Nómina. O sea, si se declara que es Salario, haga una copia de toda la Fila en la Hoja Salario, si es Feriado, haga una copia, igualmente de toda la Fila en la Hoja Feriado y así sucesivamente. En estas hojas creadas no se va a hacer ningún tipo de Alta, Baja, Modificación u otra cosa, solamente es para imprimirlas y guardarlas como constancias para posibles revisiones o auditorías. Creo haberme explicado bien...de todas maneras si algo no entienden por favor me escriben. Gracias a todos y que tengan una excelente noche. Los aprecia y respeta. JIPM PD Usuario: Pino Password: 123 Pre Nómina Foro .xlsm
  15. Buenas noches Frank. Excelente. Algo así era lo que necesitaba. Gracias a todos los Miembros de este Foro. Gracias especial a ti. Bendiciones para usted y su familia. JIPM
  16. Buenos días Frank. Me gusta su propuesta, pero está teniendo un pequeño problema. Cuando doy dobleclick en alguno de los registros(Cuadros, Técnico, Administrativos...) y hago una modificación, se Modifica perfectamente el registro, pero borra el resto... Crees que puedas ayudarme con esto? Gracias mil. Bendiciones a usted y el resto de los miembros del Foro. Pinoji
  17. Hola colegas. Buenas Tardes. Espero se encuentren bien de salud. Hoy tengo un pequeño problema y voy a necesitar de su desinteresada y muy oportuna ayuda. tengo una Hoja (Hopa15 Plantilla) con la Plantilla de Cargo de mi Empresa, y necesito llevar esto a un Formulario para poder Integrarlo a otro Sistema (en VBA) que diseñé, pero no encuentro la manera. Voy a Explicarme: La Hoja15 es el Modelo de Plantilla que se lleva en mi Empresa y necesito: Primero: Que se muestre en el ListBox (LstPlantilla) Segundo: A través del Evento DobleClick del propio ListBox llamar a los TextBox cada uno de los registros. No pretendo Agregar, Insertar o Dar Alta a ningún registro, sólo cuando los llame a través de este Evento a los TextBox, hacer las Modificaciones necesarias en los casos que correspondan. O sea, si llamo a Cuadros poder Modificar los valores de cualquiera de las Columnas de esta Fila según sea el caso. Yo comencé a hacerlo, pero me di cuenta que realmente no se como. Gracias mil de antemano y que tengan un excelente resto del día. Saludos cordiales. JIPM Adjuntos Plantilla de Cargo.xlsm
  18. Buenas noches a todos los Foristas. Hola JSD, eso está PERFECTO, de hecho es más de lo que tenía pensado. Verdaderamente ustedes saben y yo trato de aprender cada día. Qué más puedo decir? Gracias mil por todo este trabajo. Otra cosa, descuide, que si yo acudo a ustedes es porque he agotado los pocos conocimientos que tengo. Realmente sólo requiero de un ligero "empujón", un ejemplo de la duda que tengo para yo continuar con el trabajo, porque de esa manera aprendo, fijándome en el código, analizándolo y después lo desarrollo a mis necesidades. No tengo palabras para agradecerle el gesto y el trabajo realizado. Estoy en deuda con usted y porqué no, con otros miembros de este Maravilloso FORO. Doy por cerrado el tema. Un abrazo a todos y en especial a usted JSD por su paciencia y dedicación para conmigo. Nunca lo olvidaré, por eso dije en una ocasión que lo consideraba Mi Amigo, aun cuando ni siquiera nos conocemos, pero es que su comportamiento, su manera de enfocar los temas, su actitud siempre positiva y su altruismo tienen consecuencia y esa consecuencia es decirle AMIGO. Salud y bendiciones Un abrazo. Pino
  19. Buenas Noches Foristas. Espero se encuentren bien de salud. JSD, el ultimo archivo que me envió funciona correctamente. Ya lo probé y no da ningún error. Gracias por lo que respecta a esa parte. Muy curioso eso que tanto usted como Antoni debaten. Son los "Laberintos" del Excel y VBA... De cualquier manera gracias a los dos. Con ustedes siempre se aprende... Ofrezco disculpas por mi demora en responder. Creo que lo expliqué al comienzo. Yo no tengo ordenador, me auxilio de un amigo que sí tiene y me da un poco de su tiempo (y dinero porque esto de la Internet acá gasta) para que yo pueda superarme. Es un Gran Altruista al igual que ustedes y siempre les tendré que agradecer. Nos queda pendiente JSD el tema de la Búsqueda (si es que tiene tiempo y puede ayudarme). Por lo demás todo Bien. Un saludo. Pino
  20. Buenos días Foristas. Hola JSD, interesante eso, pero... Qué podemos hacer entonces? Un abrazo. Pino.
  21. Hola JSD, Buenas Noches. Office 2016. JSD, que pena, te he enredado con todo esto de mi Formulario. Realmente no pensé que fuera tan difícil o que diera tantos "problemas". Si tienes cosas más importante que hacer, no tenga pena que yo sabré entenderlo. Un cordial abrazo. Pino
  22. Buenas tardes Antoni. Me alegro que estés bien de salud. Nunca había oído hablar de de formularios corrupto, pero apenas estoy comenzando con esto de VBA. Me gustaría saber si es realmente eso, para tomar las decisiones correspondientes. Gracias Antoni. Un abrazo. Pino
  23. Buenos días JSD y los demás foristas. Es el mismo archivo que usted me compartió y claro que no he modificado nada. No seria nada serio de mi parte hacerle modificación a un trabajo que usted con elegancia, sabiduría y altruismo hizo. Le comenté que yo lo había mirado por unos minutos, pero no había trabajado sobre él, sólo cuando fui, ya con más tiempo, a insertar un nuevo empleado me da ese problema y veo que el TextBox también está mal, como el tema de los OptionButton del Sexo. También veo que en la parte inferior del formulario (FrmBDPersonal) hay un OptionButton1 que no sé a que hace referencia. No hay para nada ningún problema con estas cosas, sólo le comento para que usted que es el que está trabajando en este archivo lo conozca. Ni tengo apuro, ni cuestiono su trabajo , conocimiento y capacidad. Estoy convencido, sin duda alguna de sus ENORMES CONOCIMIENTOS y de la ayuda que me ha prestado hasta ahora, además, lo respeto demasiado como para atreverme a decir o hacer algo negativo en su contra. Le adjunto el mismo archivo que usted me envió la ultima vez. Un Brazo afectuoso. Pino. Mi Negocio Foro.xlsm
  24. Buenas noches JSD. hoy traté de insertar un nuevo trabajador y cuando doy al botón Agregar me salta esto: y me reinicia el Excel, además, el TextBox que le comentaba (TxtTarifaD) me sigue mostrando el mismo resultado que cuando le plantee el problema. No se si esto tendrá que ver con mi Configuración Regional. Para cuando usted pueda lo revise. Un saludo cordial. Pino
  25. Gracias mil hermano. Mira que yo Jodo... pero en cada consulta que hago aprendo. Un abrazo.
×
×
  • Create New...

Important Information

Privacy Policy