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

    Cuando estoy capturando sobre del Textbox y quiero cambiar de linea solo me lo hace con Ctrl+Enter Existe algo para que con solo el Enter me cambie de línea y no se salga del TextBox?

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 750 visitas
    • 2 seguidores
  2. Started by EMILIO CIEZA,

    Tengo programada esta macro para insertar una imagen en una hoja de Excel, y funciona bien. Sub InsertarImagen() Set MiPc = CreateObject("Scripting.FileSystemObject") Set Carpeta = MiPc.GetFolder("C:\Documents and Settings\Usuario\Escritorio\foto\") Set Archivos = Carpeta.Files For Each Archivo In Archivos: Exit For: Next ActiveSheet.Pictures.Insert(Archivo).Select ActiveCell.Select End Sub La pregunta es: ¿como se programaría para un equipo con sistema operativo MAC?

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 750 visitas
  3. Started by enrux,

    hola .. compañeros Quisiera que me Ayudaran por favor con este codigo... sub impr() ImpresoraActual = Application.ActivePrinter ' With Application.Dialogs(xlDialogPrinterSetup) If .Show Then Sheets("Ajuste").PrintOut Copies:=1, Collate:=True End If End With Application.ActivePrinter = ImpresoraActual End Sub[/CODE] cuando voy a imprimir le doy configurar en la configuración de la impresora.. pongo papel manual o cualquier otra configuracion.. siempre me imprime con la bandeja principa.. Gracias chicos impresion cod.rar

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 750 visitas
  4. Hola!! En este archivo con macros he intentado añadir en la celda que esta en color amarillo llamada autonomia que debajo tiene un filtro, 4 busquedas mas, las que son Ruta 1, Ruta 2, Ruta Centro y Ruta Santa Cruz, y eliminar el No, en total serian 6, en las que yo pueda desplegar y seleccionar la que quiera, lo he hecho de todas maneras y me da error, no se me actualiza. Adjunto el archivo. Búsqueda de usuarios .xlsm

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 750 visitas
  5. Started by JRGO,

    Buenas amigos del foro necesito ayuda con un archivo, necesito trasladar a una hoja de excel nueva solo la informacion que quiero, tengo una macro pero no me corre bien traslada todas las hojas, si alguien puede ayudarme, y donde dice la cantidad en numero en letras la palabra "bolivares" fuera en mayuscula como el resto de las letras, saludos Prueba.rar

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 749 visitas
  6. Buenos días, Tengo dos libros excel 1.- Copia de localizar_duplicados_hoja1_en_hoja2_a_4 2.- Archivo_A ambos comparten 4 hojas con el mismo nombre MAYO_15 Devolucion_MAYO_15 Anulacion cobros_MAYO_15 Anulacion_devolución_MAYO_15 Querría conseguir que la primera columna de estas hojas del libro MAYO_2015 se copiaran en la primera columna de las respectivas hojas del libro Copia de localizar_duplicados_hoja1_en_hoja2_a_4. Adjunto una macro para copiar varias columnas de un libro de excel a otro, pero no sé adaptarla para que sólo me copie la primera columna. Además, en la última hoja del libro Copia de localizar_duplicados_hoja1_en_hoja2_a_4 hay una hoja denom…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 749 visitas
  7. hola amigos tengo el siguiente codigo Sub guardar() Dim posicion As Integer Uf = Hoja5.Range("A" & Rows.Count).End(xlUp).Row For i = 0 To Pagos.ListCount - 1 If Pagos.Selected(i) = True Then On Error Resume Next With Sheets("Credito") pos1 = .Range("A2:A1000000").Find(cl1, lookat:=xlWhole).Row posicion = Application.WorksheetFunction.Match(Hoja4.Cells(i, 1), .Range("A" & pos1 & ":" & "aw" & pos1), -1) .Cells(pos1, posicion).Interior.ColorIndex = 3 End With End If Pagos.Selected(i) = False Next MsgBox "Datos Registrados con Exito", vbInformation, "Registrar" End Sub que hace este codigo, primero hay un formulario el cual manda …

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 749 visitas
  8. Started by vicbey,

    Hola, buenas noches Estoy realizando una aplicación FLASHCARD MULTILINGUE, apenas tengo el inicio.....APARECEN LOS TERMINOS DE CADA LENGUA EN CUANTO ESTOY EN ALGUNA DE LAS FILAS pero desconozco los códigos en VB para poder hacer todo la idea del proyecto... Se trata de varias columnas; 4 lenguas, índice, nivel de dificultad (clasificación de tarjetas...sabidas o no sabidas), y columnas de Audio y Foto.... En concreto la problemática la encuentro respecto a los filtros, el poder reproducir audio y el asunto de la dificultad de cada tarjeta..(cómo marcarla..y modificarlo). Incluyo el excel, la carpeta con los archivos de imagen y audio, junto a un pdf con las instruccio…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 749 visitas
  9. Hola como están. Por favor su colaboración. La macro en el botón insertar fila copia la fila 5 que está escondida y la pega en la primera celda disponible en A y adicional inserta una línea debajo de la fila pegada (de esta manera baja la información que hay en el archivo real. El problema es que la fila que se inserta trae el formato de la celdas de columna I y K, es decir, está conservando el color gris. Lo que quiero es que no tenga color gris en esas columnas (I y K) de la fila insertada. ELIMINAR FORMATO FILA.xlsm

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 749 visitas
  10. He estado buscando pero no he visto nada tipo lo mio, si hay algo, por favor disculpadme, me indicais y que se cierre el tema. Voy a explicaros un poco, lo que estoy haciendo y donde me e quedado atascada. He creado una tarifa, a la que quiero ponerle fecha de caducidad, para ello le he puesto una portada en la que obliga a habilitar las macros para que pueda funcionar, y dentro la fecha de caducidad, con la idea de que cuando haya pasado la fecha, el documento se autoelimine o se eliminen filas del mismo. Para obligar a que cada vez que se use el fichero se tengan que habilitar las macros, he deshabilitado las opciones de guardar con los comandos workbook.beforesave y…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 749 visitas
  11. Hola, Necesitaría una macro que realizase lo siguiente: 1.- Revisar la pestaña "I-IBEX" y comprobar si alguna fecha (columna A) NO existe en la pestaña "IBEX" 2.- En el caso de que no existiera, agregar la línea en cuestion (columnas A hasta G) a la última línea de la pestaña "IBEX", es decir a continuación del último registro. Opcionalmente y si fuera posible, que agregase los registros ordenados por fecha creciente, aunque tampoco es muy importante porque luego los podría ordenar yo. Muchas gracias macro para copiar datos.rar

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 749 visitas
  12. Started by JoaoM,

    Esta simple macro es de Macro Antonio. Sub NoCopiarObjetosAlCopiarHoja() Application.CopyObjectsWithCells = False Hoja1.Cells.Copy Hoja2.Range("A1") Application.CopyObjectsWithCells = True End Sub[/CODE] Necesito si posible; ¿Se podria agregar para que copie (de preferencia Guarde como:) la hoja activa? SIN objetos, SIN formulas y SIN codigo en la hoja (si existiera), dejando [color=#FF0000][b]todo lo demas[/b][/color]. Cuando mensiono [color=#FF0000][b]"todo lo demas"[/b][/color] me refiero a imagenes, datos, valores ect

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 749 visitas
  13. Hola, Estoy mirando por la red y seguro que mi duda también está perfectamente explicada en algún sitio ya que es increíble la cantidad de información que existe pero, no puedo demorar más el envío que me han encomendado, así que me he atrevido a pedir nuevamente vuestra inestimable ayuda. Tengo que enviar un informe y a su vez solicitar información a diversas empresas. Tengo que filtrar la información correspondiente a cada una de ellas pero sólo me tiene que filtrar la información que existe. No sé como decirle que si no hay nada, que no haga nada. Bueno no se nada. Envío un archivo que quizá os ayude a comprender mejor lo que necesito. Gracias de nuevo y un saludo…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 748 visitas
  14. Estimado buenos días, como están, una consulta tengo un formulario con lista que al hacer click me muestra una imagen y si lo quiero ver mas grande le doy click en la imagen se me habré un formulario pero al cerrarlo se me duplica las datos que tengo en la lista, alguien sabe por que Gracias amigos

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 748 visitas
  15. Hola Amigos Por favor quisera que me ayuden a crear una macro que permita insetar automaticamente la formula que aparece en la celdas de a Columna "E1" y "F1" a lo largo de cada una de las columnas respectivamente,algo así muy parecido a lo establecido en la Columna"D". Gracias por su ayuda, de antemano. InsertarFormulas.zip

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 748 visitas
  16. Hola necesito su ayuda estoy necesitando una macro que me permita extraer la información de varios fichas y hojas de diferentes archivos para consolidar una sola base de datos

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 748 visitas
  17. Started by pedrinclub,

    Estimados amigos con la ayuda de ustedes pude hacer una macro con BUSCARV como se detalla: 'En un Módulo: Sub Buscarv() ActiveCell = Application.VLookup(ActiveCell.Offset(, -1), Sheets("Hoja1").Range("A1:B15"), 2, False) End Sub 'En la hoja activa Private Sub Worksheet_Change(ByVal Target As Range) Celda = "A:A" If Not Application.Intersect(Target, Range(Celda)) Is Nothing Then ActiveCell.Offset(-1, 1).Select Call Buscarv End If End Sub En la hoja1 tengo la lista donde se extrae los datos y en la hoja2 en la celda coloco un nombre y me devuelve su equivalente de la tabla. Esto me funciona a la perfección cuando se ingresa nombre por nombre, pero ahora estoy …

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 748 visitas
  18. Hola amigos de Ayuda Excel El día de ayer dos excelentes colaboradores de AE, ante una consulta que hice, me propusieron que era mejor una macro que ejecutara otra macro de manera automática. Uno de los colaboradores me brindó el siguiente código que me funcionó perfectamente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 4 And _ Target.Column = 5 And _ Target(1, 1) <> "" Then Call MacroA End If End Sub Al respecto pensé, que tenía 3 hojas similares que podía aplicar la misma estrategia, pero con la diferencia de que en éstas hojas, la celda que va a determinar la ejecución de la macro …

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 748 visitas
  19. Que tal amigos expertos, hoy he estado repasando un código para descargar la información en dos hojas de un libro de excel. La descarga de los datos en las hojas es simultaneo y es casi perfecto ya que en su mayoría textbox(1-n) y combobox 1 hacen su tarea correctamente, el problema es que el combobox2 no lo hace del todo bien.Digo esto porque el comobobox2 solo descarga la información en una hoja,(SALIDAS), y no en dos que sería lo ideal.La verdad no logro percibir cual es el error en el código,ya que los textbox y el combobox1 tienen la misma lógica y si llevan a cabo su tarea. Espero puedan ayudarme amigos expertos.De antemano les doy las gracias por su ayuda.Reciban …

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 748 visitas
  20. Started by aletamez89,

    Hola a todos, Tengo una macro que lo que hace es separar cuentas pendientes por cada uno de mis clientes y las envia directamente a su correo. El problema es que cada uno de los correos que manda pesa 4mb y esto me vuelve muy lento tanto mi excel como mi outllok y en realidad no es un archivo grande el que manda. Habra alguna opcion para que estos correos se hagan un poco menos pesados? De antemano, gracias por sus comentarios. Les adjunto un ejemplo de lo que envia la Macro: EjemploMacro.xls

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 748 visitas
  21. Hola a todos, Para una simulación docente utilizo un archivo de Excel que contiene columnas pareadas de datos que forman grupos. Adjunto archivo con datos y código para se entienda mejor lo que tengo y lo que necesito. Con esos datos quiero: · Que en determinados puntos de cada par de columnas (mismo color) se permuten datos de forma aleatoria. · Que el resultado el proceso de permuta se copie en una nueva ubicación. · Que el proceso se realice para todos los grupos de datos hasta acabar. Que es lo que tengo: · He escrito una macro que realiza correctamente todo el proceso (está en el archivo y contiene comentario…

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 748 visitas
    • 1 seguidor
  22. Started by aprendiz,

    buenas tengo unas dudas y queria saber si me pueden ayudar a aclararmelas, queria preguntarles como es la estructura del codigo para lanzar mensaje de "faltan datos", en varias condiciones: 1- de un formulario que envia los datos a un userform para mostrar un resumen de ellos (cosa que intente pero a pesar de que me tira ventana de error me aparece el userform de resumen) 2- de un formulario a una hoja de excel tomando en cuenta que hay combobox textbox y optionbox que cambia la propiedad visible a un combobox NUEVO BANANA AUXIACTIVOS 3.rar

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 748 visitas
  23. Started by kikerubi,

    Hola amigos del foro buenas!!! Acudo a ustedes con la siguiente duda: Tengo que insertar 2 fechas en un formulario, pero me gustaría lograr que mediante 2 label (una para cada fecha) una vez que se ha seleeccionado la fecha de inicio, éste se habilite de color verde, mismo para la fecha de final. Lo anterior con el propósito de que se tenga una noción de las preguntas que ya se han contestado (en el formulario principal en el que estoy trabajando se va habilitando el background de color verde una vez que se contesta cada pregunta). Espero no sea molestia y pudieran apoyarme pues desconozco los comandos correctos del DTpicker para realizar dicha condición. Gracia…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 747 visitas
  24. Started by exskizzo,

    Buenos dias. Revisando los aportes, particularmente en este que es de [uSER=46507]@Macro Antonio[/uSER]: https://www.ayudaexcel.com/foro/threads/numerador-de-documentos.13521/#post-67345 Este aporte lo aplico desde hace un par de años, pero como todo va evolucionando, me ha surgido una duda la cual describo a continuacion y saber si es posible lo siguiente: Este aporte funciona para enumerar una por una hoja, si lo que pretendo es enumerar varias hojas a la vez, como hacerlo con este mismo aporte. Gracias y saludos.

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 747 visitas
  25. Started by dadacota,

    Buenos dias, Les comento Tengo una matriz en la solapa uno (doble) en la cual marco con una X cirtos valores [ATTACH]39126.vB[/ATTACH] la idea es crear una macro con el la solapa dos me muestre en la una fila y columna o 2 los datos que estan marcados con X y que si marco algun nuevo campo corra la macro automaticamente y lo muestre si es posible la idea quedaria asi [ATTACH]39127.vB[/ATTACH] Agradecería que me den una mano con el macro.

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 747 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.