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 ppladino,

    Buenos días amigos, tengo el siguiente inconveniente con una macro que he desarrollado; resulta que cuando coloco el formulario como no Modal, es decir la propiedad es ShowModal = False, esto para que se puedan utilizar otros libros de excel, entonces el cursor se pierde al hacer un alt+tab, haciendo que cada vez se tenga que dar clic sobre el formulario para llenarlo. Si me pueden ayudar como puedo solucionar esa parte les agradezco infinitamente.

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 663 visitas
    • 1 seguidor
  2. Started by ARIELOK,

    GRUPO AYUDA EXCEL DIOS LOS BENDIGA Y TENGAN USTEDES UN EXCENTE DIA TENGO EL SIGUIENTE CODIGO Y EN RANGO DONDE DESEO COPIAR ES HASTA LA COLUMNA N =CopyToRange:=Range("A5:J2000") CAMBIO EL RANGO A "A5:N2000" Y ME SALE ERROR QUE NO ME PERMITE EJECUTAR LA MACRO SI ALGUIEN PODRIA AYUDAR A MEJORAR EL CODIGO O TALVEZ ESTOY OMITIENDO ALGO DE ANTE MANO GRACIAS Sub CONSULTA_DOC() ' ' CONSULTA_DOC Macro ' ' Acceso directo: Ctrl+Mayús+F ' Sheets("DIARIO").Range("A5:N10000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("Z5:AA6"), CopyToRange:=Range("A5:J2000"), _ Unique:=False Range("A6").Selec…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 663 visitas
  3. Started by rguezfj,

    Tengo hecha una base de datos e imágenes que están correlacionados por filas, estos son manejados por un UserForm. Mi pregunta es, como puedo hacer para enviar a una plantilla de Word tanto los datos como las imágenes que en ese momento tengo en el formulario.

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 663 visitas
  4. Hola buenos dias, se que debe ser algo super básico pero estoy recién involucrandome con macros. Necesito construir una macro que cambie los datos de un gráfico por los de la hoja anterior, pero que ésta pueda ser utilizada en cualquier hoja, es decir, si la activo en la hoja 3 que saque datos de la 2 pero si lo hago en la hoja 7 que lo haga de la 6. por ejemplo : ActiveSheet.ChartObjects("3 Gráfico").Activate ActiveChart.PlotArea.Select ActiveChart.SeriesCollection(3).Values = "=hoja1!$D$16:$AH$16" ActiveSheet.ChartObjects("4 Gráfico").Activate ActiveChart.PlotArea.Select ActiveChart.SeriesCollection(3).Values = "=hoja1!$D$30:$AE$30"[/PHP] l…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 663 visitas
  5. Started by lsmaniahotmail.com,

    Buena a todo el el equipo tengo una pregunta de concepto si puede llamarse asi , el tema es tengo en yoja 1 una tabla de clientes y en hoja 2 una tabla de pedidos y a traves de un formulario que se llenan con los datos de hoja2 tengo un combo que debe llenarse con el correo del cliente que estan en la base de datos 1. mi pregunta para no cpmplicarme con el codigo que no domino muy bien pueda completar el la propiedad de combo en rowsource con : =hoja1!"F:F" o esta mal expresdo por que no consigo que se llene. probe tambien con codigo (el que muestro) , pero me error Sud indice fuera de intevalo Private Sub UserForm_Initialize() Dim rango As R…

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 663 visitas
    • 1 seguidor
  6. Started by aprendiz,

    hola todos hice este archivo en excel 2003 y funciona bien, dentro de lo que cabe con un inexperto, el problema es que a la hora de ejecutarlo con el excel 2010 de la pc de un tio, no funciona bien el problema es que cuando uno ingresa los datos por segunda vez, por ejemplo [TABLE=class: grid, width: 500] [TR] [TD=width: 40]Nº [/TD] [TD=width: 40]Sexo[/TD] [TD=width: 54]Madre[/TD] [TD=width: 54]Padre[/TD] [TD=width: 54]Peso[/TD] [TD=width: 75]Fcha. Nac.[/TD] [TD=width: 75]Palpar 1[/TD] [TD=width: 26]G[/TD] [TD=width: 75]Palpar 2[/TD] [TD=width: 26]G[/TD] [TD=width: 75]Palpar 3[/TD] [TD=width: 26]G[/TD…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 663 visitas
  7. Started by Celest3,

    Hola amigos, porfavor me pueden una ayuda, lo que quiero realizar en este archivo es que me guarde la diferencia entre horas. - si es le mismo dia que se guarda, entonces guarda la diferencia de horas o minutos. - pero si la fecha de ingreso es hoy y por ejemplo la salida es dentro de 2 dias , guardar la diferencia de sos dias, a horas:minutos:segundos. por favor espero que me puedan ayudar y si es necesario modificar el frm no hay problema lo que quiero es que guarde esa diferencia. adjunto archivo. Gracias, celest3 PRUEBA.rar

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 663 visitas
  8. Que tal compañeros La redacción del título no se si este bien. Pues necesito apoyo de este detalle, igual ya ha de existir en el foro, lo busco pero no sale lo que necesito o bien no escribo bien por favor orientenme hacia el existente. Tengo un pequeño formulario para insertar el precio, supuestamente inserto el salario diario, cuando se inserte el precio que me calcule el precio con una formula del salario diario multiplicandolo por 30, que viene siendo salario mensual. intento con FormulaR1C1 pero la sintaxis la hago mal, así que lo borré. ¿Alguna sugerencia? GUARDAR.zip

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 662 visitas
  9. Started by qazwer,

    Buenos días tengo un problema en la hoja 2 de excel tengo un documento de certificado que es el mismo para 50 items (50 filas de la hoja 1) pero esta hoja tienes datos que varían dependiendo del item (nombre, codigo, etc,etc) como podría hacer para imprimir 50 copias de la hoja 2 pero que cambien esos datos dependiendo de la hoja 1 por cada impresión(cada fila de la hoja 1 ). en la hoja 1 tengo un rango de A1:J200 en la columna B están los datos a evaluar osea en esa columna hay 4 valores (1,2,3,4) para el formato de la hoja 2 solo me interesan los datos que tengan el valor 3 . La pregunta es como recorro ese rango y a la ves evaluó que la celda de la columna B sea…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 662 visitas
  10. Started by walls071,

    hola a todos, tengo una tabla de excel con datos y utilice la funcion si() para obtener una validacion, la resultantes son "renovar" o pdte" y aqui es a donde requiero de su aporte para que al cumplirse la condicion de "renovar" me envie un correo de aviso indicandome que requiero renovar al cliente en cuestion. a la mejor es un problema muy simple para ustedes, pero un servidor tiene solo el conocimiento basico de esta herramienta. muchas gracias por su apoyo, saludos. eliel. CLIENTES TOÑO-GLORIS.xls

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 662 visitas
  11. Started by pinoji,

    Hola nueva,ente colegas. Profesor JSD, como le explicaba, ayer en la noche estuve haciendo algunas validaciones en el sistema, pero en la revisión me di cuenta que en el TxtPrecio me está multiplicando el valor por 1000. Cuando te remites a la Hoja Tarifario, en la Fila 160 vas a encontrar el precio de este servicio (Factura 21 - Playa Paraiso) Servicio Mtto Impresora Laser que es a $ 420.00, sin embargo el precio lo pone a $ 42 000.00. Adjunto archivo. Profesor, disculpe tantas molestias, en verdad me siento apenado. Un saludo cordial profesor. Mis respetos. Pino Facturación BM v6.0.0 JSD.xlsm

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 662 visitas
    • 2 seguidores
  12. Buenos días, Ojalá y me puedan ayudar con esto.( Yo sé que si ) Tengo un archivo de informe de ventas por año, y necesito saber que clientes compraron en el año 2013 y 2014 y en que mes. Necesito sumar las ventas por mes y por linea(por cada cliente) y pasar los clientes con cada linea en la hoja consolidado, se debe sumar el valor por mes y por linea y pasárselo al cliente correspondiente al 2013 es decir, si el cliente pepito perez compro en enero de 2013 en la linea "ropa Hogar"y pepito perez volvió a comprar en marzo de 2014 en la misma linea, se debe insertar cada suma de cada año en la columna y fila correspondiente. pero si pepito perez compro en el 2014 en fe…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 662 visitas
  13. Hola buenos días tengo un archivo el necesito que me valide los datos cuando copio desde otro archivo pero no lo esta haciendo me explico en la hoja del archivo original tengo el siguiente código, que me valida que no se inserten letras en la columna A y H y que no se inserten números en las columnas B;C,D,E,F el código me funciona cuando dígito pero si pego desde otro archivo por ejemplo letras al campo cedula no me funciona, me podrías ayudar que me hace falta por favor o si quieres te mando el archivo al correo, muchas gracias por tu ayuda. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A, H:H")) Is Nothing Then For Each cel …

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 662 visitas
  14. Hola, muy buenas a tod@s dsd Sevilla......llevo como 15 días intentando comprender las macros y pueden conmigo...me explico; tengo un libro con unas 20 hojas en las que hay una serie de fechas que necesito llegadas ellas me salte el aviso en outlook como tarea pendiente a realizar. Por mucho que veo ejemplos de otras personas, no consigo adecuarlo a lo que necesito. Los avisos son con una antelación a la fecha definitiva, y repito, cada hoja del libro tiene hasta 7 fechas distintas.....alguien me hecha una mano de como enfocarlo????? A lo mejor no es posible lo que quiero o es más complicado para un novato como yo. Adjunto mi fichero para que veais la hoja 1. Gracias...…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 662 visitas
  15. Estimados amigos, esxribo para pedirles una mano y me ayuden a solucionar este problema que tengo. quiero copiar de una tabla cuyo rango es variable la cantidad aproximada de 9 columnas. y ademas de las dos primeras . estas deben ser copiadas hacia abajo de la base de datos tal como indica la hoja "Model" del libro que adjunto. Gracias por su apoyo desde ya. Copiar rango_por determinada cant_columns.zip

    • 0

      Reacciones de usuarios

    • 6 respuestas
    • 662 visitas
  16. buenas amigos de ayudaexcel Os comento mi duda, desde que [uSER=46507]@Macro Antonio[/uSER] me resolvió otra duda sobre temas de colores en excel vba, he estado probando varias combinaciones y pruebas con la propiedad interior.colorindex Pues bién, con ello he pensado un sistema para enviar segun el color y todo iba bien hasta que he llegado a la parte del mail (Mail por CDO) el mail lo envia bien y tal, pero no consigo mandar las celdas de color amarillo en el cuerpo del mail, lo he intentado por activa y pasiva pero nada. aquí os dejo el archivo y os cuento como va, al pulsar combobox cargará la información en rojo, y al seleccionar las entradas en el combo lo pasar…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 662 visitas
  17. Started by ZatuU,

    Estoy construyendo una reporte("hoja Filtrado"), donde necesito ciertos datos que se encuentras en la hoja "BD", para ello hice un form "fmrgenreporte" donde elije las fechas, la idea es que automáticamente sume algunos registros que se encuentran entre las 2 fechas, quizás hacer algunos acumuladores o algo así. Tengo otra duda también aprovechando la consulta, cuando hago los registros, se hacen a través de un form "frmsolicitud" que pega los datos en la hoja "BD" pero ademas NECESITO que se guarde en un libro aparte, señalando la ruta donde se guarda con el nombre del "conductor", y si ya existe un libro con ese nombre que cree una pestaña nueva con nombre "Folio y fec…

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 661 visitas
  18. Started by Andres_tg,

    Hola, saludos a todos os comento lo que quiero conseguir usando una macro. Tengo un excel con varias hojas pero he sacado las dos con las que tengo que trabajar, en la hoja "Rutado Cables" se va añadiendo información y en la hoja "Formato Llenado" se saca un resumen. En la hoja "Rutado Cables" en la fila 18 se van añadiendo las bandejas y en la columna C se van añadiendo los cables. Cuando un cable va en una bandeja en la celda donde se encuentra fila y columna se coloca un "1" , como se ve en el ejemplo. Como he dicho antes la información se coloca manualmente. En la hoja "Formato llenado" en la columna "B" se copia manualmente el nombre de la bandeja, lo qu…

    • 0

      Reacciones de usuarios

    • 6 respuestas
    • 661 visitas
    • 1 seguidor
  19. Started by EDUARD1580,

    buen dia amigo soy nuevo en el foro pero em encantaria que alquien me pudiera ayudar con mi buscador en excel: ejem:en la hoja 1 tengo los datos asi: CODIGO.CODIGO BARRAS PRODUCTO STOK CONTEO 1468 7702434214210 CHOCOLATE X 250 30 1502 7702432468031 MANI X 250 25 en la hoja 2 tengo la busqueda asi: codigo barras:7702434214210 codigo: 1468 producto: chocolate x 250 stok:30 conteo: nota : como hago para sacar la formula para que me busque atomatico la busqueda del codigo 1468 como aparece en la hoja 2 y que al digitar el conteo de la hoja 2 salga en la hoja 1 atomatico y cuando se digite el 1502 de la busqueda al di…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 661 visitas
  20. Por favor, esta tarea es sumamente importante y me sería de mucha utilidad que respondiesen lo más pronto posible. El punto es que he creado un proyecto VBA, y me piden que a través de código encripte el libro, vale decir que al hacer clic en un botón me mande un mensaje "MSGBOX" (Desea Difrar el Documento?), con dos opciones "SI y NO" y si este selecciona la opción SI, me lance un Input Box, pidiendo al usuario una contraseña Alfa Númerica. Y al cerrar y volverla a abrir este solicite dicha contraseña para poder trabajar en el libro. Y por ultimo usando otro botón tenga la opción de desencriptar el libro. Y una ultima duda sobre la propiedad picture, ¿se puede hacer r…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 661 visitas
  21. Buenas, Tengo un problema con una tabla y no le encuentro la vuelta...tengo una tabla con formulas que se accionan depende los datos cargados... puede ser 1 o varios depende el momento del dia...hice un boton macro, lo que necesito que haga es copiar de esa tabla unicamemte las filas que tengan datos (ojo recordemos que algunas de esas celdas tienen formulas que se activan con un dato inicial, como una factura, osea pones el articulo y te da el precio unitario y total) hacia otra planilla. Cuando lo haga or segunda vez necesito que copie los datos abajo del ultimo datos ya copiado para que no se superponga... Muchas Gracias

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 661 visitas
  22. Started by victorroman1605,

    Error al Iniciar excel por complemento movido de directorio buen día, Mi problema es el siguiente: Agregue un complemento que se llama Turboflitro mismo que tenia una ubicación en mi disco duro externo, quise organizar mis complementos y los cambié de ubicación y los cargue otra vez desde su nueva ubicación. el asunto aquí es que cuando inicia excel me muestra el error avisándome que el complemento turbofiltro ha sido movido o se ha eliminado. lo reviso lo cambio de directorio y una y otra vez sale el error en cada ocasión que inicio mi excel Es excel 2007 Saludos!!! - - - - - Mensaje combinado - - - - - [ATTACH]37412.vB[/ATTACH] Adjunto Mensaje - - - - - Mensaj…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 661 visitas
  23. Started by Albertofitness,

    Hola chicos os quiero felicitar por vuestra pag sin vosotros muchos de nosotros estariamos perdidos muchas gracia a todos.El motivo escribiros es que tengo unos errores: 1º- En el formulario Clientes cuando agrego a un nuevo cliente y le doy al BOTON AGREGAR en el aviso que me pone me tenia que poner el ( El cliente <nombre tal> se ha agregado correctamente).Pero el <nombre tal > no me sale de la persona en el aviso.Pero solo con el boton agregar en los demas botones si me sale bien y no se porque? La otra cuestión es : 2º-Tengo dos formularios uno CALENDARIOCITAS y otro HORARIO CITAS.Lo que intento hacer es que cuando das a un boton de una fecha como lo he…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 661 visitas
  24. Started by Gerardo Arevalo,

    Buen dia a todos! Quisiera saber si me pudiera apoyar con esta macro ya que no logro adaptarla a lo que deceo y hacerla funcional. Tengo un libro en el cual tengo dos hojas en ambas tengo el mismo numero de columnas con el mismo tipo de informacion, yo lo que quiero lograr es que de la hoja2 compare la columna A hasta encontrar celda vacia contra la hoja1 columna A hasta encontrar celda vacia, si encuentra el dato entonces reemplazar toda esa fila de la hoja2 en la hoja1 en la posicion donde encontro el dato que coincide. HAsta ahora solo tengo esta parte. Sub repetidos() sheets("Hoja1").Select Range("a1").Select posicion = 1 While ActiveCell.Value <…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 661 visitas
  25. Started by gary rock,

    Buen dia Mi problema es el siguiente, tengo un archivo donde manejo un listado de refacciones las cuales se pueden ver en un Useform, las tengo organizadas por equipo, pero al momento de abrir la plantilla (Useform) me aparece el listado completo. Quiero saber si al momento de aparacerme el listado se puede filtrar directamente en el listbox o tengo que poner un boton mas. Dibujos_Moldeo - Copy.zip

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 661 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.