Jump to content

SALAVERRINO

Members
  • Content Count

    315
  • Joined

  • Last visited

Posts posted by SALAVERRINO

  1. 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

  2. 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

  3. 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

  4. 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

  5. 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.

  6. 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

  7. 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"

    imagen1.png

    imagen2.png

  8. Hace 3 horas, Haplox dijo:

    No me queda claro mada sobre tu duda:

    • La macro la debes ejecutar dede algún archivo excel ¿Cuál?
    • ¿Lo que quieres es mover de?

    "D:\PLANILLAJE PTO ILO\AÑO 2020\PLANILLAJE"

    a

    "D:\PLANILLAJE PTO ILO\AÑO 2020\PLANILLAJE\MN PIA SETIEMBRE DEL 2020"

    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.

  9. 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.

  10. 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.

    image.png.b8aa8369ca48a49331811fbdbb2bfbe6.png

    image.thumb.png.51b3660dd685828b3ca6f5f3ea3de119.png

    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.

  11. 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