Saltar al contenido

Macros y programación VBA

Temas sobre la automatización de Excel utilizando macros y VBA. Errores de VBA. ¿No consigues que tus macros hagan lo que necesitas?

  1. Muy buenas a todos, He estado bastante sobre este tema y pensaba que iba a ser un Topic mas sencillo pero la verdad que me he dado una sorpresa para mal! Por lo visto es un tema bastante complicado En mi caso , simplemente quiero adaptar mi userform a la resolución de la pantalla , ya que lo he creado en una resolución de 1920 x 1080 , he probado todo tipo de me.height= application.height .... y este tipo de cosas pero no funciona. En el caso que la solución super complicada como parece , como le puedo decir al userform que siempre se me abra en 1920x1080 Muchas gracias de antemano.

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.9k visitas
    • 2 seguidores
  2. Hola, Lo primero, desde aquí, agradecer y pedir perdón a Gerson Pineda por su atención y mi falta de consideración. Tiene su explicación. De nuevo, perdón. La pregunta es: De una tabla general debo hacer subtablas (por decirlo de alguna manera) Tengo que eliminar en bloque registros concretos. Lo hago utilizando los filtros pero es muy tedioso. He intentado crear una macro utilizando la grabadora de macros. Aquí me ha dado el primer error, ¿alguna solución? Si tiene arreglo, espero que sí, ¿puedo copiar ese código en otro módulo y cambiarle los criterios del filtro para crear otra macro distinta sin tener que volver a usar la grabadora? Un saludo, codigo filtrar y e…

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 904 visitas
  3. Started by JoaoM,

    Hola Vengo en busca de Diego9019 una vez que el mismo crió esta macro para que: Diego9019, quisiera pedirte para que a tu macro; 1º- Agregues también para que guarde en PDF (además de xlsx que ya lo hace). 2º- Que guarde la hoja protegida TOTALMENTE con el mismo passw de la hoja original 3º Que guarde la hoja sin botones, sin formulas, sin shaps ni imágenes (si las hubiera) Subo 2 libros y 1 PDF, un libro para que me hagas eso ya con un boton en la hoja que se guardará, y 2 como ejemplo de la hoja ya guardada como (xlsx y PDF) Agradecido si puedes echarle mano a mi solicitud. Cuanto a esta linea, estoy indeciso si usarla o no Application.Dialogs(xlDialogSave…

    • 0

      Reacciones de usuarios

    • 8 respuestas
    • 1.6k visitas
  4. Started by jcjones,

    Buenas tardes Amigos foristas. Les pido el favor si me pueden ayudar con lo siquiente, estoy trabajando en un formato de excel, el cual debe de tener una foto de la fachada de la casa ( 1 0 2) en un espacio demarcado en la primera hoja y en las otras hoja se anexan 6 fotos maximo por hoja. Estas fotos estan en una carpeta junto con el formato por persona. La idea es que se pueda automatizar con un botón y las orgamice uniformemente en estos espacios. Muchas gracias. Anexo formato https://www.mediafire.com/file/fh2i1l9cn6abugz/Acta_de_cierre.xlsx/file

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 492 visitas
  5. Hola a todos, quisiera que me ayudaran para poder realizar una una macro que al hacer click en un Botón de Comando que esta puesto en un UserForm me permita examinar el disco C: y de este escoger un documento cualesquiera y adjuntarlo o importarlo o por ultimo grabar el path en un TextBox. Saludos a todos nuevamente.

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 3.3k visitas
  6. Started by Leone04,

    Buenas noches, Mi consulta es la siguiente, estoy realizando un pequeño aplicativo pero no se como poder adjuntar un archivo outlook, o ver la forma de como poder crear un enlace (Link) en la celda y me lleve al correo en particular. Adjunto sólo imagen ya que recien estoy codificandolo y solo tengo la armason. Agradeceria cualquier ayuda o sugerencia que me puedan brindar. Gracias por su ayuda. Saludos. Imagenes.rar

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 799 visitas
  7. Started by muyayito,

    Buenas a todo el foro. En una macro adjunto un archivo para enviar por correo de esta forma: adjunto = ActiveWorkbook.Path & "\" & Hoja1.[M3] & "\" & Hoja1.[M2] & "\CS_report.pdf .Attachments.Add adjunto Como lo haría para insertar todos los pdf que empiecen por "CS"? Gracias por adelantado.

    • 0

      Reacciones de usuarios

    • 6 respuestas
    • 995 visitas
    • 1 seguidor
  8. Started by Luis paz,

    Hola, necesito ingresar a una página,. Para ello necesito adjuntar dos documentos de autentificación, sin embargo, no he logrado hacerlo. Ayudaaa La página es https://wwwmat.sat.gob.mx/app/seg/faces/pages/lanzador.jsf?url=/operacion/20777/consulta-tu-opinion-de-cumplimiento-de-obligaciones-fiscales&tipoLogeo=c&target=principal&hostServer=https://wwwmat.sat.gob.mx Allí se encuentra el código fuente. El error se encuentra al adjuntar los archivos, pues la página no los reconoce como adjuntos... Direc = "https://wwwmat.sat.gob.mx/app/seg/faces/pages/lanzador.jsf?url=/operacion/20777/consulta-tu-opinion-de-cumplimiento-de-obligacio…

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 1.2k visitas
  9. Buenas foro. Mediante scraping me logueo en una web a traves de internet explorer. Llego hasta un cuadro de dialogo (Pulsando un boton) para subir un archivo. Se me ocurre subir la ruta mediante la funcion sendkeys, pero como es tan volatil, me pregunto si no hay alguna funcion para subir, adjuntar al cuadro de dialgo el archivo

    • 0

      Reacciones de usuarios

    • 10 respuestas
    • 901 visitas
    • 2 seguidores
  10. Hola favor necesito de vuestra ayuda!!! mi problema es que quiero adjuntar un solo archivo (ya creados en pdf) a cada dirección de correo que esta en la columna 14 y filas 1 en adelante; y desde el segundo correo me va adjunto el archivo anterior más el correspondiente de fila 2; en el tercero, los dos anteriores, más el de la tercera fila y así sucesivamente. Favor vuestra ayuda en .AddAttachment Les dejo todo el código: Sub SendMail_Gmail() Dim Email As CDO.Message Set Email = New CDO.Message correo = "[email protected]" passwd = "123456789" mensaje = Range("A1") cuerpo = Range("B1") Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 857 visitas
  11. Hola: Necesito enviar correos por Outlook adjuntando un archivo pdf que guardo, por ejemplo, en el escritorio. Quisiera saber si en la línea referente al archivo adjuntado ( .attachments) se puede decir que adjunte automáticamente ese pdf tenga el nombre que tenga. O sea, que adjunte cualquier pdf que haya en el escritorio. Lo digo porque por cada llamada que reciba, tendré que generar un pdf (que a la fuerza tengo que guardar porque si no, no puedo seguir) y enviárselo al cliente. Y como tengo una plantilla con algunos campos fijos (asunto y cuerpo) solo tendría que cambiar la dirección de envío, y no perdería tiempo al adjuntar el archivo usando GetOpen FileName. Si…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 622 visitas
  12. Started by benmartz88,

    Hola, Me gustaría saber como evitar la advertencia de permiso para reproducir contenido incrustrado al cargar una Form que contiene un ShockwaveFlash. Gracias.

    • 0

      Reacciones de usuarios

    • 17 respuestas
    • 975 visitas
  13. Started by ramonvar,

    Hola a todos, espero me den una mano con esta macro que encontré en este foro, lo quiero adaptar a mis necesidades pero no lo logre.. La idea es que me busque los datos de la columna "E", de la "hoja27" y una vez que encuentre me posicione el cursor en la celda, esta macro la hace pero solo con nombres cortos Ej. fast, pero yo tengo de la siguiente manera Ej. Alimentación - Restaurante - FAST WAY FOODS S.R.L., lo ideal para mi es que encuentre al darle Fast o Way sin importar el orden Y cuando presiono el Botón "criterio" que me limpie el textbox, porque ahi da un error al repetir la busqueda y en el label2, que me de los valores de la celda "D".....desde y…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 625 visitas
  14. Started by frank,

    Me gustaria funciones en excel 2010, he revisado las formulas y no se encuentro el error Control de Actividades.rar

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 789 visitas
  15. Started by eduardopo,

    Buen dia estimados: comora se pueden dar cuenta soy nuevo en el foro, pero queria saber si me puedne ayudar con un promebla que tengo. Estoy hacuiendo una agenda en excel utilizando el control de calendario, pero al momento que me toma el balor de la celda de ancleje del calendrio para crear una hoja nueva me da un problema, tambien habia hecho un ciclo paque me comprobara si la hoja ya existia solo me enviara a ella y desplegara un mensaje que dijera la hoja ya existe, el codigo que e usado es el siguente: Sub CrearHoja() Dim titulo As String ''se llama la funcion If ExisteHoja Then MsgBox "La tarea ya Existe." titulo = Sheets("Calendario").Range("c3") + ""…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 2k visitas
  16. Started by puntocom05,

    saludos la cuestion es que he estado haciendo una agenda telefonica en excel y gracias a la ayuda del compañero tese1969 logre la pare del buscador, pero ahora me da un error "error 91" cuando el nombre que se introduce en el buscador no se encuentra. y no logro acomodarla, otra cosa es que se queda pegado despues de hacer una busqueda y al darle (esc) para que se destrabe, vuelve a salir el mensaje que dice depurar o finalizar pero esta vez dice que la ejecucion del codigo se ha interrumpido. bueno si alguno sabe que es lo que pasa les agradezco la ayuda. AGENDA TELEFONICA v1.1.rar AGENDA TELEFONICA v1.1.rar

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 6.4k visitas
  17. Started by fierro,

    he ingresado un calendario quisiera que al momento de seleccionar cualquier dia me despliegue una lista de horarios disponibles y una vez seleccionado ambos me permita ingresar el nombre de una persona y guardar en una tabla en un libro nuevo.saludos cal.zip

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 2.7k visitas
  18. Hola buenas tardes, primero que nada me presentaré mi nombre es Adán Garrido y llevo aproximadamente un año trabajando en excel, no me considero un experto ya que no he entrado al mundo de las macros y de la programación en VBA. El motivo de este tema como pueden leer en el titulo es para agilizar una tabla de excel, el funcionamiento se los explicare continuación junto con el archivo de excel. El formato es sobre la captura de tiempos y materiales de una empresa, mas específicamente del área de carpintería, la tabla principal consta de un apartado para la información del producto, después esta la tabla de tiempos y al final la tabla de captura de materiales, la mas "com…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 740 visitas
  19. Started by marios25sm,

    Buenas a todos. Hace más de un año ya estoy trabajando con la base de datos que gracias a vuestra ayuda creamos (básicamente la creasteis vosotros). Básicamente es una base de datos de control de stock. Donde se registra las salidas y entradas de material y donde queda registrado cada movimiento. Ahora necesitaría añadir a la base de datos el concepto "Precio". Y que cada movimiento que se genere, al lado de "material" aparezca su precio. Espero me podáis ayudar. Un saludo y muchísimas gracias a todos. INVENTARIO ALMACEN 2012-2.xls

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 809 visitas
  20. hola chicos!!! a ver si alguien se ha topado con un problema similar y ha conseguido resolverlo.... resulta que tengo una relación de productos (hoja1: productos), cada producto pertenece a una categoría que no viene incluida en la relación original, así que tengo una segunda hoja con una relación entre productos y categorías (hoja2:producto/categoría), así que utilizo en la relación de productos la función "BUSCARV" para agregar la "categoría" desde la hoja2:producto/categoría. hoja1!productos COLUMNA A "categoría" COLUMNA B "producto" 1 =buscarv(B1,hoja2!A:B,2,falso)=01 …

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 960 visitas
  21. estimados compañeros del foro, si son tan amables de darme sugerencias con una macro,a la cual para mi gusto no le falta nada mas que al copiar a otra carpeta,esta no pierda el ancho de las columnas. esta es mi macro: Sub Salvar() mio = ActiveWorkbook.Name ruta = ActiveWorkbook.Path Workbooks.Add otro = ActiveWorkbook.Name Workbooks(mio).Activate nombre = Range("E4").Value Range("A1:K63").Copy Workbooks(otro).Activate Sheets(3).Select Range("a1").Select ActiveSheet.Paste ActiveWorkbook.SaveAs ruta & "\" & nombre ActiveWorkbook.Close False MsgBox "proceso terminado. El archivo se ha guardado en la carpeta: " & ruta &a…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1.1k visitas
  22. estimados compañeros del foro, si son tan amables de darme sugerencias con una macro,a la cual para mi gusto no le falta nada mas que al copiar a otra carpeta,esta no pierda el ancho de las columnas. esta es mi macro: Sub Salvar() mio = ActiveWorkbook.Name ruta = ActiveWorkbook.Path Workbooks.Add otro = ActiveWorkbook.Name Workbooks(mio).Activate nombre = Range("E4").Value Range("A1:K63").Copy Workbooks(otro).Activate Sheets(3).Select Range("a1").Select ActiveSheet.Paste ActiveWorkbook.SaveAs ruta & "\" & nombre ActiveWorkbook.Close False MsgBox "proceso terminado. El archivo se ha guardado en la carpeta: " & ruta &a…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.2k visitas
  23. Started by Shereffa,

    Hola comunidad!! En esta oportunidad les traigo un problema que tengo hace rato! Actualmente tengo una planilla que tiene 4 botones, para que corran debes ingresar una contraseña. La misma esta a la vista, es decir, no puedo colocar asteriscos en lugar de las letras. Por lo que estuve leyendo, con el metodo que utilizo para colocar la contraseña, no me permite. La verdad quise cambiarlo pero no puedo, no me sale. Alguien me podria dar una mano? Es decir, necesito que cuando acciono el boton, salte un msgbox solicitando contraseña pero que la misma no se vea cuando la escribo. Copio una parte del codigo que utiliza este metodo de contraseña; …

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 466 visitas
  24. Hice un código super simple para ir de una página a otra e ingresar datos, el tema es que necesito que al agregar esos datos esas celdas aparezcan con los margenes en negro. Además tengo otro problema, que al ir ingresando los datos hay que hacer click en ingresar nuevo para que siga en las celdas siguientes, el conflicto se genera cuando quiero volver a ingresar datos, se ingresan encima de esos datos ingresados anteriormente. Ojala alguien me pueda ayudar, porque necesito entregar mañana este trabajo. FINAL ensayo.rar

    • 0

      Reacciones de usuarios

    • 8 respuestas
    • 1k visitas
  25. Started by jobuu,

    Hola Amigos , como estan? Les queria pedir su ayuda si alguien sabe como puedo solucionar mi problema. Tengo 2 Hojas con codigo producto y otra especifica la cantidad. Hoja "Orginal" , esta hoja es la que necesita ser modificada. valores de cantidad siempre en 0 Hoja "Nuevo" son los valores que se necesitan cargar en la Hoja "Original". La ultima hoja que pongo en el excel es la hoja "conmacro" que es como quedaria la hoja "Original" una vez ejecutado el macro. Desde ya agradezco a quien pueda ayudarme con este problema que me tiene loco y no encuentro solucion. Gracias de corazon Jon ayuda.rar

    • 0

      Reacciones de usuarios

    • 19 respuestas
    • 1.5k visitas

Información básica de protección de datos

  • Responsable: Sergio Andrés Celemín
  • Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.
  • Legitimación: Consentimiento del interesado.
  • Destinatarios : Hetzner Online GmbH.
  • Duración: Mientras se conserve este post o hilo en la comunidad, o decidas eliminar el comentario.
  • Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso, rectificación, supresión, oposición y demás derechos legalmente establecidos a través del email [email protected]

Información adicional: Encontrarás más información en la política de privacidad.