Jump to content

SALAVERRINO

Members
  • Posts

    321
  • Joined

  • Last visited

About SALAVERRINO

  • Birthday 09/22/1966

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

SALAVERRINO's Achievements

  1. Buenos días @torquemadala formula quedo bien con los nuevos argumentos que haz considerado ya que en la formula no se tenia considerada y ahí el error, pero ahora se me presento un ERROR: *cuando la base tiene a 1 trabajador que laborado 2 veces (es decir 1 día) pero me muestra el valor de cero (0) cuando en si debería ser (1) *cuando la base tiene a 1 trabajador que laborado 4 veces (es decir 2 días) pero me muestra el valor de uno (1) cuando en si debería ser (2), pero cuando se adiciona otro trabajador la formula muestra el valor verdadero, en resumen el error es dado cuando tiene 1 solo trabajador con 2 días laborados, adjunto archivos FORMULA PARA CONTAR DIAS TRABAJADOS.tor por FORMULA PARA CONTAR DIAS TRABAJADOS.tor ERROR 01 FORMULA PARA CONTAR DIAS TRABAJADOS.tor ERROR 02 FORMULA PARA CONTAR DIAS TRABAJADOS.tor ERROR 03 pero si todos datos de los archivos se encuentran en una sola pestaña SORT como archivo único la formula trabajo bien. Saludos y espero comentarios. FORMULA PARA CONTAR DIAS TRABAJADOS.tor ERROR 03.xlsm
  2. Buenas tardes integrantes de este prestigioso foro, en esta ocasión recurro a uds para que me brinde su apoyo con la formula que vengo trabajando =SI(G8="";"";SUMA(--(FRECUENCIA((C$8:C$2507=G8)*D$8:D$2507;(C$8:C$2507=G8)*D$8:D$2507)>0))-1) el cual me esta mostrando error de valor cuando agrupo el valor fecha de la celda D8 hasta D2507, que proviene de la pestaña SORT que se ubica en la celda B2, y teniendo 2 alternativas para evitar el error de valor que serían: *REEMPLAZAR EL PARÁMETRO $2507 POR $792 "=SI(G8="";"";SUMA(--(FRECUENCIA((C$8:C$2507=G8)*D$8:D$2507;(C$8:C$2507=G8)*D$8:D$2507)>0))-1)" ubicada en la celda K8, o *ELIMINAR LAS FILAS EN BLANCO DESDE LA A793 HASTA LA A2507 quedando los valores obtenidos en la celda J8 Desde ya agradezco su atención, para lo cual adjunto archivo. FORMULA PARA CONTAR DIAS TRABAJADOS.xlsm
  3. Gracias por el aporte @Mauricio_ODNy daría por TEMA SOLUCIONADO.😀
  4. Gracias @Mauricio_ODNpor el aporte quedo bien y era lo que estaba requeriendo.
  5. Hola @Mauricio_ODN, me podrias enviar los archivos a mi email, jlcarpio_davila@hotmail.com Gracias.
  6. Buenas tardes a los integrantes de este prestigioso foro, en ocasión recurro a Uds, para que brinden su apoyo con la siguiente macro, a la cual quiero que en la barra de estado cuente la cantidad registros que se encuentran en la pestaña PLANILLA que empieza en la celda AZ8 hasta la AZ2507 y por cada archivo que van generando en PDF indique 1 de 19, 2 de 19, .... hasta llegar a 19 de 19, desde ya agradezco su apoyo y colaboración. Sub ElegirAccion() Dim i As Integer Dim intInicial As Integer Dim intFinal As Integer Dim intConsecutivo As Integer Dim srtTitulo As String Dim Ruta As String Dim nombre As String Dim pass As String, hoja As String Application.DisplayAlerts = False Application.ScreenUpdating = False Sheets("BOLETA PDF").Activate hoja = "BOLETA PDF" nombre = ThisWorkbook.Sheets("PLANILLA").Range("BC8").Value srtTitulo = "PRUEBITA" intConsecutivo = ThisWorkbook.Sheets("BOLETA PDF").Range("CONSECUTIVO").Value intInicial = Sheets("PLANILLA").Range("AZ8") intFinal = Sheets("BOLETA PDF").Range("M3") If intFinal < intInicial Or intFinal > intConsecutivo Then MsgBox "Valida el ID final.", vbExclamation, srtTitulo Else Sheets("BOLETA PDF").Select Ruta = ActiveWorkbook.Path & "\BOLETAS" For i = intInicial To intFinal ThisWorkbook.Sheets("BOLETA PDF").Range("L4").Value = i ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & "\" & Sheets("BOLETA PDF").Range("B6") & ".pdf", _ Quality:=xlQualityMinimum, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next i End If MsgBox "Boletas Generadas...... ", , "AVISO" Sheets("MENU").Activate Range("B8").Select intInicial = Sheets("PLANILLA").Range("AZ8") Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub anexo archivo. CONSOLIDADO BUNA ARROW PTO MATARANI 1-7-2021 19-4-51 HRS.xlsm
  7. Buenas tardes a los integrantes de este prestigioso foro, en esta ocasión recurro a uds, para que me brinden su apoyo en que estoy haciendo mal, respecto a que cuando quiero eliminar una determina fecha (al seleccionar en la lista desplegable ENERO) y en el campo Feriado 1 o Feriado 2 y asigno el valor cero (0) automáticamente es acepto el valor ingresado pero cuando vuelvo al userform y nuevamente selecciono ENERO dicho campo (Feriado 1 o Feriado 2) devuelve el valor en formato hora, por lo que este campo debería quedar en cero (0) o en blanco, y que cuando vuelvo a digitar la nueva fecha debería aparecer en formato fecha, para lo adjunto archivo. Desde ya agradezco su atención. SISTEMA DE CALCULOS PLANILLAJE MATARANI - copia O - copia.xlsm
  8. Buenos días @GabrielRaigosa, agradezco el aporte y solución a mi problema planteado, el cual qedo bien, por lo quedaría como TEMA SOLUCIONADO.
  9. Buenas tardes a los integrantes de esté prestigioso foro, y en esta oportunidad recurro a uds, para que me brinde su apoyo con alguna formula o macro, el cual me permite extraer lo siguiente: APELLIDOS Y NOMBRES: ABANTO BRAVO CARLOS ALFREDO del primera apellidos ABANTO: la primera y cuarta letra AN del segundo apellidos BRAVO: la primera y cuarta letra BV del primer nombre CARLOS ALBERTO: la primera letra C para lo cual anexo archivo y desde ya agradezco su apoyo. Saludos. BASES.xlsm
  10. Buenas noches @Antoni, daría cómo Tema Solucionado, gracias.
  11. Gracias @Antonipor el aporte, el cual se pudo solucionar de acuerdo a lo indicado, por lo que daría cómo Tema Solucionado
  12. Gracias @Haploxpor el aporte, por lo que daría cómo Tena Solucionado.
  13. Buenos días a los integrantes de este prestigioso foro, en esta ocasión recurro a uds, para que me brinde su apoyo con una formula para determinar el cálculo de la PRIMA SEGURO (celda M10), actualmente vengo realizando mi cálculo en forma errónea al usar como criterio el numero 65 (representa 65 años cumplidos), según detalle: 1. SI ES MAYOR O IGUAL A 65 AÑOS NO DEBE CALCULARLE PRIMA SEGURO 2. SI ES MENOR O IGUAL A 65 AÑOS DEBE CALCULARLE PRIMA SEGURO APLICAR CÁLCULO A PRIMA SEGURO, A LAS ENTIDADES INTEGRA, PROFUTURO, PRIMA Y HABITAT Y CON LAS COMISIONES FLUJO Y MIXTA y menciono aplicando mal formula, porque el trabajador que se encuentra resaltado cumpliría los 65 años el 25 de Noviembre del presente año, y creo que ahí debería cambiar el criterio 1. SI ES MAYOR O IGUAL A 65 AÑOS NO DEBE CALCULARLE PRIMA SEGURO y considerar la celda G10 (fecha de nacimiento), que interprete que si el trabajador aun no cumple los 65 años debe aplicar el descuento de la PRIMA SEGURO, como si dicho trabajador estuviera en el criterio 2. SI ES MENOR O IGUAL A 65 AÑOS DEBE CALCULARLE PRIMA SEGURO. NOTA: En resumen si el trabajador tiene menos 65 años aplica descuento PRIMA SEGURO y si el trabajador que estaría por cumplir los 65 años en el mes vigente igualmente debería aplicar la PRIMA SEGURO, pero usando como criterio la celda G10 y ya no los criterios que se viene usando actualmente, para lo cual adjunto archivo. Desde ya agradezco su apoyo y espero haber explicando lo que se pretende usar. FORMULA EDAD.xlsx
  14. Buenos dias @Haplox, para comentarte que buscando ejemplos en los foros y algunas recomendaciones y sugerencias como la vuesta, puede realizar que la macro se ejecute, donde adjunto codigo de la macro y archivo, dentro del codigo se adiciono 2 variables, que esta comentada y la parte donde comentas realice un desagreado: '------------ COMPROBAMOS Y MOVEMOS ARCHIVOS-------------------------------- If fich Like "*MN PIA*" Then 'Comparamos el nombre con "MN PIA" Name fich As sRuta & sSeparadorRuta & sNombreCarpeta & "\" & fich 'Si coincide lo movemos a la carpeta creada End If DESAGREGADO: If fich Like "*MN PIA*" Then 'Comparamos el nombre con "MN PIA" SArchivo_a_mover = sRuta & "\" & fich sArchivo = sRuta & "\" & sNombreCarpeta & "\" & fich Name SArchivo_a_mover As sArchivo End If Option Explicit Sub Crear_Carpeta_Y_Guardar() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim sRuta As String, sNombreCarpeta As String, ruta As String, fich As String Dim sSeparadorRuta As String Dim nom, nomb2 As String '***************************************** '***************************************** ' SE ADICIONO ESTAS 2 VARIABLES Dim sArchivo As String Dim SArchivo_a_mover As String '***************************************** '***************************************** nomb2 = Sheets("INGRESO").Cells(4, "AD") nom = Sheets("INGRESO").Cells(3, "AD") sSeparadorRuta = Application.PathSeparator sRuta = Application.ActiveWorkbook.Path sNombreCarpeta = "MN " & nom & " " & nomb2 If dir(sRuta & sSeparadorRuta & sNombreCarpeta, vbDirectory) = Empty Then MkDir (sRuta & sSeparadorRuta & sNombreCarpeta) End If '------------ COMPROBAMOS Y MOVEMOS ARCHIVOS-------------------------------- fich = dir(ThisWorkbook.Path & "\*.xls*", vbArchive) 'TODO TIPO DE ARCHIVO EXCEL Do While fich <> "" 'Recorremos todos los archivos de la Carpeta If fich Like "*MN PIA*" Then 'Comparamos el nombre con "MN PIA" '****************************************************************************** '****************************************************************************** ' SE HIZO UN DESAGREGADO SArchivo_a_mover = sRuta & "\" & fich sArchivo = sRuta & "\" & sNombreCarpeta & "\" & fich Name SArchivo_a_mover As sArchivo '****************************************************************************** '****************************************************************************** End If fich = dir() 'Ponemos a 0 el nombre del archivo para leer el siguiente Loop '------------ COMPROBAMOS Y MOVEMOS ARCHIVOS-------------------------------- Application.ActiveWorkbook.SaveCopyAs Filename:=sRuta & sNombreCarpeta MsgBox "SE HIZO TRANSLADO DE ARCHIVOS" Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub y con esas adiciones la macro comenzo a mover los archivos que tiene la frase "MN PIA" y que concuerde con la carpeta, pero se presento un detalle cuando ingreso a la pestaña INGRESO en la celda AD3 cambio el nombre de la MN y en AC4 la fecha de hoy, crea la nueva carpeta que para mi idea esta bien, y ya tengo los nuevos 4 archivos generados con la frase MN DESPERTAR, pero realizar una simulacion que los archivos se movieron a la carpeta, cuando realmente no hizo nada porque dentro de la macro aun esta determinada la frase MN PIA y eso no es lo ideal, ahora mi pregunta es, si se podria modicar la macro para que ahora que cuando se crea una nueva carpeta y coindicida con los archivos con la frase MN ...., se muevan automaticamente, sin necesidad de estar ingresando a la macro y modificar la palabra. Saludos. INGRESO DE JORNADA ILO.xlsm
  15. Buenas tardes @Haploxy en lugar de usar el método mover, se realiza una copia de los archivos, dará el mismo efecto de mencionar archivo no encontrado, buscando por foros del Internet encontré este código y casi similar al realizado por tu persona Sub MoverArchivos() Dim MiArchivo As String MiArchivo = dir("C:\Users\usuario\Documents\*.txt") If MiArchivo = "" Then MsgBox "No hay archivos a mover.", vbExclamation, "EXCELeINFO" Else Do Until MiArchivo = "" Name "C:\Users\usuario\Documents\" & MiArchivo As "C:\Users\usuario\Documents\carpetanueva\" & MiArchivo MiArchivo = dir Loop End If End Sub y como mencionas debe ser por la ubicación de la ruta, a pesar de que todos los archivos están en la misma ubicación (directorio) y al ejecutar el archivo INGRESO DE JORNADA ILO dentro de su userform crear la carpeta MN PIA SETIEMBRE DEL 2020 y ahí se cae el proceso. Saludos.
×
×
  • Create New...

Important Information

Privacy Policy