Jump to content

MauriciodeAbreu

Members
  • Content Count

    77
  • Joined

  • Last visited

About MauriciodeAbreu

  • Rank
    Advanced Member

Converted

  • Campos
    ;
  • Mi versión de Excel:
    2

Recent Profile Visitors

427 profile views
  1. Buenos dias compañeros, nadie tiene idea del porque deja de funcionar el contador del aviso de cierre cuando esta funcionando el metodo OnTime del BackUp ¿? Agradecido de antemao por vuestra ayuda
  2. Anexo el archivo de ejemplo. Si anulo el llamado a la macro AutoBackUp funciona bien, pero al activarlo deja de funcionar. Prueba Inactividad y BackUp.xlsm
  3. Muchas gracias Antoni por la corrección y por confirmar lo que habia asumido. El asunto es que... Tengo el metodo Ontime para determinar la inactividad y cerrar Sesion, el cual funciona perfecto. Si mal no recuerdo el codigo es de Hector Miguel. Pero cuando agrego al libro (archivo) el metodo OnTime para hacer el BackUp automatico, el aviso de cierre de sesion del primer metodo (inactividad) no se cierra a los 30 segundos. Es decir, deja de funciona como lo venia haciendo. Este es el codigo del mensaje que deja de funcionar cuando esta el otro metodo en el libro, no se cier
  4. Buenos dias estimados... Tengo la siguiente duda. ¿Es posible tener dos eventos (independientes) OnTime trabajando simultaneamente en el mismo libro? Pongo un ejemplo: El primer evento OnTime comprueba la actividad en el libro, y al tener 10 minutos de inactividad cierra el libro. El segundo evento OnTime realiza un backup del libro cada 30 minutos. Ambos eventos estan en modulos separados. Agradecido de antemano por vuestros consejos y ayuda
  5. Buenas tardes amigos. He realizado una pestaña personalizada con sus respectivas botones y macros asignadas a cada uno de ellos. También he logrado ocultar el menú del Ribbon de Excel. Con esto no tengo problemas ya que ambos funcionan perfectamente. Pero adicionalmente a lo anterior expuesto, quiero que los botones de cada grupo de mi pestaña "Modulo Egresos e Ingresos" (nombre de la pestaña personalizada), se oculten o muestren en función de las hojas activas. Por ejemplo, para iniciar mi proyecto hay que ingresar usuario y clave (todas las hojas están ocultas men
  6. Se me ocurrio hacerlo con una condicion IF (y funciona bien), de la siguiente forma, o hay una mejor forma ¿? Sub Todo() 'Sub Todo Dim wbdestino As Workbook, uFo&, uFd&, uC&, cel As Range Dim Hoja As String Dim datos(), i&, X&, h& Application.ScreenUpdating = False Set wbdestino = Workbooks.Open(ThisWorkbook.Path & "\Registros de Egreso e Ingresos.xlsm") Set wborigen = ThisWorkbook wborigen.Activate m = MsgBox("Se eliminaran las tablas exportadas anteriormente. ¿Desea continuar?", vbYesNo, "Exportar de Tablas") For i = 1 To 4 'Sheets.Count If i = 1 Then Ho
  7. Buena tardes amigos. Me tope con un detallazo, que no habia considerado 😬🤦‍♂️ Las hojas no estan en la misma posicion en mi proyeco, existe alguna manera de hacerlo con los nombres de las hojas dentro del bucle ¿? Disculpad no haberlo considerado antes. Agradecido de antemano por vuestro apoyo.
  8. Buenos dias Antoni, no hay problema 👍 Agradecido como siempre por vuestras intervenciones. Felices fiestas. Un abrazo desde Venezuela!!
  9. Muchas gracias Gerson 👍, realizando la busqueda, y gracias por el ofrecimiento, lo tendre presente.. Un abrazo!!
  10. Buenas tardes amigos, pido disculpas por la demora, estuve un poco acupado con otros menesteres. Antoni, antes que nada agradecer tu tiempo y tus aportes, al igual que el de todos los que me han ayudado directa o indirectamente. Comento sobre la consulta, he utiilzado tu codigo Antoni, y con su permiso Maestro, le he realizado un par de modificaciones, ya que este colocaba en la tabla destino, la informacion de la tabla Maestra en funcion de la misma fila de la celda destino (Variable x), es decir, colocaba informacion erronea, Adicionalmente le coloque una condicion para evalua
  11. Buenos dias amigos, muchas gracias por responder, y colaborar con mi proyecto. Hola Haplox, gracias por responder , lo que se necesita es cambiar la informacion de las 3 primeras columnas (Ubicacion, Lado y Baul) en funcion de la columna 4 (Serial), con la informacion que tiene la Tabla Maestra. Es decir, si el Serial coincide, se necesita reemplazar la informacion de la celdas B5, C5 y D5 de las tablas Salida y Entrada con la informacion contenida en las mismas celdas, pero de la Tabla Maestra. Lo que os comento esta aqui en vuestro foro, fue creada por JSDJSD (agradeido etern
  12. Buenas tardes amigos, espero no incurrir en una falta, pero me preguntaba si creen que se pueda hacer sin formulas¿? Agradecido nuevamente por los comentario y disculpas si incumplo las normas. Felices fiestas
  13. Hasta el momento funciona perfecto, no percibo lentitud en el proceso, supongo que con tablas de grandes dimensiones si se notara. No hay fallas y el codigo esta adaptado a cualquier TextBox. Muchas gracias Haplox y Antoni, marco como solucionado el tema. Un abrazo...
  14. Buenas amigos. Gracias por responder Haplox. En base al ejemplo actual, borrando todas las filas de la hoja (Shift + Fin y Flecha abajo), y haciendo el exportado como lo indico arriba, deja parte de las tablas anteriores. Yo la verdad no se casi sobre VBA (apenas tengo unos meses en esto), pero lo que creo entender es que al momento de borrar en la hoja Destino, borra en funcion del tamaño de lo que se exporta, o algo por el estilo, porque no llega a borrarlo todo. Asi que me ahorre dolores de cabeza (en funcion de mis pocos conocimientos), y opté por cambiar estas lineas.
  15. Buenas noches. No se si he entendido bien lo que pides Soy nuevo en esto, pero dejo el codigo que yo uso, espero te sirva. Sub Eliminar_CodigoVBA() 'Caja para el ingreso del Password para poder borrar ultimo registro Dim PS As String Dim PS2 As String PS2 = "Clave del proyecto" ''PS = InputBox("Por favor ingrese su Password") PS = InputBoxDK("Por favor ingrese su Password", "Auxiliar de Acceso") If PS = PS2 Then 'Fin de la caja 'MdgBox ("fin de la caja de contraseña") 'MdgBox ("Entrando al codigo de borrado") Dim VBAProj As Object Dim VBAComp As Object Dim VBAComps As Objec
×
×
  • Create New...

Important Information

Privacy Policy