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. Buenas a todos, un servicio: Estaba leyendo un topic muy interesante que hacía referencia JoaoM en https://www.ayudaexcel.com/foro/threads/vinculacion-de-contrasena-de-acceso-y-lista-para-regla-de-validacion.38016/ , pero que lastimosamente se ha cerrado por abandono, del cual lo estoy adaptando a un archivo mio, pero que la estructura de la hoja “Autorizados” difiere sólo en una columna adicional a la que yo la nombro como “Tabla_usuarios” y que contiene las siguientes columnas: ID, USUARIOS, USUARIOS_NOMBRES, AREA_NOMBRES, PASSWORD y PERFIL y he reemplazo las celdas que nombra el código B12 y B14 por I2 e I4 respectivamente. Lo que sucede que me aparece una alerta: “Se…

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 994 visitas
  2. Hola compañeros, necesito solucionar el siguiente problema: "Tengo dos tablas de ejemplo, una se llama TABLA y la otra RESULTADOS. Cada una de ellas contiene su propia clave primaria. Tabla TABLA Tabla RESULTADOS El problema que quiero solucionar es que cada vez que un usuario haga click en una de las celda del campo FK TABLA, se le muestre toda la información detallada de ese registro en concreto, tal y como se muestra en la siguiente imagen. Video DEMO Espero que con el vídeo anterior se vea claramente lo que quiero conseguir. Este es el código que utilizo. Private Sub…

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 2.4k visitas
    • 1 seguidor
  3. hola a todos, soi nuevo espero que el tema valla aqui, tengo une exel que calcula la factura del agua, lo que hace es distribulle el agua consumida en 4 bloques, el primero que es asta 15, en elc aso de que lo consumido sea mas grande a 15 uns egundo que tambien es asta 15, si el valor es 30+ ai el 3 bloque en el cual llega asta 24, esto hace que si consumas 54 litro de agua 1,2 i 3 bloqeu se llenen, i el 4 bloque que es todo lode mas que gastes de agua, cada bloque multiplica la cantidad gastada pr su valor idenpendiente, el priemr bloque es mas varato i el 4 el ams caro.(para pasar a el sigueiente el 1 tien k llenarse). Lo que quiero es que si el primer bloque no se ll…

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 1.3k visitas
  4. Estimados amigos, por favor me ayudan con esta consulta: para hacer informes de avance de obra, quisiera usar una fórmula que permita que al hacer una nueva hoja ( worksheet ), traiga datos de la hoja anterior. Me gustaría hacerlo sin macro, si es posible. Por favor me pueden aclarar si existe una fórmula para ese propósito? Mil gracias.

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 2.3k visitas
    • 1 seguidor
  5. Hola a todos. Llevo un tiempo dándole vueltas a este ejercicio y no acabo de sacarlo. Quería saber si podéis ayudarme a resolverlo. Tengo una tabla con 2 columnas (Alumno, Idioma) en la Hoja3. Necesito añadir los valores únicos de la columna "Alumno" a un ComboBox para que sólo aparezca una vez cada nombre. Después al seleccionar un nombre en el ComboBox pasaría automáticamente a la Hoja2 y cargaría en el Combobox de esa hoja los idiomas de la columna "Idiomas", pero sólamente los que tenga el alumno que hemos seleccionado en el Combobox de la Hoja1. Por ejemplo: - Se abre el archivo por la Hoja1 - En la lista "Alumn…

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 2.1k visitas
  6. Buenas Tardes Tengo dos cadenas de texto, la idea es averiguar si todos los caracteres que contiene una cadena están en la otra, no importando el orden. Saludos Cordiales Pedro Cadenas de texto.xlsx

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 3.1k visitas
    • 1 seguidor
  7. Estimados amigos del foro. para pasar de numeros a arabigos a romanos en codigo macro me han sugerido usar evaluate(= En realidad quiero que lo que esta en un combobox CbxRoman pueda mostrarse en numeros arabigos Asi: Sub GetNumeroRomano() Dim d As Long d = 22 'CbxArabigo.value MsgBox Evaluate("=ROMAN(" & d & ")") End Sub pero a la inversa para pasar de romano a arabigo no encuentro el modo he probado así: Sub GetNumeroArabe() Dim d As String d = "II" 'CbxRoman.value MsgBox Evaluate("=NUMERO.ARABE(" & d & ")") End Sub Pero no funciona Tienen alguna sugerencia? Gracias

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 5.2k visitas
  8. Started by Pedro Alonso,

    Hola a tod@s. Al pasar el cursor por encima de una celda que contiene un vinculo, aparece un cuadro con toda la ruta de acceso. A veces el cuadro (galleta) es muy grande y me molesta mucho. ¿Como puedo hacer para que el punteo salga solo y sin ningún texxto?. MUCHISIMAS GRACIAS A TODOS.

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 760 visitas
    • 3 seguidores
  9. Started by vic91am,

    Buenas tardes amigos!! Con la nueva forma de pago de los parkimetros con el movil he descubierto que puedes bajarte como una base de datos con los tiempos, zona, importe gastado.... Me gustaría hacer una macro para ahorrarme tiempo con una base de datos resumida solo con los datos que me importan. Me podéis echar una mano?? En la hoja gastos pongo como me sale de la pagina web y en resumen como me gustaría que quedara. Creo que es algo sencillo pero soy muy torpe para esto. Gracias!!! Si tenéis algún problema no dudéis en comentarme. Un Saludo Parkin.xls

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 1.2k visitas
  10. Started by fenikkusu,

    Buenas tardes, he estado trabajando en una macros en la cual consta de 7 campos, la funcion principal de la planilla es la aministracion de personal activo en la empresa y necesito saber quien está en este momento trabajando y quien no, debo mediante una lista desplegable aplicar un estado a las personas para ver si cumplen con las siguiientes condiciones: Activo, Licencia Médica, Vacaciones, Desvinculado. cuando cumple con la condicion de desvinculado, esta debe eliminarse de la hoja principal y agregarse en la hoja 2 para llevar el registro de las personas desvinculadas y revisar los trabajos que le pueden haber quedado pendientes. al cumplirse los otros estados solo e…

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 669 visitas
    • 2 seguidores
  11. Started by JoaoM,

    Tengo este libro; samradDatePicker.xls, ¿Qué hace? es un libro en que se coloca en la carpeta XLSTART de Office y al tener una celda con alguna fecha al seleccionar la siguiente se presenta a la derecha un icono en que al darle se abre un calendario para que se puede auto-insertar fecha, pues bien. Este libro contienen macros y TODO libro que contenga macros abriendo Excel X64 presenta este avso; cualquier libro que contenga macros creadas en Excel X86, y abierto en Excel X64 presenta esto, mi pregunta; ¿alguien me puede dar una mano a resolver esto? la verdad es que soy inexperto en estos menesteres de macros y quisiera poder abrir libros creados en X86 también pode…

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 2.1k visitas
  12. hola necesito saber cual es el procedimiento paraa recorrer un label y que me devuelva una palabra por ejemplo en la segunda posicion, el problema es que es dinamico el texto va cambiando segun otras operaciones, entonces necesito que me devuelva la palabra en una pocicion especifica independiente del largo de la palabra o numero de caracteres proque variara la palabra que se quiere devolver. saludos

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 807 visitas
  13. COMO SE PUEDE BLOQUEAR LOS BOTONES DE MAXIMIZAR Y MINIMIZAR EN EXCEL CON UNA MACRO

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 6.8k visitas
  14. Estimados amigos: En un archivo Excel tengo una tabla de datos bastanteextensa que importo de otra aplicación y genera un archivo con numerosas hojasy miles de registros. A modo de ejemplo os adjunto un libro que ya contiene unamacro que me permite eliminar filas de manera aleatoria en función de un rangoseleccionado: desde fila, hasta fila y el número de líneas que se deseanborrar,pero necesitaría concretar más la macro y que haga también lo siguiente:Que para una hoja concreta, seleccionando una columna y un concepto existenteen celdas de esa columna, y un importe sumatorio de valores de otra columna quecumplan ese criterio, me borre aleatoriamente filas hasta obtener…

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 2.5k visitas
  15. Started by Jose BN,

    Buenos días, Amigos del foro hace unos días JSDJSD me comentaba sobre la herramienta libre llamada Custom UI Editor for Microsoft Office la cual me di a la tarea de investigar un poco el tema, compartiendo el esquema creado hasta el momento: <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTab" label="FacturacionJB" insertBeforeMso="TabInsert"> <group id="customGroup" label="NN Holding Solutions"> <button id="customButton1" label="Buscar" size="large" onAction="MI MACRO" image="images" screentip="permite buscar la cantidad …

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 3.4k visitas
    • 2 seguidores
  16. Started by Puche,

    Hola buenas noches, He estado revisando antiguos post en la pagina sobre este tema pero ninguno se adapta a lo que necesito exactamente. Necesito poder imprimir el contenido de mi Listbox en horizontal y con los encabezados. He conseguido hacerlo pero en vertical y sin encabezados. Espero me puedan ayudar. Un saludo, Diseño2.xlsm

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 1.2k visitas
    • 1 seguidor
  17. Hola, no se si es posible, pero llevo unos días pensando en esto y no doy con la tecla. El tema sería que al pulsar una de las pestañas de la cinta de opciones en este caso Frutería que me ocultara la Hoja2 y cuando pulse en Frutería1 me oculte Hoja1 y haga visible Hoja2. Lo de ocultar y hacer visible no es el problema, el problema es como hago referencia a si están o no activas las pestañas cuando pulso sobre una de ellas. pRUEBA1.xlsm

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 2.8k visitas
    • 1 seguidor
  18. Hola, antes que todo, muchas gracias, por hacer lo que hacen, que es enseñar, ayudar y solucionar los problemas de excel que como yo un usuario comun puede mejorar a optimizar los procesos de nuestros trabajos, de corazon gracias. Ahora quiero ser patudo, jajajaj, la verdad que gracias a ustedes he echo algunas cosillas que me sirven muchisimo, pero la presentación o la forma como se muestra lo realizado no es muy grato, ademas es muy lento para abrir, quisiera mejorar la presentacion con algunos userfom y botones mas armonicos, ojala que cuando habra excel o mi archivo pareciera que estuviera dentro de un programa computacional. Eso es todo ojala me ayuden y desde ya…

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 1.9k visitas
  19. Hola a todos, Muchas dar las gracias por los aportes y comentarios. Soy nueva en esto de la programación en VBA. Tengo un formulario que ingresa información básica, este formulario registra en una hoja principal llamada Hoja1 y ordena los datos de manera descendente, hasta ahí, todo en orden, lo que se me ha complicado en que el último registro que se realice en esta hoja debe de copiarse y pegarse en otra hoja y debe ordenarse de la misma manera ( descendente). es decir: 1. Luego de registrar los datos en la hoja de origen, debo de seleccionar el rango de columnas a copiar. 2. ir a la hoja destino y antes de pegar el registro, se debe de ir …

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 3.5k visitas
  20. Started by lcastillo,

    Buenas tardes a todos.... Solicito de su apoyo con el siguiente caso que no he podido realizar... necesito hacer una macro que me ayude con esto. En la columna A de la hoja 1 tengo una serie de datos que se repiten. Lo que quiero realizar es que en la hoja dos se escriban todos los datos y cuantas veces se repiten tambien en la columna A, por ejemplo: a a b c a b c En la hoja 2 me debiera aparecer: a - 3 b - 2 c - 2 A lo mejor es muy sencillo pero la verdad ya me cicle. Les agradesco de antemano... Saludos...

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 19.1k visitas
  21. Invitado Juan Pelfort
    Started by Invitado Juan Pelfort ,

    Hola de nuevo, tengo un programa (sacado de consultas por foros de Internet) que me funciona perfectamente, se trata de cambiar el color de una forma, (es un círculo) pero no consigo hacer lo mismo si tengo 10 o mas círculos, como puedo hacerlo ? Mando código para una forma pero como hacer para cambiar a mas formas ? Gracias a todos Private Sub Worksheet_Change(ByVal Target As Range) 'Updateby Extendoffice 20160704 If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub If IsNumeric(Target.Value) Then If Target.Value < 100 Then ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed ElseIf Target.V…

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 2.4k visitas
  22. Started by Puche,

    Hola buenas noches, He estado buscando por internet pero no encuentro exactamente lo que quiero conseguir, a ver si me puede ayudar alguien. En el ListBox de Palau (Pagina1), tengo unos filtros relacionados entre si, lo que necesito es, si por ejemplo filtro por "departamento" y luego por "estado" , en el resultado de mi filtro pueda modificar la columna de "Recibe" de todos los registros a la vez. La idea es que cuando filtro, los registros que están como pendientes pueda pasarlos a entregados a una persona en concreto sin tener que hacer uno por uno. Espero haberme explicado bien Saludos! ExcelPaqueteria.xlsm

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 1.7k visitas
    • 1 seguidor
  23. Hola buen día a todos. tengo una macro de asistencia, lo venia trabajando en windows 7 sin problema, pero al migrar el equipo PC a windows 10, manda este mensaje de error, adjunto archivo, por su valioso apoyo les anticipo las gracias, bendiciones ASISTENCIA.xlsm

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 2.5k visitas
    • 2 seguidores
  24. buena tarde alguien puede ayudar con una macros para transponer un texto que estas fila pasarlas a columnas mil gracias a este equipo de este foro saludos isidro ejemplo.xlsx

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 1.2k visitas
  25. Started by Pirtrafilla,

    Buenos días. He hecho una utilidad para buscar archivos filtrando por tipo de documentos y verlos en un formulario. Parte del código lo he adaptado de otras aportaciones. En el código he dejado referencia de una de ellas. Mi problema es que puedo ver los archivos de una carpeta, buscando que los nombres de los archivos coincidan con la palabra a buscar del textbox. por ejemplo si pongo ANTONIO ALV encontraría "Contrato ANTONIO ALVAREZ..." Lo que ahora busco es ayuda para buscar estos archivos dentro de las subcarpetas de la carpeta seleccionada, no solo en la carpeta. ¿M podéis ayudar? Os lo agradezco. Envío la aplicación de ejemplo. Hay dos formu…

    • 0

      Reacciones de usuarios

    • 11 respuestas
    • 5.4k 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.