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. Started by CLARAEXCEL,

    HOLA!! TENGO UN PROBLEMA CON UNA MACRO. ES LA SIGUIENTE: (lo que tengo que hacer es que me corra la macro simulaventasdia todas las veces que sean necesarias hasta que i3 y i4 sean iguales. Y luego que en la celda I15 me escriba la cantidad de veces que se simulo hasta llegar a eso. Sub hastaMismaPosicion() Dim c As Integer c = 0 Range("I4").Value = -1 While Range("I3").Value <> Range("I4").Value Call simulaVentasDia c = c + 1 Wend Range("I15").Value = c End Sub ---------------------------------------- EL PROBLEMA QUE TENGO ES QUE CUANDO LA CORRO, ME IGUALA …

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 325 visitas
    • 2 seguidores
  2. Started by andyboker,

    Hola a todos, me gustaría saber si es posible mediante VBA , rellenar una campo imagen editable de un archivo PDF. Consigo rellenar los de tipo texto y los desplegables sin problemas, pero no puedo rellenar las imágenes desde una ruta o desde un Control Image, las rutas de las imágenes están en las celdas, C53 y B75. Sub ImprimirPDFeditable() Dim celdas() As Variant Dim i As Integer Dim nombrePDF As String, rutaPDF As String Dim HojaDatos As Worksheet, ParteTrabajo As Worksheet Dim Tabla As ListObject Application.ScreenUpdating = False Set HojaDatos = ThisWorkbook.Sheets("Registro") Set ParteTrabajo…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 547 visitas
    • 1 seguidor
  3. Started by RubenDario,

    Hola a todos Por más vueltas que le dé al problema no logro solucionarlo. No se ocurre como corregirlo. Creo que será de lo más sencillo, pero ahí estoy sin poder solucionarlo. Gracias Rubén SumasVarias.xlsm

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 803 visitas
    • 3 seguidores
  4. Started by Emanuel Ortiz Flores,

    https://www.mediafire.com/file/dd8bpb5pmd6ay2b/LIBRO2.xlsm/file Buenos días a todos los genios, quería pedir por favor si me podrían ayudar a que al momento de darle reporte me pueda imprimir la asistencia de los empleados pero que me pueda dejar seleccionar de que fecha a que fecha quisiera que imprima para todos los meses del año 2023, 2024 etc. y poder escoger el departamento . Otra cosa es que cuando quería incluir el "DEPARTAMENTO" en el listbox lo incluyo pero no aparece y "EMPLEADO" se me corre mas para la izquierda. Por favor pido si alguien me podría echar una mano con ello, Mil gracias a todos

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 338 visitas
    • 1 seguidor
  5. Started by Moroquito23,

    Hola buenos días: Dentro de una hoja de Excel tengo varias columnas con datos otras con fórmulas y otros. Pero hay celdas que tengo que borrar, ejemplo: B8 al B25 esto lo realizo de manera manual. Pero esto mismo lo necesito hacer con diferentes columnas. Existe alguna manera de hacerlo rápido y de manera que con un botón o algo pueda hacerlo automático. - Las columnas a seleccionar y borrar datos son las columnas: B,E,J,N,R,V,Z,AD. a partir de la fila 7 y que termine a la 25 Esperando que me puedan ayudar con esto. Gracias Borrar datos de columnas discontinuas.xlsx

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 409 visitas
    • 1 seguidor
  6. Started by CLARAEXCEL,

    HOLA, NECESITO AYUDA PARA ARMAR ESTE CODIGO EN EXCEL. LES ESCRIBO QUE ES LO QUE NECESITO Y SI SE LES OCURRE COMO HACERLO SE LOS AGRADEZCO DESDE YA. Lo que entiendo es que tengo primero que hacer que se ejecute la macro simulaventasdia 30 veces ya que necesito los 30 dias del mes Después tengo que de alguna manera pedir que me cuente los dias en que I8 es mayor a I7 Y cuando tenga ese valor, necesito que lo divida por la cantidad de dias del mes (30) y lo escriba en la celda I11 es decir que calcule la proprocion de dias del mes que vendi mas que la competencia. GRACIAS!!

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 320 visitas
    • 1 seguidor
  7. Started by Moroquito23,

    Hola buenas noches: En una hoja donde listo mis archivos necesito mandarlos a imprimir celda x celda En la columna B tengo listado los archivos con su ruta completa. Ruta y nombre del archivo. Me gustaría poder imprimir estos sin necesidad de abrir cada uno de ellos. ya que previamente hice una revisión. Tengo una macro, que me había funcionado en otro archivo, pero no puedo aplicarlo aquí. Esperando que me puedan ayudar. Muchas gracias Mario Imprimir Rutas con archivo.xlsm

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 304 visitas
    • 1 seguidor
  8. Started by Moroquito23,

    Hola buenas noches: En una hoja tengo una macro que me ayuda a pegar información en la columna E a partir de la fila 17. todo esto dependiendo de la columna C. en ella celda (C17) pongo un número que trae los datos de otra hoja y los coloca en la misma fila, pero de la columna E. terminando de pegar se recorre nuevamente a la columna C. y de ahí digito un 2 (consecutivo) y vuelve hacer el mismo proceso. Hay alguna manera de poder poner los consecutivos de manera automática, al yo poner en la celda C17 el numero 1, y donde se active la celda de la columna C, poner el consecutivo siguiente. y como limite la celda J2. en donde estará el límite ejemplo 15. es…

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 477 visitas
    • 1 seguidor
  9. Started by erpunta,

    Tengo un userform para insertar/modificar/borrar datos en una tabla. El problema surge cuando intento editar o modificar parte de los datos, pero no me realiza ninguna accion o me da error. Sub EditCrew() Dim UltFila As Long, rango As String, FilaRegistro As Long, ans As Integer Sheet5.Visible = True Sheet5.Unprotect ("xxxx") UltFila = Range("A" & Rows.Count).End(xlUp).Row rango = "A2:A" & UltFila If Len(frmCrew.TxtPassport) = 0 Then MsgBox "Write True Passport", vbExclamation, "BALEARIA" Exit Sub End If FilaRegistro = filaexisteregistro(frmCrew.TxtPassport, rango) I…

    • 0

      Reacciones de usuarios

    • 13 respuestas
    • 836 visitas
    • 3 seguidores
  10. Buenos días: Tengo el siguiente problema. Básicamente mi necesidad es de una lista datos que tengo en una hoja 1 pasarlo a la hoja 2. La lista está en la columna B, cada nombre en la columna C esta clasifica según un código de ID, esto lo hago manual, Y en hoja 2 debo poner los datos de la columna B, en diferentes columnas de la hoja 2. En la hoja 1 Puse una tabla sencilla colocando mi ID y la columna en donde deberá ir cada celda. La idea es que con una macro revise la columna C de la hoja 1 y según el Id puesto deberá poner la celda B en la columna indicada. Ejemplo: celda B3 (nombre) C3=código BN En mi tabla el ID:BN …

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 287 visitas
    • 1 seguidor
  11. Started by javier.rodriguez,

    Hola buenas tardes, encantado de poder estar y participar en el foro. Llevo un tiempo que quiero conectarme a través de una aplicación realizada con VBA , con una base de datos con SQLite3. Lo que voy encontrando no me aporta lo sufciente o esta incompleta. ¿Me podriais ayudar, con algun ejemplo o alguna sitio donde pueda recopilar la información suficiente?. Tengo instalado SQLite3, su driver y abro las referencias, pero aun asi, cogiendo ejemplos recogidos por Youtube, me dan errores. Muchas gracias.

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 370 visitas
    • 2 seguidores
  12. Started by ZkoolMan,

    Hola saludos a todos espero me puedan ayudar. Necesito que este código haga el proceso de deshabilitar o quitar un comando (botón) de la barra de herramientas de acceso rápido que cree para ejecutar una macro y ya terminada la macro se quite. utilicé el siguiente código Sub EliminarComandoBarraAccesoRapido() Application.CommandBars("Quick Access Toolbar").Controls("Conectar SQL").Delete End Sub Pero me muestra el siguiente error Espero me puedan ayudar por favor. Gracias.

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 480 visitas
  13. Hola a todos; Estoy trabajando en Access y he hecho un procedimiento para ocultar columnas de listbox en tiempo de ejecución. He añadido un listbox o cuadro de lista auxiliar donde se cargan los titulos (no tienen el mismo nombre algunos campos porque le he cambiado el nombre de los titulos) Ahora mismo lo estoy haciendo con un número fijo e columnas, pero lo interesante sería que fuese sobre un número dinámico de columnas. Entonces lo que hago es seleccionar un item y al ejecutar el procedimiento oculta la columna. Habéis visto algo similar para Excel. Sí es así me podéis indicar¿? Saludos a todos y todas.

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 990 visitas
    • 1 seguidor
  14. Tengo una hoja en un excel que se llama Base de datos 2, la cual tiene una tabla que posee Equipo, Pozo, Día, Jornada, Metro Perforados en ese mismo orden y otra hoja llamada Pozo 3 en donde la celda K2 tengo escrito el Pozo, y desde la celda E10 hacia la derecha tengo escrito distintas fechas, y abajo de estas fechas distintas jornadas (Esto está hecho en macro), necesito otro macro en esta hoja que busque la coincidencia del pozo, fecha y jornada tanto en la hoja Base de datos 2 y la hoja de Pozo 3 y me coloque los metros perforados desde la celda E15 hacia la derecha, tener en cuenta que las fechas y la jornada de la Hoja Pozo 3 se encuentran hacia al lado y no hacia a…

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 496 visitas
    • 1 seguidor
  15. Buenas tardes, "Tarea" a realizar: búsqueda de un número desde la celda A4 de la hoja CAMIONETAS en la hoja PLANO luego correr dos columnas a la derecha y reemplazar ese contenido con la celda G4 de la hoja CAMIONETAS. Problema a solucionar: lo remarcado en rojo debería ser el contenido de la celda A4 (CAMIONETAS) que es variable; en el caso de abajo siempre me busca 14248. El "resto del código" funciona bien. Selection.Copy Sheets("PLANO").Select Cells.Find(What:="14248", After:=ActiveCell, LookIn:=xlFormulas2, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchForma…

    • 0

      Reacciones de usuarios

    • 6 respuestas
    • 530 visitas
    • 1 seguidor
  16. Hola buenas noches: en un archivo necesito copiar un rango de celdas de distintas hojas de mi libro. En mi hoja 1 pondré el nombre de la hoja donde debe buscar el valor en la columna A y el valor a buscar en este caso "Form" La celda donde pondré la hoja se encuentra en C9 donde pondré la palabra a buscar en celda C11 ="Form" Esta palabra debe ser buscado en la columna A (fango a15 a a50) de la hoja indicada, y pasar a la columna B y seleccionar el rango activo y copiarla para pegar la información en otro libro o a Word. Muchas gracias Buscar en hojas dato.xlsm

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 590 visitas
    • 1 seguidor
  17. Hola, buenas tardes Estoy necesitando hacer una macro en vba para conectarme a una webservice y consultar informacion. En la ws habra pdf que yo necesito buscar y luego descargar. Tengo conocimiento en vba pero esta incursion es nueva. Vengo googleando y no cosigo nibgun post que me ayude. Logre consultar usando la opcion datos-de la web... Pero no me sirve para lo que quiero, es buscar un pdf especifico y luego deacargarlo. Les agradecería cualquier ayuda que me puedan brindar Buen finde, manuel

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 502 visitas
    • 1 seguidor
  18. Saludos, Quisiera asignar a esta tabla la opcion de modificar Al seleccionar Buscar aparece la siguiente tabla donde quiero obtener la posibilidad de modificar No sé si es posible que al pulsar dos veces dentro de la fila de la lista me permitiera el poder modificar sin tener que pulsar en el boton pero si no fuera posible pues al pulsar el boton de modificar. Mil Gracias DIAGRAMA DE TRABAJO PRUEBA 01.rar

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 526 visitas
    • 2 seguidores
  19. Buenas tardes amigos, un saludo, uds saben si es posible ejecutar unas macros que fueron desarrolladas en Windows de excel y tratar de ejecutarlas en excel de Mac? , tengo un archivo que usa macros y me han pedido que se pueda utilizar el archivo en una máquina de MAC, pero al abrirlo este me despliega un mensaje que el archivo que intento abrir tiene errores y que excel de mac podría repararlo en su máxima capacidad, realizo el proceso y me descompone el formato así como no me traslada los códigos de macros, no se si debo tomar en cuenta algunas variaciones que necesite saber para modificar mis código y pueda llevarlo a ejecuta a excel de mac. muchas gracias!

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.5k visitas
    • 1 seguidor
  20. Hola que tal Necesito la formad e poder usar un único formulario que contiene una barra de progreso, para varias consultas o macros, por ejemplo, tengo un libro con 40 hojas, y tengo una macro que oculta las filas vacías en todas las hojas en un rango, tengo otra macro que muestra las filas vacías que se han ocultado, tengo otra macro que oculta x cantidad de columnas y otra macro que muestra las columnas ocultadas. y otras macros que procesan datos, ahora lo que quiero es que cualquiera que sea la macro que ejecute me corra el formulario que tiene la barra de progreso y me muestre el progreso actual para la macro que se corrio. es decir que el formulario sea comun p…

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 483 visitas
    • 2 seguidores
  21. Started by romaop,

    HOLA QUERIDOS AMIGOS - no se porque en mi listbox2 me carga los códigos y no los productos que es lo que deseo, quizás se deba porque incluí una formula Excel en esa tabla de lista de productos. y el otro es aquello que al escoger el producto en mi textbox "A_PRODUCTO" me extraiga su código en mi textbox2 y para ello generé el siguiente código(andaba bien pero anteayer me resulta error en esta línea (letra roja) y hasta no puedo solucionarlo. Por favor ruego que me echen una mano con ello, ya no se que hacer, busco una solución para algo en especifico y me genera otra 😔 Private Sub A_PRODUCTO_Change() 'ACTIVAR HOJA2 Sheets("LISTA DE PRODUCTOS").Ac…

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 543 visitas
    • 1 seguidor
  22. Inculuir otra pestaña de parametros : donde se digite: -Porcentaje de recargo nocturno -Porcentaje de horas extras ordinarias diurnas -Porcentja de horas extras ordinarias nocturas -Porcentaja de horas extras festivas diurnas -Porcentja de horas extras fetivas nocturnas Que al momento de generar el informe o de ahcer clik en genrador de informe: Calcule en numero de horas y en valor: -Recargo nocturno - Horas extras ordinarias diurnas -Horas extras ordinarias nocturas -Horas extras festivas diurnas -Horas extras fetivas nocturnas No me permite adjuntar el archivo dice que esupera el tamaño permitido-Que otr…

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 612 visitas
    • 2 seguidores
  23. Hola a todos y todas; Estoy intentando ajustar un procedimiento para que desde mi macro "MiPrueba" y desde el botón "btnAbrirFormAddin" de mi formulario "Form1" abrir el formulario "Formulario1" que esta en mi complemento "NombreDelComplemento". Private Sub btnAbrirFormAddin_Click() ' Verificar si está instalado el complemento If AddIns("NombreDelComplemento").Installed = True Then ' Llama al formulario del complemento Application.Run "NombreDelComplemento.xlam!Formulario1.Show" '<--No carga, me da error 1004 Else MsgBox "El complemento no está instalado." End If End Sub La verificación la he probado y funciona pero …

    • 0

      Reacciones de usuarios

    • 13 respuestas
    • 1.1k visitas
    • 1 seguidor
  24. Started by Antoni,

    Te dejo la imagen del tema del que hemos hablado por privado:

    • 0

      Reacciones de usuarios

    • 6 respuestas
    • 626 visitas
    • 1 seguidor
  25. hola estimados foreros, ojalá puedan ayudarme por favor, necesito una macro para obtener la serie_inicio y la serie_final de registros que están duplicados (Columna A), les adjunto archivo de ejemplo con los datos y que lleva en columna D, E el cómo debería quedar la solución final. Desde ya, les agradezco cualquier ayuda foreros. ayudaexcel_series.xlsx

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 341 visitas
    • 1 seguidor

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.