Jump to content

SALAVERRINO

Members
  • Content Count

    296
  • Joined

  • Last visited

Everything posted by SALAVERRINO

  1. Disculpa amigo @avalencia, me olvide de adjuntar los archivos en el link: https://drive.google.com/file/d/1CkED_yjgte9lulguNbDLPqxdcuKvkRKf/view?usp=sharing https://drive.google.com/file/d/1lh0ypvOzmqtp4cJOk1i182jKZZADIbLn/view?usp=sharing
  2. Buenos días amigo @avalencia, de acuerdo a la observación sobre la ubicación de la hoja, realice el cambio respectivo con la sentencia With Sheets("AFPNET"). Pero al momento de ejecutar la macro, me emite 2 errores, para lo cual adjunto archivos con los nombres; * EJECUCION ERRONEA.RAR (en esta imagen, se aprecia que cuando ejecuto la macro desde esta hoja PLANILLA, genera el archivo texto AFPNET con ciertas lineas o espacios de mas, es decir mas de 20, sombreado) * EJECUCION OK.RAR (en esta imagen, es que cuando me ubico en la misma hoja AFPNET y ejecuto la macro seleccionando la rutina EXPORTAR_TXT_ANCHOFIJO genera el archivo texto AFPNET como valida, es decir que debe quedar en la ultima fila 20) Desde ya agradezco nuevamente su apoyo y colaboración. Saludos.
  3. Buenas noches a los miembros de este foro, en esta ocasión recurro a uds, para que me brinde su apoyo en mejorar o crear una macro, el cual permita convertir los datos de la hoja excel a txt, con ancho fijo: COLUMNA A: 5 ESPACIOS COLUMNA B: 12 ESPACIOS COLUMNA C: 1 ESPACIO COLUMNA D: 20 ESPACIOS COLUMNA E: 20 ESPACIOS COLUMNA F: 20 ESPACIOS COLUMNA G: 20 ESPACIOS COLUMNA H: 1 ESPACIO COLUMNA I: 1 ESPACIO COLUMNA J: 1 ESPACIO COLUMNA K: 1 ESPACIO COLUMNA L: 9 ESPACIOS COLUMNA M: 9 ESPACIOS COLUMNA N: 9 ESPACIOS COLUMNA O: 9 ESPACIOS COLUMNA P: 1 ESPACIOS COLUMNA Q: 2 ESPACIOS: Adjunto código de la macro ejecutado a la fecha: genera filas en blanco. DENTRO DEL MODULO ANCHO_FIJO: Sub EXPORTAR_TXT_ANCHOFIJO() Dim i As Double Archivo_txt = ThisWorkbook.Path & "\" & "AFPNET.txt" Open Archivo_txt For Output As #1 With Sheets(10) fin = Application.CountA(Range("A:A")) For i = 2 To fin Campo1 = C_Der(.Cells(i, 1), 5) Campo2 = C_Der(.Cells(i, 2), 12) Campo3 = C_Der(.Cells(i, 3), 1) Campo4 = C_Der(.Cells(i, 4), 20) Campo5 = C_Der(.Cells(i, 5), 20) Campo6 = C_Der(.Cells(i, 6), 20) Campo7 = C_Der(.Cells(i, 7), 20) Campo8 = C_Der(.Cells(i, 8), 1) Campo9 = C_Der(.Cells(i, 9), 1) Campo10 = C_Der(.Cells(i, 10), 1) Campo11 = C_Der(.Cells(i, 11), 1) Campo12 = C_Der(.Cells(i, 12), 9) Campo13 = C_Der(.Cells(i, 13), 9) Campo14 = C_Der(.Cells(i, 13), 9) Campo15 = C_Der(.Cells(i, 15), 9) Campo16 = C_Der(.Cells(i, 16), 1) Campo17 = C_Izq(.Cells(i, 17), 2) Print #1, Campo1 & Campo2 & Campo3 & Campo4 & Campo5 & Campo6 & Campo7 & Campo8 & Campo9 & Campo10 & Campo11 & Campo12 & Campo13 & Campo14 & Campo15 & Campo16 & Campo17 Next i Close End With End Sub Anexo archivo excel y archivo afpnet.txt (resultado) DENTRO DEL MODULO FUNCIONES: Function C_Izq(ByVal sCadena As String, ByVal nLargo As Integer, Optional sCaracter As Variant) As String 'Creamos cadena para rellenar por la izquierda con el caracter indicado Dim sValor As String If IsMissing(sCaracter) Then sCaracter = " " sCadena = Trim(sCadena) If Len(sCadena) > nLargo Then sCadena = Right(sCadena, nLargo) sValor = String(nLargo - Len(sCadena), sCaracter) & sCadena C_Izq = sValor End Function Function C_Der(ByVal sCadena As String, ByVal nLargo As Integer, Optional sCaracter As Variant) As String 'Creamos cadena para rellenar por la derecha con el caracter indicado Dim sValor As String If IsMissing(sCaracter) Then sCaracter = Space(1) sCadena = Trim(sCadena) If Len(sCadena) > nLargo Then sCadena = Left(sCadena, nLargo) sValor = sCadena & String(nLargo - Len(sCadena), sCaracter) C_Der = sValor End Function Desde ya agradezco su gentil apoyo y colaboración. Saludos. PLANTILLA-ELECTRONICA-x-ESPECIALIDAD-v3.xlsm AFPNET.txt
  4. Buenos días a los Srs @Leopoldo Blancas @Haplox @johnmpl y @Gerson Pineda, por sus grandes aportes y de los cuales todos son efectivos al momento de realizar la búsqueda solicitada.Por lo que con todos estos aportes, daría como TEMA SOLUCIONADO. Gracias y bendiciones.
  5. Buenas tardes amigo johnmpl, estoy pasando tu aporte al archivo donde realmente debe ir, pero al seguir la secuencia del Filtro Avanzado me emite un error, no se, si sería mucha molestia, en que el archivo completo para determinar donde esta mi error, o si me podrías pasar los procedimientos que realizaste, por mas que le doy vuelta no le hallo el truco. Gracias y espero tus comentarios.
  6. Buenos días los miembros de este foro, en esta ocasión recurro a uds para que me brinde su apoyo con alguna formula que permita extraer, buscarv o alguna otra función, de la hoja PLANILLA que se ubican en las columna AZ (posición 51), B (posición 1), E (posición 4), G (posición 6) desde la fila A8 a la A1005, hacía la hoja AFP (ejemplo en la fila B2). Desde ya agradezco su gentil apoyo y adjunto link. Saludos. https://drive.google.com/file/d/1IUy5hVc2KFZTx6DUvsdWmaF7c55p7ha_/view?usp=sharing
  7. Buenos días Antoni, la macro esta funcionando como se requería, agradezco el aporte.
  8. Buenos días Srs @Leopodo Blancas y @Antoni, agradezco por los aportes brindados en la solución a MACRO PARA ELIMINAR FILAS CON FORMULAS con código VBA (macro), la cual me esta ayudando mucho, por lo cual quedo de Uds y daría como tema solucionado. Saludos y bendiciones.
  9. Buenos días Haplox, comparto el enlace que me indicas, y la verdad es que muy poco se usar el compartir enlace por servidor, espero haber realizado bien el procedimiento, dejo el enlace. https://drive.google.com/file/d/1WO6si6hv9hTjr0nSvcmOrR8AWsls-_ju/view?usp=sharing
  10. Buenos noches a los miembros de este foro, en esta ocasión recurro a uds para que me brinde su apoyo con una macro que permita eliminar filas de la hoja PDT 602 desde la fila A8 hasta la BK1005, ya que la fila A1006 contiene la suma total por cada columna, como se aprecia en el archivo adjunto y lo que se requiere es que dicha macro permita eliminar desde la fila que no contenga valor como se ve en la fila A87 (esto podría ser variable en filas mas o menos de valores), todos estos datos son extraídos desde la hoja PDT 601 (hoja fuente), el archivo anexo lo subí en varias partes porque sobrepasa la capacidad que indica foro. Desde ya agradezco su gentil apoyo. Saludos. PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part01.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part02.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part03.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part04.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part05.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part06.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part07.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part08.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part09.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part10.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part11.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part12.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part13.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part14.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part15.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part16.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part17.rar
  11. Buenos días Srs Gerson Pineda y Mario Rodz, agradezco por los aportes brindados en la solución a Eliminar Datos Duplicados con código VBA (macro), la cual me esta ayudando mucho, por lo cual quedo de Uds y daría como tema solucionado. Saludos y bendiciones.
  12. Buenos días a los integrantes de este foro, en esta ocasión recurro a Uds, para solicitar su apoyo en cuanto a como Eliminar Datos Duplicados de una Base de Datos (aproximadamente 5000, la cual esta resumido) de las Columnas B y E, actualmente lo vengo trabajando para la eliminación de dichos datos con Filtro Avanzando la cual se realiza en 2 partes, primero la columna B y luego E y lo que, se necesita de alguna manera realizar mediante una macro y que dichos valores se ubique en la Columna J (como se aprecia en el archivo adjunto). Saludos y desde ya agradezco su apoyo. ELIMINAR DATOS DUPLICADOS.xlsx
  13. Buenas noches Srs Gerson Pineda y johmpl, por los aportes brindados, los cuales me están ayudando mucho en la filtración de la base de datos, por lo que desde ya agradezco su apoyo y colaboración, y daría como TEMA SOLUCIONADO.
  14. Buenos días a los integrantes del foro, en esta ocasión recurro a Uds, para que me brinde su apoyo mediante alguna formula ya sea contar o sumar en sus diferente argumentos de cada función, para obtener el valor solicitado dentro de un rango de datos, como se aprecia en la imagen y tomando como ejemplo lo describo en la celda I2 donde se puede ver que el trabajador Ramos Elera Jorge Luis trabajo 7 días, pero también se requiere que dentro esos 7 días laborados sume o cuente las fecha sin repetir la misma fecha, adjunto archivo, esperando que me halla sabido explicar con lo solicitado. Desde ya agradezco su apoyo y coloración. AYUDA CON FORMULA.xlsx
  15. Buenos días tierra_pampa, agradezco de antemano por la ayuda y colaboración con la macro, por lo que era el resultado requerido para dicha base de datos e impresión de boletas, por lo que nuevamente agradezco tu apoyo y daría por tema SOLUCIONADO.
  16. Buenos días a los integrante del foro, en esta ocasión recurro a uds, para que me brinde su apoyo y colaboración mediante una macro o formula, una impresión continua de una lista desplegable para una boleta de pago, a continuación detallo: En la Hoja PLANILLA, se encuentra la base de datos En la Hoja RESUMEN, mediante una lista desplegable en la celda C1, se lograr filtra los DNI como valores únicos En la Hoja BOLETA, mediante formulas se logra transponer los datos que deberán ser impreso por cada trabajar su remuneración de la lista desplegable. Lo que se prende es que el valor de la celda C1 (lista desplegable de la hoja resumen) vayan variando de 1 en 1, para que en la hoja boleta se imprima trabajador por trabajador hasta el ultimo registro (DNI) de esa lista desplegable, espero haberme explicado lo que pretendo obtener como resultado, para lo cual adjunto archivo zipeado. Gracias por su apoyo y colaboración. PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part01.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part02.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part03.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part04.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part05.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part06.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part07.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part08.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part09.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part10.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part11.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part12.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part13.rar PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part14.rar
  17. Buenas tardes amigo tierra_pampa, la macro brindada funciona como se requería, ya que al realizar la búsqueda los pinta de color rojo como check de verificación y posteriormente lo restablece a su color habitual. Gracias.
  18. Buenas tardes jorgeivan117, ahora ya esta funcionando la macro, al parecer estaba cometiendo un error al copiar el código, por lo que agradezco tú apoyo y colaboración, pero también quisiera solicitarte, si a la misma macro o crear una nueva macro, es decir luego de haber filtrado la búsqueda y que los halla pintado de color rojo como check de verificación, se restablezcan (poner las letras de color rojo a negro). Agradezco nuevamente tu apoyo y colaboración.
  19. Buenas noches jorgeivan117, al ejecutar el codigo brindo me emite el siguiente error, pantallazo. Gracias.
  20. Buenos días a los integrantes de este foro, esta ocasión recurro a Uds, para que me brinden su apoyo y colaboración a esta macro el cual me permite realizar la búsqueda y copiar la información solicitada, pero a la vez necesito que tras haber realizada la búsqueda en la hoja INGRESO (base de datos) los valla resaltando aquellos datos que fueron solicitados desde la hoja BUSQUEDA en cualquiera de sus opciones ya indicadas en la fila A6 hasta la U6. Adjunto Archivo e imagen. Agradezco desde ya su colaboración brindada. Sub FILTOR() Range("DATOS").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "FILTRO"), CopyToRange:=Range("RESULTADO"), Unique:=False ActiveWindow.ScrollColumn = 1 Range("A6:V6").Select Selection.ClearContents Range("A6").Select End Sub Saludos. SEMANA 07 DEL 17 AL 20 DE MARZO 2018.part01.rar SEMANA 07 DEL 17 AL 20 DE MARZO 2018.part02.rar SEMANA 07 DEL 17 AL 20 DE MARZO 2018.part03.rar SEMANA 07 DEL 17 AL 20 DE MARZO 2018.part04.rar SEMANA 07 DEL 17 AL 20 DE MARZO 2018.part05.rar SEMANA 07 DEL 17 AL 20 DE MARZO 2018.part06.rar SEMANA 07 DEL 17 AL 20 DE MARZO 2018.part07.rar
  21. Buenos días SIlvia, Tierra_Pampa y Toldman, agradezco de antemano por sus aportes en cuanto a la formula que necesitaba en la distribución y ubicación de los caracteres y extracción del ultimo dígito , la cual estan funcionando correctamente por lo que daría TEMA SOLUCIONADO.
  22. Buenas tardes Toldeman, adjunto archivo, gracias por tu y ayuda y colaboración. Saludos. FORMULA PARA EXTRAER ULTIMO DATO.xlsx
  23. Buenos días SIlvia, Tierra_Pampa y Toldman, agradezco de antemano por su aporte en cuanto a la formula que necesitaba en la distribución y ubicación de los caracteres, la cual esta funcionando correctamente y antes de dar por TEMA SOLUCIONADO, quisiera una ultima ayuda a esta formula. En una Celda determinada tengo lo siguiente CE1= con la formula EXTRAE(BB8;1;1) obtenga la letra C, luego la formula EXTRAE(BB8;2;1) la letra E y por ultimo EXTRAE(BB8;3;1) el numero 1 el cual es mi resultado final, pero cuando tengo en la celda T1, dicha formula no cumple su cometido y quise intentar aplicar con la misma función y macro, pero no obtengo el resultado. Agradezco nuevamente su colaboración y apoyo.
  24. Buenas tardes a los miembros de este foro, en esta oportunidad quisiera solicitar su colaboración y ayuda a esta formula en la cual permite extraer la especialidad de trabajo en función a 3 dígitos, pero cuando la especialidad viene con 2 dígitos ahí radica mi error, como se puede apreciar en el archivo adjunto resultado de color rojo, desde ya agradezco su colaboración y apoyo. Saludos. AYUDA CON FORMULA PARA ESPECIALIDAD.xlsx
  25. Hola Haplox, la macro quedo OK, por lo que agradezco tú colaboración y apoyo, por lo que daría esta tema como SOLUCIONADO. Gracias.
×
×
  • Create New...

Important Information

Privacy Policy