Jump to content

SALAVERRINO

Members
  • Content Count

    296
  • Joined

  • Last visited

Everything posted by SALAVERRINO

  1. Era exacto, lo que esta requeriendo, gracias a los miembros del foro que compartieron su conocimiento, por lo que daria por TEMA CERRADA. Gracias.
  2. Buenas noches a los miembros de este foro, y quisiera su ayuda para la funcion Fecha, en el archivo que adjunto tiene 2 hojas una con el nombre LLENADO y Hoja2, y estando en la Hoja2, quiero extraer la fecha que se encuentra en la hoja LLENADO de la celda A2 con la formula +LLENADO!A2, me muestra el formato sin ningun error, pero ahora cuando suprimo el valor de la celda A2 hoja LLENADO, le asigna el formato 00/01/1900 y quisiera saber si hay alguna formula para omitir el error, estoy usando el office 2013. Desde ya, agradezco su colaboracion y ayuda. ERROR FUNCION FECHA.xls
  3. Buenas tardes, tengo un pequeño problema con esta Macro, y esta macro me permite generar un archivo nuevo ARCHIVO DESTINO, pero no lo está generando como debe ser, porque tanto el ARCHIVO ORIGEN como ARCHIVO DESTINO se quedan con los mismos datos. Y lo que necesito es que los datos del ARCHIVO ORIGEN se copie todo al ARCHIVO DESTINO, pero en el ARCHIVO ORIGEN solamente borrarse desde la Columna B8 hasta la Columna AO5000 (resaltado) ya que el resto no resaltado contiene formulas. Nota: Al momento de generar la macro, pregunta si deseo "usar el archivo por default", porque lo que doy la opción NO, para que luego me permita colocar el nuevo nombre que uno quiere. Agradezco su apoyo y adjunto código de la macro, porque archivo sobrepasa capacidad requerida. Sub guardar() nombre = ActiveWorkbook.Name carpeta = ActiveWorkbook.Path filaa = carpeta & "\" & nombre nombrar = MsgBox("usar el archivo por default", vbYesNo, "AVISO") If nombrar = vbYes Then filab = carpeta & "\" & "plantilla electronica1" & ".xlsm" Else titulo = InputBox("¿Como se va a llamar el archivo?", "AVISO") filab = carpeta & "\" & titulo & ".xlsm" End If ActiveWorkbook.Save ActiveWorkbook.SaveAs Filename:=filab, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False xnombre = ActiveWorkbook.Name Workbooks.Open (filaa) Workbooks(xnombre).Close savechanges = True Sheets("planilla").Range(Cells(8, 1), Cells(lastRow, 50)).ClearContents End Sub ARCHIVO ORIGEN.rar
  4. Buenas noches amigo FernandoML, era lo que estaba necesitando. Gracias por tu ayuda. Por lo que daría con este TEMA POR CERRADO.
  5. Buenas noches, tengo un pequeño problema con esta Macro, tengo un archivo plantilla (archivo adjunto) y con esta macro GUARDAR COPIA el cual me permite generar otro archivo con un nombre distinto, pero no lo esta generando como debe ser, porque tanto el archivo plantilla como el nuevo archivo se queda con los mismos datos. Y lo que necesito es que los datos que contiene mi archivo plantilla que se encuentra resalto se borren al momento que ejecute la macro GUARDAR COPIA con el nuevo nombre de archivo. Nota: Al momento de generar la macro, pregunta si deseo "usar el archivo por default", porque lo que doy la opción NO, para que luego me permita colocar el nuevo nombre que uno quiere. Agradezco su apoyo. ARCHIVO DE GUARDAR COMO.rar
  6. Buenos día amigo FernandoML, el archivo esta OK. pero tu crees que podría acondicionarse que luego de la búsqueda del Trabajador (Columna C), permita borrar los datos de la Columna D, G y H. y que la columna C se quede en blanco a la espera de digitar otro nombre. Gracias.
  7. Buenas noches: Recurro nuevamente para su ayuda con esta macro, el cual consiste en la buscar el DOCUMENTO (Columna D) y muestre los datos de la Columna G (ENTIDAD) y Columna U (TIPO DE COMISION2) Desde ya agradezco su colaboración. E. BASES DE DATOS EJEMPLO.rar
  8. Buenas noches Tengo un problema con una macro para extraer datos de paginas web, desde ya agradezco nuevamente a los miembros del foro por su ayuda en la solución. Gracias Comisiones-Y-Primas-De-Seguro-Por-Afp-Desde-Excel.rar
  9. Buenas noches [uSER=46507]@Macro Antonio[/uSER],, solo quería hacer menciona una observación mas, que omite por apuro era que si al aporte que brindas se podía poner la opción de eliminar el CODTRA duplicado con la pregunta ELIMINAR Si / No. Gracia.
  10. Era lo que estaba necesitando Marco Antonio, Gracias. POR LO QUE DARÍA TEMA CERRADO.
  11. Buenas tardes, nuevamente solicitando su apoyo con este archivo el cual adjunto, quisiera una macro que permita detectar el CODTRA al momento de digitar uno nuevo, con un mensaje que diga CODIGO REPETIDO con un color y que MUESTRE en que columna esta. Gracias de ya, por su apoyo. BASES DE DATOS.rar
  12. Excelente rutina amigo elunico22, y ahora esta como debe ser. por lo que daría como TEMA SOLUCIONADO. Gracias.
  13. Buenos dias amigo elunico22, adjunto archivo solicitado, y he resaldo de color y ahi cuando elimino la fila se descompagina la formula. Gracias BASES DE DATOS1.rar
  14. Buenos dias señores del staff Ayuda Excel, quisiera saber si alguien tiene una Macro que permita borrar filas, pero conservando las formulas que estan ubicadas en columnas. Gracias.
  15. Disculpe por no haber tenido en cuenta la politica del Foro.
  16. Buenos dias en cuanto al tema que necesito de su ayuda es que quizás no me especifique bien el nombre del Tema, lo que necesito es una macro que me me permita conservar lo de color amarillo y lo que no esta resaltado es borrarlo. gracias
  17. Comparto esta rutina de como Guardar un archivo en PDF, en cualquier ruta de acceso. Sub GuardarPDF() Dim a As String Dim fileName As String Dim respuesta As Variant respuesta = MsgBox("¿Esta seguro de continuar?", vbYesNo, "Título del Cuadro diálogo") If respuesta = vbYes Then a = ActiveWorkbook.Path & "\" & Trim(InputBox("Ingresa el nombre para el *.PDF" & vbCr & "SIN extension PDF")) If a = "" Then Exit Sub On Error Resume Next fileName = a & " " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " " & Hour(Time) & "-" & Minute(Time) & "-" & Second(Time) g = " " & fileName & ".pdf" Selection.ExportAsFixedFormat Type:=xlTypePDF, _ fileName:=fileName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, _ From:=1, To:=1, OpenAfterPublish:=True Range("A1").Select MsgBox g, vbCritical, "El archivo PDF fue generado en: " Else Exit Sub End If End Sub Y gracias a los miembros de este foro, que me apoyaron a lograr esta macro, por lo que concluirá con dar el TEMA SOLUCIONADO.
  18. Excelente rutina y aporte amigo JoaoM.
  19. Buenos noches amigo [uSER=20517]@shahuinto[/uSER], al igual que los ejemplos anteriores están OK, solo un detalle simple cuando se va a generar el archivo pdf, muestra el mensaje: respuesta = MsgBox("¿Esta seguro de continuar?", vbYesNo, "Título del Cuadro diálogo") acá si esta bien porque se pregunta "si" o "no" para continuar, pero si por error presionar si muestra la siguiente pregunta: a = InputBox("Escriba el Disco donde se guardara el archivo", "Disco Duro") y gusto en esta parte nos pregunta ACEPTAR o CANCELAR, ahora bien si presiono la opción CANCELAR, debería cancelar todo proceso, pero a pesar de ellos siempre se genera el archivo pdf y creo que en ese caso no debería. gracias por tu respuesta.
  20. Como estas amigo shahuinto, ahora si esta el trabajo excelente, solo un pequeño detalle y quizás sea muy observador pero porque cuando se exporta o copia la información de los archivos GRUPO AA, GRUPO BB y GRUPO CC, al archivo destino no empieza en la CELDA B8 y siempre esta en CELDA B2. Gracias
  21. Amigo Shahuinto el aporte esta excelente, pero se me olvido un detalle en indicarte que es la opción CANCELAR. en caso que no quisiera imprimir, porque a pesar que le doy cancelar igual se genera el archivo pdf, gracias por el aporte y ayuda.
  22. Buenas noches amigo Shahuinto, el archivo está perfecto y era lo que necesitaba, ahora quiero hacer que la misma rutina que haz desarrollado ya no empiece en la celda A2 sino en la celda B8 siendo su rango de datos B8:AO17 y cuyo resultado se aprecia en el archivo adjunto con el nombre de la hoja resultado. He tratado de cambiar la programación donde figura la celda A2, A2:A11 por B8, B8:AO17 y cuando se ejecuta me sale error. Es por lo molesto nuevamente tu atencion. Gracias. PRUEBA2.RAR
  23. Hola amigo Shahuinto, olvide adjuntar el archivo para lo cual lo subo y la información que requiero es que los archivos GRUPO A, GRUPO B Y GRUPO C vallan al archivo DESTINO, en forma consecutiva. Gracias COPIAR O EXTRAER EN MACRO.rar
  24. SI. ESTA UN POCO MEJOR EL ARCHIVO AMIGO SHAHUINTO, PERO TU CREES QUE SE PUEDE MODIFICAR LA RUTINA Y SE GRABE EN RUTA DISTINTA POR DECIR: D:\PLANILLAS\07 JULIO\PRIMERA SEMANA\ DONDE LA UNIDAD "D:\" VARIABLE Y PUEDE SER D:\ - E:\ - F:\ y etc. Y \PLANILLAS\07 JULIO\PRIMERA SEMANA\ RUTA FIJA Y POR ULTIMA EL NOMBRE DEL ARCHIVO "Archivo.pdf" DEBE DE GRABARSE EN LA RUTA FIJA. GRACIAS POR TU APOYO AMIGO.
  25. BUENAS NOCHES. DISCULPEN UDS. NUEVAMENTE EN UNA INQUIETUD, LO QUE DESE REALIZAR EN UNA MACRO EN LO QUE SE ENCUENTRA RESALTADO DE COLOR AMARILLO NO DEBE SER BORRADO (BLOQUEAR) Y EL RESTO QUE ME PERMITA BORRAR. ADJUNTO ARCHIVO Y GRACIAS POR SU COLABORACION. SORT TRAB EJEMPLO.rar
×
×
  • Create New...

Important Information

Privacy Policy