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

    buenos días, bendiciones ! serian tan amables de aconsejarme para poder organizar la información de una manera mas rápido, ya que todos los días tengo que hacerlo manual y me gasto mucho tiempo organizando. les agradezco mucho su consejo como quiero que quede : así se exporta el informe: informe empaque.xlsx

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 774 visitas
    • 1 seguidor
  2. Started by TREBUR,

    Buenas noches... En el fichero adjunto tengo una serie de columnas a la que quisiera colocarle una restricción para evitar errores involuntarios con los usuarios que lo utilicen... Cada columna tiene su comentario, pero la restricción es solo para las que dicen: No se permiten números 0123456789 No se permiten caracteres especiales (!#$%&/()=?¿¡”*¨[ ] + { }:;) ¿Es posible con macro? plant.xlsm

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 2.1k visitas
    • 1 seguidor
  3. Started by Sirena,

    hola amigos, verán he creado una macros que debería crear una tabla dinámica por si sola, ya que grabe todo el procedimiento, sin embargo cuando la ejecuto, me pide que ingrese la lista de campos que quiero que aparezcan y termino haciendo todo yo, finalmente lo único que esta macros esta haciendo es como un enlace directo al botón "tablas dinámicas" y seria absurdo crear una macros solo para eso, en ese caso me voy yo misma a "..insertar/tabla dinámica" ayuda por favor no se que hice mal, les dejo el código Sub Macro2() ' ' Macro2 Macro ' ' ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Hoja1!F1C1:F1048576C18", Version:=xlPiv…

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 1.2k visitas
  4. Started by Yerson RA,

    Buenas tardes comunidad, necesito ayuda con un trabajo en Excel con visual Basic, tengo un formulario con un listbox que muestra los datos que están dentro de una tabla en una hoja de excel y también un texbox que se llena mediante un pequeño calendario, la ayuda que necesito es que cuando se llene el texbox con una fecha el listbox muestre todos los registros de esa fecha

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 718 visitas
    • 1 seguidor
  5. Started by kyo8888,

    Bunas a todos los del foro, necesito saber si alguien me puede ayudar necesito hacer los siguiente; tengo una conjunto de celdas en dos columnas que necesito se repitan hacia abajo 148 veces. ejemplo que los datos de la columna 1 y 2 se repitan hacia abajo 148 veces. ojala me puedan ayudar gracias. Columna 1 Columna 2 [TABLE=width: 160] [TR] [TD=class: xl65, width: 80]5001113[/TD] [TD=class: xl66, width: 80, align: right]990[/TD] [/TR] [TR] [TD=class: xl65]5004148[/TD] [TD=class: xl66, align: right]280[/TD] [/TR] [TR] [TD=class: xl65]8000966[/TD] [TD=class: xl66, align: right]1090[/TD] [/TR] [TR] [TD=class: xl65]8000970[…

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 1.1k visitas
  6. Saludos de nuevo y buenas tardes. Desearia saber como puedo renombar un TextBox dentro de un formulario y mas concretamente en el evento Initialize del FORM. He aplicado esta sentencia pero obtengo un error, y no se como resolverlo. Gracias. ThisWorkbook.VBProject.VBComponents("FRM_Benef_Riesgo").Designer.Controls("TXT_Precio").Name = "TXT_Nuevo_Precio" Muchas gracias, Josep Miquel.

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 947 visitas
    • 2 seguidores
  7. Buena noche foristas. Quisiera solicitar su apoyo para ver si puedo solucionar el siguiente inconveniente. Estoy trabajando unas tablas que permitirán llevar un mejor control de verduras. He avanzado un poco, pero actualmente estoy parado en lo siguiente: A partir de la celdas B3:C3 enlisto las verduras de la semana, el cual es un listado variable. Para el ejemplo, tengo 4 verduras, y lo que quisiera hacer es que con una macro, se copie estas verduras que ingresaron esta semana, y por cada verdura, se incerte en la columna anexa 4 parámetros dispuestos en fila, como son: Orígen, Variedad, Peso y el Vendedor. Además, mentener un estilo de borde, el cual describ…

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 585 visitas
    • 1 seguidor
  8. Started by dff1403,

    Hola a todos, En el archivo adjunto me gustaría saber como puedo hacer que me pueda enviar mensajes automaticos segun la la aproximacion de la fecha de la columna K pero con un intervalo de 20 dias antes de la fecha, 15 dias antes de la fecha y 11 dias antes de la fecha que ese sea el rango en el que se envie un email de notificacion el cual debera llevar en el asunto del mensaje los datos de las columna A (trabajo), C (cliente) y J (Orden de compra). No puedo colocar el email ya que es de mi trabajo pero es de outlook. Seria posible realiazar esta solicitud? Muchas Gracias por su colaboracion. Saludos, EJEMPLO MACRO.zip

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 1k visitas
  9. Buen día!!! Presento el siguiente archivo el cual presenta 3 hojas; Compras, Ventas y Clientes. Por medio de una macro de evento en la hoja Ventas se despliega un Userform para seleccionar el nombre del cliente en la columna "D" y en la Columna "E" a través de un BuscarV se adiciona el número de RIF (Identificacion Fiscal del Cliente). Quisiera que si el registro no existe en la Base de Datos de la hoja Clientes lo pueda incluir para futuras consultas. Se aceptan mejoras en este proceso (de consultar e incluir datos). Gracias de antemano. Mi PC no me deja adjuntar archivos, no sé si será una falla en el navegador ó en el Sistema Operativo. No me despliega la ventana de ca…

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 2.5k visitas
  10. Started by principiante9,

    Buenos días, Tengo un macro que permite enviar mail con 1 adjunto que hasta hace nada funcionaba perfectamente pero ahora me da error. Me podéis ayudar?

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 5.2k visitas
  11. Buenas, Quisiera realizar una lista desplegable que dependiera de la siguiente forma. Si alguien puede ayudarme os lo agradeceria mucho. Tengo una pestaña (BASE DATOS) con las siguientes listas Tuberia y sus categorias y variantes. Cableado y sus categorias y variantes Elementos y sus categorias y variantes. La idea es que en LISTADO al seleccionar una celda (A1) pueda elegir entre tuberia, cableado o elementos. Al realizar eso en (A2) pueda elegir entre las categorias de cada uno y en (A3) pueda elegir su variante Estamos intentando crear una base de datos que se pueda ir ampliando, para la realizacion de mediciones. Por ejemplo A1…

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 2k visitas
  12. da error de archivo no encontrado; que debo hacer para que se ejecute : WDir1 = "\\DESKTOP-13453GE\C:\Users\ipm20\Desktop\WProces\" WDir2= "F09-CompVda-PC2-20230701.xlsm" Run = "'" & WDir1 & WDir2 & "'!ProcCompVda" Application.Run WRun muchas gracias

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 539 visitas
    • 2 seguidores
  13. Started by Felixin76,

    Buenas a todos los forer@s Estoy realizando un userform con varios textbox y combo box y estoy bloqueado en un punto en el cual me gustaria que me ayudasen con ello necesito limitar un textbox con la fecha ,que no se vaya de valores minimo y maximos que indique Quiero limitar el textbox con las fechas 01/01/23 ----31/12/23 Me podrian ayudar con este tema Un saludo y muchas gracias por su tiempo

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 1.2k visitas
  14. Started by JRGO,

    Buenas Amigos necesito ayuda con una macro, quiero hacer una donde me refleje al presionar un botón el libro mayor, mayor analítico, balance de comprobación y los estados financieros, pero primero quiero empezar con el mayor y entonces tengo un problema con la macro que no me permite avanzar los datos, es un tema interesante para las personas que les gusta la contabilidad, saludos PRUEBA.rar

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 1.6k visitas
  15. Started by kristianoDl,

    [TABLE=class: tablevacia] [TR] [TD]Hola saludos, como puedo hacer para al desplegar calendario de un combobox, y seleccione una fecha y aparesca la fecha seleccionada en el combobox [/TD] [TD=width: 3%][/TD] [/TR] [/TABLE]

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 8.8k visitas
  16. Started by SALAVERRINO,

    Buenas noches a los integrantes de este prestigioso foro, en esta ocasion recurro a Uds, para que brinde su ayuda con una macro, el cual me permita copiar o mover los archivos con un nombre particular MN PIA, el cual detallo a continuacion. *La informacion (archivos) se encuentra en una carpeta especifica (en este caso esta en la unidad "D:\PLANILLAJE PTO ILO\AÑO 2020\PLANILLAJE" AFPNET PTO ILO MN PIA 10-10-2020 20-10-17 HRS.txt CONSOLIDADO CONTAB. 01 GENERAL MN PIA 10-10-20_20-10-30 HRS.xlsx CONSOLIDADO PTO ILO MN PIA 10-10-2020 20-10-30 HRS.xlsm DATA DE JORNADAS_BACKUP MN PIA 10-10-2020 19-9-29 HRS.xlsx PLLA MN PIA PTO ILO MN SETIEMBRE DEL 2020 10-10-20_20-10-3…

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 5.6k visitas
  17. Hola a todos; Con el procedimiento que adjunto guardo el libro en una ruta temporal con la hoja activa, después copio esa ruta en un textbox que tengo en un formulario e envío el mail. Hasta aquí todo bien. La consulta es si es factible que se guarde todo el libro con " todas las hojas que tenga". Saludos y muchas gracias como siempre por su colaboración. Sub adjuntarLibro() Dim RutaTemporal As String, vArchivo As Workbook, vArchivoTemp As String Application.ScreenUpdating = False With ActiveWorkbook .ActiveSheet.Copy End With Set vArchivo = ActiveWorkbook vArchivoTemp = vbNullString RutaTemporal = Environ$("…

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 1.3k visitas
    • 1 seguidor
  18. Started by federtuc,

    LO QUE NECESITO ES CREAR UNA CIERTA CANTIDAD DE COMMANDBUTTON EN UN USERFORM DEPENDIENDO DE LA CANTIDAD DE DATOS QUE HAYA EN LA COLUMNA A DE LA HOJA 1. COLUMNA A FILA 1 ROJO FILA 2 VERDE FILA 3 AZUL FILA 4 AMARILLO FILA5 BLANCO EL CODIGO TIENE QUE CREAR EN ESTE CASO 5 COMMANDBUTTON EN FORMA HORIZONTAL UNO AL LADO DE OTRO SEPARADOS A UNA DISTANCIA DE 1 CM MAS O MENOS. PERO EN EL CASO QUE SEA: COLUMNA A FILA 1 ROJO FILA 2 VERDE FILA 3 AZUL FILA 4 AMARILLO FILA5 BLANCO FILA 6 NEGRO EL CODIGO TIENE QUE CREAR EN ESTE CASO 5 COMMANDBUTTON EN FORMA HORIZONTAL UNO AL LADO DE OTRO SEPARADOS A UNA DISTANCIA DE 1 CM MAS O MENOS. Y EL COMMANDBUTTON 6…

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 2.4k visitas
  19. Ando Atrapado En Mi Proyecto De Control De Almacén en un pequeño error de que no puedo mostrar mas de diez columnas en mi listbox y no se como solucionar ese error lo deje comentado en el listBox programación dejo el archivo para ver si alguien me puede apoyar y pues si el archivo les sirve os dejo como obsequio INVENTARIO.xlsm

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 4.7k visitas
    • 1 seguidor
  20. Started by bomec,

    Estimados foreros: Acudo a su maestría para ver si me pueden ayudar con un problema de importación de TXT a Excel que tengo. He reutilizado, adaptándola, una macro que creó el maestro @Haplox y que mostró en este foro para otro compañero con un problema parecido al que ahora planteo. Aprovecho para agradecerle su propuesta, porque me ha sido muy útil. A lo que vamos... Verán, tengo un archivo de texto delimitado por puntos y coma, el cual quiero importar a una hoja de Excel, pero los datos de cada fila del TXT deben situarse en celdas NO contiguas. He retocado la macro de @Haplox, pero no logro que la importación se realice como yo necesito (se importan los…

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 1.8k visitas
  21. Desarrolle un sistema en PHP y MySQL para un negocio de audiocar. el caso es que ya habia deesarrollado sistemas para otro tipo de negocios como un lubricentro, y siempre los datos de los articulos(lista de precios), de los provedores vienen en archivos de excel. Aunque siempre en tablas comunes (con registros horizontales.). Pero este comercio tiene o le en via su provedor un excel como se ve en la imagen(El archivo pesa 40Mb): Y el caso es que necesito cargar esos datos en la base de datos. Como dije anteriormente teniendo una tabla comun yo lo paso directo con cualquier gestor. He probado transponer copiando y pegando el contenido pero me que…

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 1.7k visitas
  22. Started by home can,

    Hola, Tengo un libro que uso como base de datos en un hotel. En la Hoja1 registro todos los datos relativos a reservas, entradas, salidas, facturación, etc., y en diferentes hojas resumo algunos datos de la BD conforme a determinados criterios para obtener distintos tipos de estadísticas. Inicialmente usé fórmulas para los resúmenes, pero el proceso de cálculo ralentizaba el funcionamiento del libro, por ejemplo al abrirlo. Entonces decidí grabar las fórmulas en una macro en combinación con el evento Worksheet_SelectionChange(ByVal Target As Range), lo cual agilizó considerablemente el proceso pero me obliga a clickar/seleccionar la fecha en el calendario para que l…

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 3.5k visitas
  23. Started by AdolfoGus,

    Estimados En un formulario tengo varios textbox con evento exit, se comportan como tales, es decir el código corre una vez ingreso un dato y doy el enter, sin embargo uno de ellos cuyo código es similar a otros: Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox10.BackColor = &HFFFFFF 'Blanco Me.TextBox13.BackColor = &HFF& 'Rojo Me.TextBox13.SetFocus End Sub Se comporta como si fuera evento enter, es decir no recibe el Foco y ejecuta los códigos antes del ingreso de los datos, además con el enter no ingresa el dato, debo hacerlo con el cursor, pasando a otr…

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 6.8k visitas
  24. Hola a todos, he puesto un control de errores en un procedimiento y se duplica el mensaje de error dos veces y no se porqué lo hace. El procedimiento es este: Sub InsertarTabla() On Error GoTo Etiqueta Dim nTabla As String nTabla = ActiveSheet.ListObjects(1).Name ActiveSheet.Range(nTabla & "[#All]").Select Selection.Copy Etiqueta: If Err.Number = 0 Then 'Correcto ElseIf Err.Number = 9 Then 'No sé porque repite dos veces el mensaje, si no hay ninguna tabla debe destildar el check MsgBox "No hay ninguna tabla, operación cancelada", vbCritical, "Mensaje" UserForm1.CheckBox1.Value = False '---> Si comen…

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 515 visitas
    • 1 seguidor
  25. Started by Onotera,

    Buenos días, Tengo la siguiente macro y en mi ordenador va más o menos rápida, pero en un ordenador conectado en red tarda una eternidad en crear las pestañas Creacion hojas obra - copia.xlsb

    • 0

      Reacciones de usuarios

    • 12 respuestas
    • 6.3k 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.