SALAVERRINO
-
Content Count
315 -
Joined
-
Last visited
Content Type
Profiles
Forums
Downloads
Posts posted by SALAVERRINO
-
-
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.
-
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.
-
Buenas noches @Antoni, daría cómo Tema Solucionado, gracias.
-
Gracias @Antonipor el aporte, el cual se pudo solucionar de acuerdo a lo indicado, por lo que daría cómo Tema Solucionado
-
Gracias @Haploxpor el aporte, por lo que daría cómo Tena Solucionado.
-
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.
-
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 IfDESAGREGADO:
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 IfOption 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 Suby 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.
-
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 Suby 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.
-
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
-
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.xlsxSaludos.
-
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.txtCONSOLIDADO 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"
-
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.
-
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.xlsxy 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.
-
Buenas tarde @Antoni adjunto link actualizado sin solicitar permiso.
https://drive.google.com/file/d/1xzz46-ulCbnyyjKGbZAdkxiI4bAzeAjt/view?usp=sharing
saludos.
-
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 SubMacro 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 Subhttps://drive.google.com/file/d/1xzz46-ulCbnyyjKGbZAdkxiI4bAzeAjt/view?usp=sharing
Saludos.
-
En 15/8/2020 at 8:34 , SALAVERRINO dijo:
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.
Por lo que daría como TEMA SOLUCIONADO.
-
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.
-
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 SubDesde 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
Error al modificar campo fecha y asigna valor hora dentro de un Userform
in Macros y programación VBA
Posted
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