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

    Hola, soy nuevo en la comunidad y tengo el siguiente problema: Genere algunos formularios con MsgBox en Office365 en Windows OS 10, estos mensajes me aparecen delante de formulario y se ejecutan sin problemas, pero al momento de ejecutar el mismo documento en OS MAC todos los MsgBox aparecen detrás del formulario y debo correr el formulario hacia un lado para seleccionar la acción y seguir. Aplique el vbMsgBoxSetForeground dentro de la sintaxis, pero aun así persiste el incidente y esto solo pasa en MAC. Ejemplo de una configuración. Private Sub SalirA_Click() Dim Pregunta As String Pregunta = MsgBox("¿Desea salir?", vbYesNo + vbQuestion + vbMsgBoxSe…

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 1.5k visitas
  2. Started by dmslop,

    Buenos días amigos foreros. Tengo este formulario el cual es un registro de nombres, la ayuda que pido es que si pudieran coloborarme en la configuración de un msgbox para cuando presiono el botón de agregar/modificar. Me tire un mensaje diciendo “desea modificar el registro” si es SI hacer la función de modificar el dato. Si es NO mandar msgbox “registro no actualizado” gracias por la ayuda que me puedan brindar aca mando el trabajo para que lo puedan checar gracias... Formulario.zip

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 801 visitas
  3. Started by Leonardo Briceño,

    Hola amigos de Ayuda Excel Por acá otra vez solicitando su colaboración El código para eliminar filas cuando lo ejecuto y confirmo la eliminación en la segunda pregunta, aparece el mensaje indicando que la operación se hizo satisfactoriamente, pero luego me sale en el mensaje de operación cancelada, pero efectivamente eliminó la fila. Me podrán ayudar, me imagino que no está en la linea correcta. Lo he movido pero no logro solución. Gracias ELIMINAR FILA.xlsm

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 678 visitas
  4. Hola, En búsqueda de ayuda y enseñanza me dirjo a los foristas. Necesito crear un MsgBox que me informe que al introducir un dato en una celda de la columna H, debo introducir otro dato en una celda, en la misma fila, pero en la columna L. Advierto que son varias filas, es decir un rango de celdas. El MsgBox debe informar también que no se puede guardar el libro sino se ha introducido el dato en la celda de la columna L. Estuve buscando por el Foro pero no encontré ningún código que me sirviera. Subo un ejemplo para mayor comprensión. Gracias de antemano. MSGBOX.rar

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 1.2k visitas
  5. Invitado R3Y468
    Started by Invitado R3Y468 ,

    Buenas tardes, soy nuevo en esto del visual basic, espero me puedan echar un cable, he conseguido una macro la cual la he ido adaptando a las necesidades, lo que requiero es que el rango que especifico, al pasar a la siguiente fila se mantenga el conteo, la macro funciona de la columna D9:J9 al repetir el valor "R" mas de 2 veces despliega el MsgBox y borra el ultimo valor Introducido limitandolo a 2 valores. Es una tabla que consta de los retardos de los trabajadores de lunes a domingo, el primer trabajador se ubica en D9 : J9, el siguiente en D10 : J10 el tercer trabajador de D11: J11 Y así sucesivamente, la macro solo me funciona con el primer trabajador, que al introd…

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 2.1k visitas
  6. Hola, siculpen mi incoveniencia alguien sabe el codigo para que el MsgBox que indique el TextBox vacio a la ora de ejercutar el CommandButton , gracias!

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 675 visitas
  7. Started by manus,

    Buenas a todos,Ante todo espero que estén bien.Quería consultar sobre como podría hacer un msgbox que se cierre automáticamente después de ciertos segundos. Cabe decir que he buscado diferentes opciones y las pruebo y no se porque no me funciona, simplemente el msgbox queda allí y no se cierra.Dejo acá las tres opciones que encontré pero que no me han funcionado, no sé si es que no he activado alguna librería. Quedo atento. Option Explicit Const TIMEOUT = 3 'Segundos Sub MsgBoxTimer1() Dim objShell As Object, intMsgBox As Variant Set objShell = CreateObject("WScript.Shell") intMsgBox = objShell.Popup("Mensaje Temporizado en 3 Segundos.", TIMEOUT, "exceltrabaja…

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 12.1k visitas
  8. Started by aaquino,

    Muy buen día, tarde, noche estimados Llevo ya rato de no molestar con mis dudas, ni poder aportar nada a la comunidad, y de antemano me disculpo por ello. En esta ocasión quisiera solicitar de su amable ayuda, pues no logro resolver una secuencia en vba. Tengo el siguiente código: Dim Nombre As String Nombre = "Índice WP" Dim Hoja As String Hoja = ActiveSheet.Name For i = 1 To Worksheets.Count If Worksheets(i).Name = Nombre Then txtCliente = Worksheets("Índice WP").Range("Cliente").Value txtAuditoria = Worksheets("Índice WP").Range("Auditoria").Value Exit Sub Else MsgBox "No se ha creado el índice de papeles de traba…

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 943 visitas
  9. Started by jues,

    SALUDOS AMIGOS SE POCO DE PROGRAMACION Y QUISIERA QUE ME AYUDEN CON ESTE PEQUEÑO PROBLEMA QUE TENGO: TENGO DOS CELDAS D15 Y E15 EN LAS CUALES NO PUEDEN REPETIRSE EL VALOR 0 SIMULTANEAMENTE EN AMBAS CELDAS ADICIOANLEMENTE INDISTINTAMENTE DEL VALOR DE LA CELDA D15 LA CELDA E15 NO PUEDE CONTENER VALORES ≥12 CONCRETAMENTE REQUIERO QUE CUANDO EN LAS CELDAS D15 Y E15 CONTENGAN EL VALOR 0 SIMULTANEMAMENTE APAREZCA UN MSGBOX QUE INDIQUE "DATOS DUPLICADOS: LAS CELDAS AÑO Y MES DE LA ANTIGUEDAD EN EL PUESTO NO PUEDEN CONTENER VALORES IGUALES A CERO DE MANERA SIMULTANEA" DE MANERA ALTERNA CUANDO LA CELDA E15 CONTENGA VALORES ≥12 APAREZCA UN MSGBOX QUE INDIQUE "LA CELDA ME…

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 352 visitas
    • 1 seguidor
  10. Started by Mauricio_ODN,

    Buenas Tardes!! Una vez mas solicitando de su amable ayuda Tengo Un Libro conformado así: Hoja Layout de un casino donde me muestra la distribución de los juegos, Hoja Thermo Indicador donde corresponde la Licencia de cada juego Hoja Base x maquina que contiene la base de datos correpondiente a las licencias Por medio de VB deseo que cada vez que se seleccione un juego, un Msgbox me arroje los datos de la licencia Adjunto Ejemplo De antemano muchas gracias MsgBBuscador.rar

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 596 visitas
  11. Started by torpe,

    Hola, buenas Tengo una recta (msoConnectorStraight) en posición vertical, y necesitaría, que a la altura de la mitad del tamaño de dicha recta, se acople, fusione, añada o como sea la palabra correcta, otra recta pero en posición horizontal, de tal manera que si modifico el tamaño de la primera, la segunda también modifique su posición para continuar en la ubicación correcta. Es decir, una macro que me muestre en pantalla dos rectas con la forma de un "T" pero, digamos, con la "t" de lado, y que si agrando o reduzco el tamaño de la recta vertical, la forma en sí se agrande pero que no pierda la forma. muy agradecido de antemano, saludos.

    • 0

      Reacciones de usuarios

    • 6 respuestas
    • 1.3k visitas
  12. Started by ndepablo,

    Buenos días, Creo que este es un tema estrella pero no he encontrado ningún tema cerrado que tenga que ver con mi problema. Tengo un archivo excel, al que tienen acceso distintos usuarios. Cada uno entra con un usuario y contraseña. Dentro de cada usuario hay personalizada una vista, con columnas ocultas, bordes marcados, filtros, etc. todo esto está hecho con macro además de tener formatos condicionales y algunas fórmulas. La idea es que se pueda editar por varios usuarios simultáneamente. He probado a compartir archivo en red y todo eso pero me da problemas y no mantiene la personalización... No se si habría alguna solución a este problema o alguna alternati…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 790 visitas
    • 2 seguidores
  13. Started by RICARDO1470,

    buenas tarde la siguiente consulta es por que tengo un formato exel al cual requiero: -que trabajen diferentes personas al tiempo. -que genere un serial, por cada usuario del formato pero q ese seria sea consecutivo y una opción de búsqueda( la cual tiene un código antiguo pero no eh podido hacer que funcione en este libro) comparto el link del archivo ya q no puedo subirlo https://drive.google.com/file/d/0B8Vzq91ArcZGR241TmJTbFVBMGs/view?usp=sharing de antemano gracias a la atencion que sirva prestarse al anterior

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 729 visitas
  14. Started by EMIRO ERAZO,

    El problema es que me está cargando la primera imagen, "las demás IMÁGENES NO LAS ESTÁ CARGANDO" Muy cordialmente solicito me den su colaboración, por favor ! Multipage con Imagenes.rar

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 1.2k visitas
  15. Started by Visor,

    Estimados amigos del foro he intentado hacer funcionar 3 paginas de un objeto Multipage (Primer Parcial, segundo parcial y Resultado final) en ella se cargan los datos, pero cuando salto de pagina, y luego regreso a la anterior, esta ya no muestra los datos como se espera si no que han cambiado, ejemplo: esto no se muestra al inicio Se que algunas otras cosas no están funcionando bien en el formulario como que se presentan en el listbox fechas antiguas a pesar de no haberlas puesto, los porcentajes en la tercera pagina, etc. , pero lo mas importante es que al cambiar de pagina no se alteren la forma en que se debe mostrar los datos en el listbox. Otra cosa al parecer cu…

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 9.2k visitas
  16. Started by erestom,

    Buenas noches, quisiera que me puedan ayudar tengo que hacer un excel en donde una celda tenga múltiples opciones seleccionables y que al elegirlas se muestren concatenadas en la misma celda, aca dejo un ejemplo Multiseleccion EXPEDIENTES.xls Desde ya les agradezco

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 961 visitas
  17. Estimados amigos: me permito solicitar su colaboración con respecto a lo que me esta sucediendo con el archivo (2)_Devoluciones.xlsm el cual fue un excelente aporte que realizo otra persona en el foro y que permite llevar un control de devoluciones, lo que sucede es que el funciona correctamente en una pc que tengo pero cuando trato de ejecutarlo en otra pc diferente sucede algo que no he podido identificar a que se debe, los valores de en el formulario se multiplican x 100 cada vez que selecciono la celda del formulario. espero que me puedan ayudar solucionado este inconveniente. mil gracias por su ayuda. (2)_Devoluciones.rar

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 785 visitas
  18. Started by johnmasso,

    Multiplicación de Matrices Automáticas (Cambia al cambiar nxn) Buen día Comunidad de Ayudad Excel. Hace rato que no escribía y les doy las gracias de antemano, ya que siempre me han colaborado. En esta ocasión requiero para terminar un trabajo de la maestría, dónde me toca hacer una hoja electrónica de jerarquización de proyectos... pues bien ya tengo adelantado el trabajo, sin embargo no he podido saber como hago para que de acuerdo al numero de proyectos a jerarquizar la formula de multiplicación de matrices se me actualice, hasta ahora la teng pero multiplicando el total de proyectos que lo establecí en n=20. Adjunto el archivo comprimido en zip.... PD: subo el te…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 2.3k visitas
  19. Started by Lucasig,

    Hola, tengo una formula que recorre las celdas y va hacia la ultima celda no vacía, luego baja una posición y pega en valores lo que copie Sheets(HOJA).Range("J11:J18").Copy Range("L1").Select Do While ActiveCell <> Empty ActiveCell.Offset(1, 0).Select Loop ActiveCell.PasteSpecial xlPasteValues, , SkipBlanks = True Como hago para multiplicar *100 las celdas pegadas? Gracias de antemano.

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 9.2k visitas
  20. Started by Juan Carlos torres ruiz,

    Buenos días Tengo una duda de si se puede hacer un multiplicación con vba solo cuando aparezcan unos valores determinados. Me explico: En el combobox1 tengo una selección ( montar cabezal) en el combobox2 tengo seleccionado (0.75)y en el combobox3 tengo seleccionado (48). La idea es que la formula actuara solo cuando apareciera esa selección en el combobox1. " montar cabezal = 48*0.75*0.25"-(0.25 es una constante) . Este resultado se mandaría a una columna de un listbox Gracias de antemano

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.8k visitas
  21. Started by Marcos14,

    Hola a todos, necesito vuestra ayuda en unas operaciones matemáticas en unos textbox del formulario frminventario, he probado mil maneras y no lo consigo, no se tampoco si el formato se lo he dado bien de moneda, ha de ir con símbolo $. Espero vuestra ayuda gracias https://mega.nz/file/5xwhGbYK#vy8hdM2bqYN5RBM6iYLJqJ9LDLRXN7riXCwl9kjJFHI

    • 0

      Reacciones de usuarios

    • 13 respuestas
    • 5.7k visitas
  22. buenas tardes ... existe la posibilidad que me puedar ayudar por favor con esta inquietud ?? " en un formulario quiero multiplicar valores de un combobox1 por textbox1 con resultado en textbox3 " pero automático ...sin el boton para ejecutar

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 802 visitas
    • 1 seguidor
  23. Multiplicar y Dividir celdas e Imprimir solo algunas columnas Estimados, quiero pedirles la siguiente ayuda. tengo un Formulario de consulta en el cual necesito modificar la Formula destacada con amarillo, para que multiplique la Columna “Cantidad” * ” Columna Valor” y luego dividir por la Columna “Gasto Promedio” With Sheets("hoja3") ' Tomamos última fila usada en hoja 2 para crear el rango a cargar i = .Range("A" & Rows.Count).End(xlUp).Row If i < 2 Then i = 2 'colocamos subtotal por linea .Range("H1") = "Km/Litro" For x = 2 To i .Range("H" & x) = WorksheetFunction.Sum(.Range("F" & x…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 2.1k visitas
  24. Started by list80,

    Hola, Estoy intentando hacer en Excel lo siguiente. Pretendo tener una pantalla a modo de resumen de una serie de categorías, al pulsar sobre una categoría, voy al detalle de la misma donde tengo un listado de item de esa categoría. Me explico con un ejemplo, en el siguiente enlace http://www.jesusferrer.es/excel/contabilidadfamiliar3-est.zip, hay un fichero con macros, el excel realiza el control de ingresos y gastos, donde hay categorias como, nomina, alimentación, mobiliario, etc esa primera hoja es un resumen de tal forma que si pulso sobre la flecha roja de cada categoría voy al detalla. He intentado estudiar como hacerlo pero el problema es que la hoja de cálculo…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 947 visitas
  25. He realizado este codigo para que cuando escriba en la columna A se rellene con la hora en la casilla E. Ahora necesitaría que si borro el dato de la celda por ejemplo a1 se borrara la celda e1 y sucesivamente, es decir que si quito la información de alguna celda de la columna "a" se borrara la celda e correspondiente. Gracias Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("a:a")) Is Nothing Then Range("e" & Target.Row) = Format(Now, "hh:mm") End If End Sub

    • 0

      Reacciones de usuarios

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