Jump to content

MauriciodeAbreu

Members
  • Content Count

    73
  • Joined

  • Last visited

About MauriciodeAbreu

  • Rank
    Advanced Member

Converted

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

Recent Profile Visitors

199 profile views
  1. 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
  2. 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
  3. 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.
  4. Buenos dias Antoni, no hay problema 👍 Agradecido como siempre por vuestras intervenciones. Felices fiestas. Un abrazo desde Venezuela!!
  5. Muchas gracias Gerson 👍, realizando la busqueda, y gracias por el ofrecimiento, lo tendre presente.. Un abrazo!!
  6. 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
  7. 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
  8. 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
  9. 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...
  10. 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.
  11. 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
  12. Buenas noches amigos. Disculpad la demora. He realizado pruebas, y unas pequeñas modificaciones. Deciros que, el exportado de las tablas hasta donde he podido revisar lo hace bien (realizando pruebas independientes con cada una de las opciones). Pero..., cuando hago un nuevo exportado no borra la totalildad de lo exportado anteriormente. Me explico mejor, si lo primero que exporto son todas las tablas, y despues exporto por fecha explicita, ejemplo 10/12/20, la macro borra y exporta (aparentemente bien), pero si bajamos lo suficiente en la hoja Salida del libro Destino
  13. Creo que ya lo solucione. Opté por exportar la fila entera donde estan los titulos. ftitulo = .Range("A4").EntireRow .Range("A1").Resize(h, uC) = ftitulo Sub Todo() 'Sub Todo Dim wbdestino As Workbook, uFo&, uFd&, uC&, cel As Range 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("¿Desea eliminar las Tablas ya Insertadas Anteriormente?", vbYesNo, "Importación de Tablas") For i = 1
  14. Buenos dias estimados. Agradecido por tu respuesta Haplox. SI, seria mas sencillo, si no fuera porque tengo que modificar todo el proyecto, formulas, formulas matriciales, codigo..., y de verdad ya quiero terminar con el proyecto, de algo simple (una solicitud) he ido ampliando y modificando el proyecto para cada situacion que se me ha presentado, e ideas que he tenido para mejorarlo o adelantarme a posibles solicitudes y eventos, lo cual a sido positivo, puesto que al poco tiempo me las solicitan, y ya las tengo implementadas. Lo bueno, es que he aprendido un monton con cada mo
  15. Me rindo por hoy, no logro hacer que funcione, a veces borra los encabezados y a veces no
×
×
  • Create New...

Important Information

Privacy Policy