Jump to content

jose lopez contreras

Members
  • Content Count

    134
  • Joined

  • Last visited

About jose lopez contreras

  • Rank
    Advanced Member

Converted

  • Campos Array

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Amigo te comento, desinstale totalmente office y lo instale nuevamente bajado de la pagina oficial lo active y actualice, pero no paso nada sigue todo igual. pregunta tu anexo funcionara en una pc con win 7, por que es lo único que tengo a la mano aparte de mi pc para poder hacer la prueba haber si se cierra automáticamente
  2. Seguí tus recomendaciones y no hay ninguna que diga FALTA:xxx o MISSING:xxx, anexo referencias marcadas. Espero comentario Rferencias marcadas
  3. Pues esta raro la verdad en esta maquina me han sucedido algunas cosas raras, la llevare a que le den una rameada como dicen acá en México, gracias
  4. Yo lo estoy probando en una maquina Con windows 10 pro x64 bits y office profesional plus 2016 x 32 bits y la verdad que no se cierra automáticamente, tu que estas utilizando amigo. intentare en otra maquina. Saludos
  5. Amigo deja te comento que tu anexo hace lo mismo que mi caso, es decir se oculta la ventana de excel y surge el userform, después de un minuto salta el MsgBox de aviso del cierre y llevo una hora esperando que se cierre y nada. Al pasar el puntero por la esquina inferior derecha salta MsgBox "Sigo trabajando" y se reinicia el conteo de 1 minuto y sigue igual a lo ya comentado. Anexo pantallasos. Saludos Pantallasos
  6. Pues como te comente después del tiempo de inactividad programada transcurrido y sin hacer cambios en ninguna celda, hoja o formulario, el proceso lanza el msg que se cerrara en cierto tiempo, pues hasta ahí llega y nunca se cierra. Espero me hayas entendido.
  7. Así es Hector, tiene mucho mas, pero realmente todo movimiento en sus formularios, formulas, códigos, módulos y controles al final terminan en el menú principal en el cual coloque en Private Sub UserForm_Initialize() la instrucción que anexo. Toda esta instrucción la ejecuta perfecto, es decir selecciona la hoja menú, escribe en la celda A1 la palabra "Prueba" y deja seleccionada la celda A1, pero depues de todo esto no se ejecuta la instrucción de cerrar automáticamente. Seguí tus recomendaciones pero sucede lo mismo. Como diría el Chavo del 8 "Me doy". Ahí queda por si alguien se anima a dar una solución. Mil gracias Hector hasta pronto. Private Sub UserForm_Initialize() Worksheets("Menu").Select 'selecciona la hoja menu Range("A1").Value = "Prueba" 'en la celda A1 escribo la palabra Prueba Range("A1").Select 'finalmente selecciono la celda A1 End Sub
  8. Amigos miren encontré esto en la pagina de programarexcel la cual adapte a mis necesidades y funciona super bien ordenando una tabla dinámica, en este caso solo ordeno una columna, pero tiene opción para ordenar por varias columnas. Anexo archivo. Muchas gracias por su apoyo. Macro ordena por varias columnas.xlsm
  9. Hola con la grabadora obtuve la siguiente macro para ordenar los datos de una de las tablas que tengo en un libro, funciona bien , pero el detalle es que tengo varias hojas con tablas que también necesito ordenar y no quiero tener tantas macros. Espero que alguien me apoye con una macro única para poder filtrar la tabla dinámica de la hoja que tenga seleccionada. Espero haber explicado. Gracias por su atención. Sub ORDENAR_TABLA() ActiveWindow.SmallScroll Down:=-21 Range("B2").Select ActiveWorkbook.Worksheets("Maniobras e izaje").ListObjects("Tabla7").Sort. _ SortFields.Clear ActiveWorkbook.Worksheets("Maniobras e izaje").ListObjects("Tabla7").Sort. _ SortFields.Add Key:=Range("B2"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Maniobras e izaje").ListObjects("Tabla7").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
  10. @Héctor Miguel buenos días mira ya leí, leí y leí todo lo que me comentaste y eh realizado muchas pruebas y cambios pero nada me funciona, cambie la instrucción base Private Sub Workbook_SheetSelectionChange( _ ByVal Sh As Object, ByVal Target As Range) Permanecer = True End Sub ' POR ESTA Private Sub Workbook_SheetnChange( _ ByVal Sh As Object, ByVal Target As Range) Permanecer = True End Sub Coloque esta instrucción en el Userform principal (menu) y tampoco Private Sub UserForm_Initialize() Worksheets("Menu").Select Range("A1").Select End Sub Private Sub UserForm_Activate() Worksheets("Menu").Select Range("A1").Select End Sub Podrás darme un empujoncito por favor. Anexo lo que llevo. https://mega.nz/#!TMYBQaTZ!EIlXxja2Rug1ZByhS92qhS8Y_2kLlfPBZ24egSsdBz4
  11. @Héctor Miguel tomare en cuenta tus consejos y la añeja conversación. cualquier duda que tenga te volveré a molestar. Gracias
  12. Perdon jajaja fue con esto Application.DisplayAlerts = False Seguiré tu consejo en revisar a profundidad
×
×
  • Create New...

Important Information

Privacy Policy