Jump to content

jmollan

Members
  • Content Count

    111
  • Joined

  • Last visited

About jmollan

  • Rank
    Advanced Member
  • Birthday 02/22/1980
  1. Buenas Noches Expertos. Tengo la macro adjunta para exportar de excel a txt, el único inconveniente con esta macro es que pide el rango de celdas que se desea exportar y lo que necesito es que la exportación a txt se realice directamente desde un rango que se encuentre escrito en la macro y que no pida confirmación alguna para la exportación, por favor su ayuda al respecto. Adjunto código. Sub Script() ' txt de la hoja activa, _ Dim MiRango As Range, Largo As Integer, FilaActual As Long On Error Resume Next Set MiRango = application.InputBox("Seleccione rango a exportar", Type:=8) On Error GoTo 0 If MiRango Is Nothing Then Exit Sub Open "C:\GuiXT\scripts\Almacen\" & ActiveSheet.Name & ".txt" For Output As #1 For Each Celda In MiRango If Largo <= Len(Celda) Then Largo = 1 + Len(Celda) Next Celda FilaActual = MiRango.Cells(1).Row For Each Celda In MiRango If FilaActual < Celda.Row Then FilaActual = Celda.Row: Print #1, "" End If Print #1, CStr(Celda); Space(Largo - Len(Celda)); Next Celda Close #1 Set MiRango = Nothing End Sub
  2. Estimados Expertos [uSER=133908]@bigpetroman[/uSER], [uSER=3]@Toldeman[/uSER] y [uSER=9328]@Gerson Pineda[/uSER] Disculpen por no contestar antes, estuve trabajando y recién me soltaron, ante todo estoy muy agradecido a todos por vuestra ayuda y tienen razón la tabla es un desorden, esta tabla proviene de una consulta sql, pero ya conseguí el archivo ordenado y mejor estructurado, lo adjunto por este medio, agradeceré vuestra ayuda y sugerencias al respecto. Ayuda Excel.zip
  3. Hola Bigpetroman, ahorita me encuentro en el trabajo, me podrías pasar la formula por favor.
  4. Estimado Bigpetroman gracias por responder, la solucion es correcta, lo malo sera transponer las 120 columnas de informacion que tengo, no hay otra alternativa para trabajar con la estructura original de mi archivo.
  5. Estimados. Por favor agradecere su ayuda en lo siguiente, tengo una tabla con ventas de articulos, necesito saber cuales son los articulos que tienen movimiento y si no tienen movimiento durante los ultimos 5 meses deberia agregarse el signo "X" al final de la tabla, por favor su apoyo al respecto. Subo el archivo Ayuda.zip
  6. Muchas gracias Riddle, doy el tema como solucionado.
  7. Estimados Expertos. Como podría hacer en una sola linea la siguiente macro de mi tabla dinámica, esta macro quita los subtotales de mi tabla dinamica, me gustaria que sea todo en una sola linea, agradecere vuestro apoyo. ActiveSheet.PivotTables("PivotTable3").PivotFields("num_parte_recep").Subtotals = Array( _ False, False, False, False, False, False, False, False, False, False, False, False) ActiveSheet.PivotTables("PivotTable3").PivotFields("num_oc").Subtotals = Array( _ False, False, False, False, False, False, False, False, False, False, False, False) ActiveSheet.PivotTables("PivotTable3").PivotFields("CL").Subtotals = Array( _ False, False, False, False, False, False, False, False, False, False, False, False) ActiveSheet.PivotTables("PivotTable3").PivotFields("num_requisicion").Subtotals = Array( _ False, False, False, False, False, False, False, False, False, False, False, False) Saludos.
  8. Digitalboy como siempre tus aportes son de gran utilidad para toda la comunidad del foro, estaré atento a tu aporte, suerte !!!
  9. Muchas gracias Rolano, el tema se encuentra solucionado.
  10. Estimado Rolano. Gracias por responder, he probado la macro con la fecha de la PC en el dia 3/10/14 y no se elimina, seria conveniente que el archivo se elimine si la fecha de apertura es mayor a la escrita en la macro, por favor tu apoyo al respecto.
  11. Hola Expertos. Por favor, si me pueden facilitar una macro que elimine el libro activo si la fecha es mayor o igual a una fecha escrita en la misma macro, por favor si me pueden ayudar con mi solicitud.
  12. Excelente Digitalboy, lo probé y funciona de maravilla, por favor comparte mas ejemplos.
  13. Estimado Bigpetroman. Ya probe de todas las formas posibles, pero sigue igual, voy a probar el archivo en otra pc.
  14. Estimado Bigpetroman. Sigue dando el mismo error, en la hoja PARAMETERS, debes cambiar el valor de la celda B15 a SELECT * FROM OPERATION, corres la macro y lanza el error que te menciono. Aparece el siguiente mensaje, "Error 1004 en tiempo de ejecucion" Error general de ODBC. Saludos.
  15. Estimado Bigpetroman. He realizado todos los cambios en ambas macros y solo funciona hasta la fila 65536, si cambias el rango a 70000 o 90000 se queda importando los datos, ayer también realice el cambio en "RefreshQueries" y "CreateQueries" y seguía igual, seria de ayuda si subieras el archivo modificado. Saludos.
×
×
  • Create New...

Important Information

Privacy Policy