Jump to content

SALAVERRINO

Members
  • Posts

    321
  • Joined

  • Last visited

Everything posted by SALAVERRINO

  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.
  16. Buenas tardes @Haplox de acuerdo a lo indicado, estoy copiando los archivos en la siguiente dirección: G:\Nueva carpeta\34 PIA - MODIFICACION PLANILLAJE y al ejecutar el archivo con el nombre Copia de INGRESO DE JORNADA ILO.xlsm emite los siguientes errores, para lo cual adjunto imagen. Pero revisando los archivos cada uno tiene el nombre correcto. Saludos
  17. Buenos dias @Haploxadjunto archivo que me permite crear las carpetas antes mencionadas y mediante otra macro que adicionare a este mismo archivo permita copiar o mover los 5 archivosdetallos a la carpeta MN PIA SETIEMBRE DEL 2020 y que estos archivos se relacione con la palabra MN PIA. AFPNET PTO ILO MN PIA 10-10-2020 20-10-17 HRS.txt CONSOLIDADO CONTAB. 01 GENERAL MN PIA 10-10-20_20-10-30 HRS.xlsx CONSOLIDADO PTO ILO MN PIA 10-10-2020 20-10-30 HRS.xlsm DATA DE JORNADAS_BACKUP MN PIA 10-10-2020 19-9-29 HRS.xlsx PLLA MN PIA PTO ILO MN SETIEMBRE DEL 2020 10-10-20_20-10-31 HRS.xlsx Saludos. INGRESO DE JORNADA ILO.xlsm
  18. Buenos días @Haplox, lo que requiero es una macro el cual me permita copiar o mover 5 archivos a una carpeta especifica (el cual será siempre variable) y que es creada mediante una macro y que paso a describir: *La carpeta de trabajo siempre es: D:\AGENCIAS MARITIMAS\PTO ILO\POGRAMA VIGENTE AÑO 2020 (fija) *Dentro de toda esta dirección tengo otras carpetas que son variables, ejemplo 01 BBC ONTARIO, 02 ASIA PEARL, etc, etc y lo que quisiera ahora es trabajarlo como una carpeta fija con el nombre PLANILLAJE que se sumaría a la dirección anterior y que quedaría así: D:\AGENCIAS MARITIMAS\PTO ILO\POGRAMA VIGENTE AÑO 2020\PLANILLAJE\ (acá estarán todos los archivos que suelo trabajar como se aprecia en la: IMAGEN1. Al ejecutarse el archivo INGRESO DE JORNADA ILO mediante una macro crea 2 carpetas: BOLETAS y MN PIA SETIEMBRE DEL 2020, quedando así la nueva dirección: D:\AGENCIAS MARITIMAS\PTO ILO\POGRAMA VIGENTE AÑO 2020\PLANILLAJE\ IMAGEN2. posteriormente se ejecuta el archivo SISTEMA DE CALCULOS PLANILLAJE ILO mediante otra macro nos crea los siguientes archivos: AFPNET PTO ILO MN PIA 10-10-2020 20-10-17 HRS.txt CONSOLIDADO CONTAB. 01 GENERAL MN PIA 10-10-20_20-10-30 HRS.xlsx CONSOLIDADO PTO ILO MN PIA 10-10-2020 20-10-30 HRS.xlsm DATA DE JORNADAS_BACKUP MN PIA 10-10-2020 19-9-29 HRS.xlsx PLLA MN PIA PTO ILO MN SETIEMBRE DEL 2020 10-10-20_20-10-31 HRS.xlsx y he aquí el meollo del asunto, que básicamente lo que pretendo es que mediante una macro (nuevo módulo) que se anexara al archivo SISTEMA DE CALCULOS PLANILLAJE ILO permita copiar o mover a la carpeta MN PIA SETIEMBRE DEL 2020 los 5 archivos que contengan la palabra MN PIA y que coincida con la carpeta creada, espero que me puedas ayudar. Vuestra cita: Entonces no es tan sencillo como planteabas al principio. Es más, puede llegar a se un jaleo 🥺. Porque en los ficheros que has puesto, todos parecen ser de Octubre, y quieres moverlos a una carpeta de Septiembre. "lo que basicamente y es importante es que copie o mueva el archivo o archivos en base a la palabra MN PIA dependientemente de cualquier fecha que se aprecie y coincida con el nombre de la carpeta creada MN PIA SETIEMBRE DEL 2020"
  19. Buenos dias @Haploxefectivamente los archivos mencionado se deben copiar o mover a la carpeta "D:\PLANILLAJE PTO ILO\AÑO 2020\PLANILLAJE\MN PIA SETIEMBRE DEL 2020", tambien me olvide de comentar que la direccion "D:\PLANILLAJE PTO ILO\AÑO 2020\PLANILLAJE\" sera fija y la carpeta "MN PIA SETIEMBRE DEL 2020" sera variable dependiendo el nombre de la MN XXX mes XXX DEL 2020 asimismo los archivos mencionados y como indicas la macro se debe ejecutar dentro de un archivo excel, el cual lo insertare como nuevo modulo. Espero haber sido un poco mas especifico del requerimiento que indicado.
  20. Buenas noches a los integrantes de este prestigioso foro, en esta ocasion recurro a Uds, para que brinde su ayuda con una macro, el cual me permita copiar o mover los archivos con un nombre particular MN PIA, el cual detallo a continuacion. *La informacion (archivos) se encuentra en una carpeta especifica (en este caso esta en la unidad "D:\PLANILLAJE PTO ILO\AÑO 2020\PLANILLAJE" AFPNET PTO ILO MN PIA 10-10-2020 20-10-17 HRS.txt CONSOLIDADO CONTAB. 01 GENERAL MN PIA 10-10-20_20-10-30 HRS.xlsx CONSOLIDADO PTO ILO MN PIA 10-10-2020 20-10-30 HRS.xlsm DATA DE JORNADAS_BACKUP MN PIA 10-10-2020 19-9-29 HRS.xlsx PLLA MN PIA PTO ILO MN SETIEMBRE DEL 2020 10-10-20_20-10-31 HRS.xlsx y dentro de ella existe otra carpeta que fue creada mendiante una macro con el nombre MN PIA SETIEMBRE DEL 2020 y lo que requiero es copiar o mover los archivos que contengan la frase MN PIA a la carpeta mencionada. Adjunto link de los archivos mencionados: https://drive.google.com/file/d/1-uVn_SIzuoUbAHfGbjYQBJTb4XVTWtPR/view?usp=sharing Desde ya agradezco su apoyo.
  21. Buenas tarde @Antoni adjunto link actualizado sin solicitar permiso. https://drive.google.com/file/d/1xzz46-ulCbnyyjKGbZAdkxiI4bAzeAjt/view?usp=sharing saludos.
  22. Buenos días a los integrantes del foro, en esta ocasión recurro a uds, para que me brinden su apoyo con la siguiente macro, el cual me esta emitiendo un error en la segunda macro con el titulo Macro que permite grabar hoja en un nuevo libro, y es que al momento de guardar los datos de la hoja REPORTE a la hoja PRE_REPORTE y cuyo dato de la hoja REPORTE celda C3 no convierte como #¡VALOR! tras presionar SI, para lo cual anexo archivo y desde ya agradezco su atención y apoyo. Macro que copiar de una hoja a otra hoja: Sub CopiarReporte() Application.ScreenUpdating = False Set h1 = Sheets("REPORTE") Set h2 = Sheets("PRE_REPORTE") h2.Cells.Clear h1.Cells.Copy h2.Range("A1").PasteSpecial Paste:=xlPasteValues h2.Range("A1").PasteSpecial Paste:=xlPasteFormats Range("A1").Select Application.ScreenUpdating = True End Sub Macro que permite grabar hoja en un nuevo libro: Sub copiar_reportes() Dim nom$, fech$, hor$, fich$, nomb2$ Application.ScreenUpdating = False nomb2 = Sheets("REPORTE").Cells(1, "a") nom = Sheets("REPORTE").Cells(1, "b") fech = Format(Date, "dd-mm-yy") hor = Format(Time, "hh-mm-ss") fich = ThisWorkbook.Path & "\" & "02 FILTRO DE REPORTES " & nom & " PTO SALAVERRY " & nomb2 & " " & fech & "_" & hor & " HRS" & ".xlsx" Sheets("PRE_REPORTE").Copy ActiveWorkbook.SaveAs (fich) ActiveWorkbook.Close Range("A1").Select Application.ScreenUpdating = True End Sub https://drive.google.com/file/d/1xzz46-ulCbnyyjKGbZAdkxiI4bAzeAjt/view?usp=sharing Saludos.
  23. Buenos días @Haplox agradezco el apoyo brindado en cuanto a la instrucción que brindas, el cual se soluciona la visualización del resultado que esta requiriendo para este formulario. Excelente aporte y que sigan los éxitos amigo. Saludos.
  24. Buenas tardes a los integrantes de este foro, en esta ocasión recurro a Uds, para que me brinden su ayuda en como se puede mostrar el resultado de la pestaña PLANILLA los valores que están en la celdas I3 y J3, para lo cual describo su procedimiento: *Al presionar el botón MENU nos envía al formulario Cálculos de las Jornadas (Userform9) y tras presionar realiza los cálculos que contiene la pestaña PLANILLA y genera los resultados que se encuentran en la celda I3 y J3 y hasta el momento he podido lograr que el resultado se muestre digitando el valor cero (0) en cada TextBox para visualizar el resultado o saliendo del formulario y volviendo a ejecutarlo para obtener la visualización del resultado (Userform9) y lo que quisiera es que dichos valores se muestren automáticamente tras terminar el procedimiento y mostrar el mensaje SE ACTUALIZO CÁLCULOS en los TextBox1 y TextBox2 o presionar doble click. '************************************************************************************* '************************************************************************************* 'AQUI SE DISPLAYA LOS TEXTBOX PARA QUE MUESTE EL RESULTADO DE LA PESTAÑA PLANILLA Private Sub TextBox1_Change() On Error Resume Next Application.ScreenUpdating = False UserForm9.TextBox1.Text = Format(Sheets("PLANILLA").Range("I3").Value, "#,###,###0.00") Application.ScreenUpdating = True End Sub Private Sub TextBox2_Change() On Error Resume Next Application.ScreenUpdating = False UserForm9.TextBox2.Text = Format(Sheets("PLANILLA").Range("J3").Value, "#,###,###0.00") Application.ScreenUpdating = True End Sub Private Sub TextBox1_2() Application.ScreenUpdating = False TextBox1.Text = "" TextBox2.Text = "" DoEvents Application.ScreenUpdating = True End Sub Private Sub UserForm_Initialize() UserForm9.TextBox1.Text = Format(Sheets("PLANILLA").Range("I3").Value, "#,###,###0.00") UserForm9.TextBox2.Text = Format(Sheets("PLANILLA").Range("J3").Value, "#,###,###0.00") End Sub Desde ya agradezco la atención que le brinde, adjunto link: https://drive.google.com/file/d/1JRo1j0XdamuKZb8TTUJP5T6r5OLT5fq-/view?usp=sharing NOTA: El archivo para ejecutar es SISTEMA DE CALCULOS PLANILLAJE ILO.xlsm
×
×
  • Create New...

Important Information

Privacy Policy