Jump to content

SALAVERRINO

Members
  • Content Count

    296
  • Joined

  • Last visited

Everything posted by SALAVERRINO

  1. Buenas tardes a los miembros de esta foro, en esta ocasión quisiera solicitar su ayuda para con la formula SIFECHA o que otro tipo de formula debo usar para obtener el dia exacto entre 2 fechas, como lo detallo a continuación: FECHA INICIO FECHA TERMINO DÍAS FORMULA UTILIZADA 22/05/2017 25/05/2017 3 =SIFECHA(A2,B2, "md") Donde el resultado real debería ser 4 días y no 3 como indica en formula. A la espera de su respuesta quedo de Uds. por su colaboración.
  2. Buenas noches amigo Macro Antonio, la macro quedo OK, agradezco tú apoyo, por lo que daria como TEMA SOLUCIONADO.
  3. Así es amigo Macro Antonio, y siempre conservando la planitlla. Gracias.
  4. Buenos días Macro Antonio, es cierto como indicas que los archivos .xlsx no pueden contener código VBA, pero básicamente mi pregunta es, el código que describo en una plantilla general que uso para llenar datos y lo que deseo si se pudiera es que al grabar (con otro nombre) ejemplo planilla00 tenga la extensión *.xlsx, y siempre manteniendo mi planitlla. adjunto archivo particionado. Agradezco la ayuda brindada. ESTRUCTURA PLANILLAS.part1.rar ESTRUCTURA PLANILLAS.part2.rar ESTRUCTURA PLANILLAS.part3.rar ESTRUCTURA PLANILLAS.part4.rar
  5. Buenas días a los miembros de este foro, en esta ocasión quisiera pedir su ayuda en como mejorar la macro, es decir que al grabar el nuevo archivo se grabe con la extensión .xlsx, pero conservando la plantilla en VBA, para lo cual adjunto código, y desde ya agradezco su ayuda. Sub guardar24072015() NOMBRE = ActiveWorkbook.Name CARPETAA = ActiveWorkbook.Path filaa = CARPETAA & "\" & NOMBRE nombrar = MsgBox("usar el archivo por default", vbYesNo + vbDefaultButton2, "AVISO") If nombrar = vbYes Then filab = CARPETAA & "\" & "plantilla electronica1" Else titulo = InputBox("¿Como se va a llamar el archivo?", "AVISO") If titulo = "" Then Exit Sub Else filab = CARPETAA & "\" & UCase(titulo) & ".xlsm" End If End If ActiveWorkbook.Save ActiveWorkbook.SaveAs fileName:=filab, FileFormat:=xlOpenXMLWorkbookMacroEnabled xnombre = ActiveWorkbook.Name Workbooks.Open (filaa) Sheets("LLENADO").Range("B7:G16").ClearContents Sheets("LLENADO").Range("K7:P16").ClearContents Sheets("LLENADO").Range("B21:G30").ClearContents Sheets("LLENADO").Range("K21:P30").ClearContents Sheets("LLENADO").Range("B35:G44").ClearContents Sheets("LLENADO").Range("K35:P44").ClearContents Sheets("LLENADO").Range("B49:G58").ClearContents Sheets("LLENADO").Range("K49:P58").ClearContents Sheets("LLENADO").Range("B63:G72").ClearContents Sheets("LLENADO").Range("K63:P72").ClearContents Sheets("LLENADO").Range("I7:I16").ClearContents Sheets("LLENADO").Range("R7:R16").ClearContents Sheets("LLENADO").Range("I21:I30").ClearContents Sheets("LLENADO").Range("R21:R30").ClearContents Sheets("LLENADO").Range("I35:I44").ClearContents Sheets("LLENADO").Range("R35:R44").ClearContents Sheets("LLENADO").Range("I49:I58").ClearContents Sheets("LLENADO").Range("R49:R58").ClearContents Sheets("LLENADO").Range("I63:I72").ClearContents Sheets("LLENADO").Range("R63:R72").ClearContents Workbooks("ESTRUCTURA PLANILLAS.xlsm").Save Sheets("LLENADO").Select Range("B7").Select Workbooks(xnombre).Close savechanges = True Sheets("LLENADO").Range(Cells(7, 1), Cells(lastRow, 50)).ClearContents End Sub
  6. Buenos días Dr Hyde, el archivo adjuntado esta OK y copie la rutina a mi archivo donde deseo trabajar, pero solo quedo un pequeño detalle por culminar, la dirección que menciona en msg box, como dijo esta OK, pero porque no se mantiene en esa misma dirección, para así poder trabajar con los archivos que se encuentran en esa carpeta (dirección). Agradezco tu paciencia y ayuda Dr Hyde.
  7. Buenas noches Dr Hyde, agregue la instrucción que me enviaste, pero no tuvo cambio alguno, respecto a la dirección de la carpeta donde se esta trabajando.
  8. Buenos días a los miembros de este prestigioso foro, en esta ocasión quisiera pedir su apoyo en como mejorar la macro, en cuanto a la dirección donde se ejecuta dicha macro, cuando presiono el botón de formulario Union Plla 601, por defecto me lleva a una carpeta diferente a la cual estoy trabajando ejemplo: > Este equipo > Documentos, y quisiera que cuando ejecuta la rutina del botón de formulario Union Plla 601, me muestre los datos en la carpeta que estoy trabajando. Sub abrir() Application.ScreenUpdating = False file = Application.GetOpenFilename If file = False Then Exit Sub Else Workbooks.OpenText Filename:=file End If a = ActiveWorkbook.Name UserForm1.Show Range("B8:AO17").Copy 'Range("B8:AO" & Range("B" & Rows. Count).End(xlup). Row). Copy 'permite copiar consolidados globales. Windows("PLANTILLA ELECTRONICA.xlsm").Activate n = Range("b8").Value If n <> Empty Then Range("b8").End(xlDown).Offset(1, 0).Select Else Range("b8").Select End If Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Range("B3").Select Range("B1").Select Windows(a).Activate Application.CutCopyMode = False ActiveWindow.Close savechanges:=False Application.ScreenUpdating = True Copiando End Sub Agradezco desde ya su gentil ayuda y colaboración.
  9. Buenas tardes a los miembros de este prestigioso foro, en esta oportunidad requiero de su ayuda con respecto a la siguiente formula, para lo cual adjunto archivo. En la celda B3 se tiene una remuneración bruta de 161.97 y en la D3 el resultado de 14.58, en este caso debería tener el valor de 76.50, ya que el valor de la celda B3 esta sobre bajo de la RMV en la celda J3, ahora bien si valor de RMV es igual a 850.00 también deberá consignar los 76.50 y si el valor es mayor a la RMV deberá consignar el valor que se obtenga como es el caso de la celda B4. Desde ya agradezco su valiosa ayuda. AYUDA CON FORMULA DE APORTACION.xlsx
  10. Amigo johnmpl, las disculpas de caso, no me había percatado de la macro BORRA2, la cual le habías hecho ya modificaciones, con la instrucción: On Error Resume Next Range("A1").CurrentRegion.Offset(1).SpecialCells(xlCellTypeConstants).ClearContents On Error GoTo 0 Bueno, luego de añadirme un golpesito en la cabeza, ya daría este TEMA SOLUCIONADO. Gracias.
  11. Claro que si amigo johnmpl, las macro que me haz enviado esta OK, ahí no hay problema y como indicas no borra ninguna formula, por ese lado no tengo inconveniente, como te comentaba, solo tengo ese problema que al BORRAR DATOS, no pueda mantener las formulas, como las que si están resaltadas de color plomo. Bueno espero que con vuestra ayuda pueda mejorar esa macro de BORRAR DATOS, caso contrario daría como TEMA SOLUCIONADO. Gracias.
  12. Amigo johnmpl, haber quizás no me explique muy bien, si te das cuenta en las columnas B2, C2 y G2, como detallo a continuación podrás ver que hay formulas. Columna B2: SI.ERROR(BUSCARV(A2;'D:\AGENCIAS MARITIMAS\COSMOS\AÑO 2017\SENANA 12 DEL 25 AL 27 DE MARZO\[BASES DE DATOS.xlsm]Hoja1'!$B$2:$U$4514;9;FALSO);"") Columna C2: SI.ERROR(SI(A2="";"";BUSCARV(A2;'D:\AGENCIAS MARITIMAS\COSMOS\AÑO 2017\SENANA 12 DEL 25 AL 27 DE MARZO\[BASES DE DATOS.xlsm]Hoja1'!$B$2:$U$4514;2;FALSO));" --- NO EXISTE TRABAJADOR --- ") Columna G2: SI.ERROR(BUSCARV(F2;TABLAS!$A$2:$B$4;2;FALSO);"") Ahora si estas columnas le quitas el color PLOMO que estas resaltadas dichas columnas, al presionar el botón BORRAR DATOS, te darás cuentas que estas formulas son borradas. Espero comentario amigo.
  13. Hola amigo johnmpl, como indicas en tu mensaje, no borra los datos seleccionados con la macro que haz adaptados, pero en la macro que tengo BORRAR DATOS, ahí si tengo que tenerlo resaltado para evitar que me borre los datos de la columna B, C y G, salvo amigo, que me puedas ayudar en mejor esa macro que tengo. Espero comentario si podrías adaptarlo.
  14. Hola amigo johnmpl, la macro quedo excelente, y era lo que necesitaba para dicha búsqueda, en cuanto a color que se aprecia, es porque tengo una macro que borra los datos a excepción de los que están pintado de color, porque son fijos (hay formulas) y no deben ser borrados, salvo que hubiera otra manera, que con una macro se elimine los datos que realmente se requiere y dejar las columnas que sean fijos (no borrados).
  15. Buenas tardes a los miembros de este prestigioso foro, en esta oportunidad solicito tu ayuda para complementar esta macro que al presionar el Botón “Busca Código”, ingreso el 3022 a buscar, que será desde la columna A2 hasta A5000, y donde se ubique el código buscado resalte la columna E, donde esta resalto el código buscado en la columna A, para así poder realizar los cambios que se requiera (y si no fuese mucho pedir completar la macro con un auto-filtro, porque estos datos suelen a llegar a mas 1000 trabajadores. Y por último luego de realizar los cambios en las dichas columnas, se presionará el botón “LIMPIA SELECCIÓN”, deberá borrar el color resaltado del código buscado, tanto de la columna A como la E (y si la macro tuviera el auto-filtro también deberá ser borrado y volver a su estado normal). Adjunto archivo con su macro. Desde ya agradezco su gentil colaboración. SORT 2017.rar
  16. Hola amigo johnmpl, excelente el aporte brindado con la función buscarv,en lugar de usar la función Si y Y, ya que era un poco tediosa. Gracias johnmpl. Por lo que daria como TEMA SOLUCIONADO.
  17. Buenas noches a miembros de este foro, quisiera solicitar su ayuda en cuanto a Función SI y Función Y, lo cual la estoy aplicando en el adjunto archivo y como podrán visualizar en la celda de color azul columna M3, me emite el siguiente error. Desde ya agradezco su gentil ayuda. EJEMPLO DE CALCULO FLUJO Y MIXTA 2017.xlsx
  18. A los amigos ioyama y johnmpl, se soluciono el problema que tenia con dicho formula. por lo quedaría este TEMA COMO SOLUCIONADO. Gracias y bendiciones.
  19. Buenas noches a los miembros de este foro, en esta ocasión recurro a uds, si me podrían ayudar a la solución de esta formula, donde se requiere obtener el resultado que se muestra en la Columna O6, (3.85) y para obtener este resultado deberá obtener en 1 paso, es decir que para obtener el valor de 3.85 debería ser: SUMA(E6:K6) todo por el 10%, luego de obtener el resultado desde la fila E6 hasta K6 (este nuevo resultado) deberá ser sumado nuevamente la fila E6 hasta K6 y nuevamente multiplicado por 3.30% Para mejor detalle adjunto el archivo, y desde ya agradezco su apoyo. AYUDA CON FORMULA.xlsx
  20. Buenas días a los miembros de este foro, en esta oportunidad quisiera me ayuden en como mejorar la formula para lo cual adjunto el archivo, y bueno ahora explico un poco lo que se pretende: * Como podrán apreciar en el Ejemplo 1, en la columna U resaltada de color crema, se encuentra formula que mediante la Función Si, pregunta que si la Fila A6 es igual "F", calcula el doble a los valores de las celdas D6 - E6 - G6 - H6 - I6 - J6 - M6. * Ahora lo se requiere en el Ejemplo 2, es hacer lo mismo, pero ya no usar la formula =SI.ERROR(SI(A6="F";SUMA(D6:E6)+SUMA(G6:J6)+M6;0);0); sino que lo hago mediante los valores que de las Columnas B y C fila 18. Que si B18 es igual a la fecha del sistema y que si C18 es igual a las horas que son fijas 23.00/07.00, realice el feriado y así hasta las fila B20 y si en fila B21 es igual la fecha del sistema pero la fila C21 es igual a la hora 23.00/07.00, ya no realice el calculo de feriado, como se aprecia en el Ejemplo 1, Columna U resalta de color crema. En el mismo archivo en la hoja FERIADOS, estas las fechas que son considerados a pagar doble. Si se podria siempre preguntar con las Función Si, seria excelente y sino cualquier formula a uar seria excelente. Desde ya agradezco nuevamente su gentil ayuda. calculo de feriado.xlsx
  21. Agradezco, de antemanos a todos los integrantes que me brindaron su ayuda a la solución, de mi tema expuesto, por lo que daría, como TEMA SOLUCIONADO. Gracias.
  22. Buenas tardes a los miembros de este foro, en esta ocasión recurro nuevamente a sus experiencias obtenidas, para el siguiente tema y espero que me puedan ayudar: En el archivo adjunto, pretendo obtener el resultado que se inicia en la columna "F" y valla sumando los valores de las columna "G", de acuerdo a las condiciones de la fila C20 y C23, en caso de no encontrarse la letra muestra el campo en blanco. E intentado con la Funcion SI y SUMA, pero solo obtengo un resultado mas no los otros. Desde ya agradezco nuevamente su gentil apoyo. BUSQUEDA CON FUNCION.xlsx
  23. Buenos días amigo Gerson Pineda, agradeciendo por el aporte brindado, la cual era lo que realmente necesitaba, por lo que daría, como TEMA SOLUCIONADO.
  24. Buenas tardes a los miembros de este prestigioso foro, en esta oportunidad recurro a sus conocimiento y saber si es posible con la Función BUSCARV, realice la búsqueda de códigos que esta detallada en el archivo SORT TRAB.xlsx y esta se extraida del archivo BASE DE DATOS.xlsx (hoja1 y hoja2), Desde ya agradezco su apoyo y colaboración. BASE DE DATOS.xlsx SORT TRAB.xlsx
  25. Amigo Gabriel Raigosa, la formula quedo bien, por lo que daría como tema SOLUCIONADO. Gracias.
×
×
  • Create New...

Important Information

Privacy Policy