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

    Estoy iniciándome con las macros y tengo unos apuntes con las siguientes macros que no consigo hacerlas funcionar, no veo ningún fallo. Do While... Loop Instrucción que repite las instrucciones mientras una condición es TRUE/VERDADERO. Ejemplo Excel tiene valores en las celdas B1:B100. Quieres buscar la primera celda que tenga un valor más alto/igual que 1,50. i = 1 Do While Cells(i, 2) <> "" if Cells(i, 1) >= 1.5 Then Exit Do i = i + 1 Loop MsgBox "El valor se encontró en fila no. " & i For i... Next Esta instrucción se repite el número de veces (i) que tú indicas. Ejemplo Creamos un bucle sencillo. Queremos que se repita 4 veces, y que la va…

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 803 visitas
  2. Started by ALBERTO_SP,

    Buenos días, ante todo disculpar si es un tema resuelto pero he buscado y no lo he encontrado, os cuento por si me podéis ayudar con una duda que no he podido resolver. Necesito acceder a los MSForms.CheckBox creados desde un modulo clase para bajar o subir su posición en el formulario , y quiero acceder a ellos utilizando su nombre y para ello utilizo el texto que se encuentra recogido en una hoja del libro. Por ejemplo a este, Public WithEvents TREINTA_Y_SEIS As MSForms.CheckBox En la celda de excel, Sheets("Datos").Range("A" & X).value, aparece el valor TREINTA_Y_SEIS Dim Evaluacion As MSForms.CheckBox Set Evaluacion =Sheets("Datos").Range("A…

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 803 visitas
  3. HOLA NECESITO SEPARAR TEXTO Y NUMERO A PARTIR DEL PRIMER NUMERO Q ENCUENTRE POR EJEMPLO KETOROLACO DE 10MG SEPARAR 10MG EN OTRA CELDA

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 803 visitas
  4. Started by UW07071997,

    Tengo esta Macro que guarda la hoja, pero quiero que lo haga igual para todo el Libro. Muchas Gracias Option Explicit ' Sub EXCELeINFOGuardarHojaComoArchivoNuevo() ' Dim VentanasProtegidas As Boolean Dim EstructuraProtegida As Boolean Dim NombreHoja As String Dim Confirmacion As String Dim NombreArchivo As String Dim GuardarComo As Variant Dim Extension As String ' On Error GoTo ErrorHandler ' VentanasProtegidas = ActiveWorkbook.ProtectWindows EstructuraProtegida = ActiveWorkbook.ProtectStructure ' If VentanasProtegidas = True Or EstructuraProtegida = True Then MsgBox "No se puede ejecutar el comando cuando la estructura del archivo está protegida.",…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 803 visitas
  5. Started by MarcReig,

    Hola a todos. Tengo una hoja de Excel llamada Factura con varias fórmulas y código VBA. Hace unas semanas solicité ayuda para crear un pequeño código que me permitiese guardar cada factura que genero como otra hoja, con el nº de factura y sin las fórmulas. Obtuve una buena respuesta que me ha estado funcionando, pero ahora se me plantea un pequeño problema y espero que alguien pueda ayudarme. Me explico. Como decía tengo donde la primera hoja es la plantilla de las facturas. Esta hoja se llama factura. En ella hay varias fórmulas y código. En la celda M5 tengo la fecha del revés y en la N5 el contador de facturas, que se incrementa en uno cada vez que pulso en un bot…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 803 visitas
  6. Started by ndepablo,

    Buenos días, En el archivo adjunto tengo un listview que en las columnas respectivas C, F que corresponden a los € necesito que se muestren en el listview los importes con dos decimales. ¿Alguien me podría ayudar a definirlo?. He encontrado varias formas por internet pero ninguna soy capaz d e adaptarla a mi código... Muchas gracias de anteamano. BUSCADOR PRECIOS SUBCONTRATAS.xlsm

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 802 visitas
    • 1 seguidor
  7. Buenos días, espero que como siempre me puedan ayudar. Tengo una información que quisiera pasar a un archivo de world. Para esto, estoy utilizando un código que no es mio y utiliza una plantilla de word para buscar objetos y cambiarlos por la información que yo le especifico. Pero quisiera que también me exporte un cuadro que tiene un nombre definido de "cuadro" y no he podido. Alguien que me pueda decir como hago para exportar TODO el cuadro al archivo word. Adjunto un archivo para que sea mas claro la explicación. Gracias de antemano. Pasar a Word.zip

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 802 visitas
  8. Started by kuro.san,

    Buenos dias, soy nuevo miembro y me da gusto formar parte de esta comunidad, espero pueden apoyarme con mi laborioso problema, lo detallo a continuación: Tengo un archivo el cual contiene una lista de datos, lista de la cual se quiere lo siguiente: 1. Tomar de la hoja "Indice" un nombre de la casilla "Iniciativa" y crear una hoja con ese nombre 2. Tomar el formato de la hoja "Base" y pegarlo igual en esa nueva hoja 3. Que tome los datos de la hoja "Indice" de las casillas "iniciativa" y "encargado" y los pegue en los campos correspondiente de la nueva hoja creada. (a fin de personalizar cada hoja nueva) 4. Establecer un vinculo que vaya de…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 802 visitas
  9. Started by FELIX,

    Un placer saludarlos, estimados foristas. Estoy realizando un proyecto de un kardex y estoy buscando la forma de insertar formulas con una macro, he buscado en el foro y no encuentro algo que se ajuste a mi necesidad. Adjunto un archivo en donde hay una hoja con el nombre de EJEMPLO ahi en las columnas "H" y "N" hay formulas que estan resaltadas en rojo, cada formulas como podran ver se ajustan a los rangos de cada articulo. Tengo mas de mil articulos y necesito aplicar las formulas a cada articulo que son los costos promedios y los saldos de la cantidad. Cada articulo estan separados por dos filas en blanco y establecen rangos propios. En la hoja2 esta la hoja de tr…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 802 visitas
  10. Started by marcosnalvarte,

    Buenos días amigos, estoy intentando mantener pintada la celda de la bolilla del BINGO, en mi tablero de control, pero en cada click a la macro me borra el valor pintado anteriormente. 1. ¿Qué comando podría darle a la macro, para que no despinte la celda anterior? 2. ¿Qué comando podría utilizar para "eliminar" las bolillas que ya han sido cantadas (pintadas)? Espero puedan ayudarme, un abrazo a todos. Adjunto el archivo de excel. Marcos Bingo_Telas_en_Pandemia.xlsm

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 802 visitas
  11. Saludos a todos, buenas noches desde México Espero alguien me pueda apoyar, ahora con esta situación Tengo un archivo con varias hojas. las cuales fueron creadas en el proceso de conversion de pdf a excel, que en gral tienen la misma estructura (hoja 1, hoja2), pero rara vez por la magnitud del nombre del cliente la estructura cambia (hoja3), bueno la información de estas hojas las necesito concentrar, también hacer mención que en las hojas viene en la misma celda el concepto y la información junta anexo archivo. Mucho agradeceré su apoyo, comentarios, sugerencias, etc y pues a veces son bastantes hojas y pues realizarlo a pie, pues si cansa, ojala ustedes me echen …

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 802 visitas
  12. Buenas noches a todos, Llevo todo el dia buscando una solucion pero no la encuentro. Tengo un libro excel con muchos hoas como base de datos de registros de telefonia movil. En el primer sheet es donde se introducen los datos en celdas y con un commandbutton los graba a sus respectivos sheets dependiendo del tipo de registro. El tema es que quiero abrir el excel con un userform para hacerlo mas bonito y sencillo visualmente para que lo usen terceras personas, y todo lo tengo perfecto exceptuando cuando tiene que grabar los datos ya que no se como llamar al commandbutton situado en el primer sheet del libro desde el userform para que ejecute todos los procesos que este co…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 802 visitas
  13. Estimados amigos del foro ayudaexcel.com Mediante ayuda de un miembro llamado Shauinto, a quien le debo muchos agradecmientos, logre hacer una aplicacion en excel, que me permite busquedas y edicion de informacion de planos. La Solicitud que hago es la siguiente, y agradeceria la atencion que me puedan brindar. 1. El archivo contiene 6 userform, solo uso 2, que serian el editor, y el buscador. Los otros 4 userforms, son para usos secundarios como carga de un archivo, o seleccion de tipo de identificacion de un plano, o correccion. 2. Tengo el inconveniente de que al insertar un nuevo plano, el hipervinculo o ruta del archivo me lo crea en las dos hojas, la hoja de pre…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 802 visitas
  14. buenas tardes queria ver si alguno puede ayudarme en la creacion de una UDF o MAcro para el calculo de bono nocturno y escala de antiguedad dependiendo de ciertos criterios, dentro del archivo adjunto estan los criterios y mas explicado lo que necesito gracias por adelantado Bendiciones escala y bono nocturno.rar

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 802 visitas
  15. Started by joseppp,

    Buenas tardes, agradeceria vuestra ayuda. Utilizo hasta ahora una macro que envia un rango de excel en pdf por outlook, la cual, enviaba el mismo pdf a todos los emails de una columna. Ahora lo que necesito es mandar el pdf pero a cada email, modificando cada vez la celda A1 por cada Id de la columna, para que asi se genere un pdf para cada id. La idea es que antes se mandaba un cuadrante a todo el mundo (1 pdf a todos los emails), y ahora quiero enviar el que corresponde a cada uno.(1 pdf a cada email) Imagino que se hara por un bucle, pero no se como insertarlo en la macro. Muchas gracias Calendario1.xlsm

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 802 visitas
    • 1 seguidor
  16. Started by rubaniktec,

    Buenas a todos, Haciendo pruebas con macros me he encontrado con el siguiente dilema, estaba comenzando a crear una agenda organizativa para administrarme el trabajo. pero ha habido un corte de luz y el trabajo que estaba haciendo se ha ido a la porra. Es una agenda muy chorra 2 botones, uno para colocar el día en la última fila de la columna (se introduce a partir del activecell) y otro para borrar dicho día (se elimina a raíz del activecell) A raiz de lo de la luz, me han surgido un par de dudas la primera es, el último día introducido en la hoja el 14 en este caso, habría alguna manera de recuperar ese "14" en una variable y la segunda es, puedo imprimir un dí…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 802 visitas
  17. Hola a todos Agradezco de antemano cualquier ayuda / gestión. Tengo un listado de facturas donde con fórmula detecto si ha sido COBRADA o no. Estoy buscando código que cuando encuentra la palabra COBRADA en la columna L, me borre la fila. Me he quedado en el IF, el Delete ya no sé como hacerlo. Reitero las gracias ==================================== Sub BORRAR_COBRADAS() Dim i As Integer For i = 2 To 8000 If Range("FACTURAS!L" & i) = "COBRADA" Then …

    • 2

      Reacciones de usuarios

    • 6 respuestas
    • 801 visitas
    • 4 seguidores
  18. Started by kevinloko,

    Estimados, aquí mismo me ayudaron con el inconveniente que voy a pasar a explicar, pero no ha sido posible solucionarlo. (No pude responder y cerraron el tema). Necesito que en la planilla adjunta se busque la mejor coincidencia posible entre los nombres cortos de la hoja 1 y los nombres reales de la hoja 2. Obsérvese que la solución anterior no funciona puesto que al mirar el primer dato (puco-1) encuentra puco-14a. Esta no es la mejor coincidencia, sino que debería traer el valor Puco-1a. Muchísimas gracias de antemano! Buscar_v1.rar

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 801 visitas
  19. Hola, requiero hacer una macro de captura automática en Excel 2007 y 2010, pero no se como lograr que espere en la celda para la entrada de datos y que al momento de dar enter, automáticamente se vaya a la celda de la derecha. Agradezco mucho su ayuda.

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 801 visitas
  20. Started by niangari,

    Saludos a todos. Les escribo para pedir algo de ayuda en programación de macros. Estoy tratando de lograr lo siguiente: Tengo en la hoja 2 una tabla de ejemplo en donde el usuario debe escribir una serie de datos. Éstos nunca van a ser la misma cantidad, pueden ser desde sólo 1 o 2 hasta máximo 20 entradas. Para eso puse en el documento un par de macros de ejemplo que van a ir agregando o quitando filas según el usuario quiere agregar o quitar entradas. 2013-02-10_1559 - niangari8's library Ahora en la hoja 1 quiero que con ejecutar una macro se distribuyan automáticamente esta lista de entradas de texto en el cuadro que está ahí. 2013-02-10_1600 - niangari8's librar…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 801 visitas
  21. Started by fofo100,

    hola todos estaba buscando una mejor alternativa para este codigo funciona sin problemas, pero es lento, lo que hace es pisicionarse en "B7" y a partir de ahi buscar la primera fila vacia Range("B7").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop[/CODE] lo probe a cambiar por este, pero no empieza en B7 y tengo filas vacias antes de B6, al ponerlo me agarra fila antes de B6 [CODE]Range("B" & Rows.Count).End(xlUp)..Offset(1, 0).Select [/CODE] saludos

    • 0

      Reacciones de usuarios

    • 10 respuestas
    • 801 visitas
  22. Started by alvaroco,

    Hola buenos días foreros, soy nuevo en este mundillo y quería ver si me podías ayudar con una macro que quiero realizar. Os cuento. tengo un archivo que se llama LIBRODATOS, esta compuesto por una macro cuya función es copiar un rango de una hoja y pegarla en otra, hasta aquí todo va bien, ahora lo que no consigo realizar es lo siguiente. Quiero que pulsando un botón me seleccione el rango que he pegado en la "hoja Inicio" y me lo lleve a un libo nuevo, y que este libro se guarde con el nombre de la celda"A1"del nuevo libro. Lo he intentado con la grabadora de macros pero no hace lo que busco. ¿Me podeis echar una mano????. Os adjunto archivo ejemplo. Un saludo y muc…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 801 visitas
  23. Started by alexmonza,

    Estimados tengo un archivo Excel que me genera mediante una macro un archivo txt con tabulaciones, pero mi problema es que al lado derecho salen espacios lo cual no se requieren y requiero eliminar. Adjunto archivo para su ayuda y ver como funciona y que es lo que me falta para generar un archivo sin espacios extras y que me pida la ubicación donde guardar el archivo específicamente. Este es el código de la macro, la cual primero crea una copia de la hoja y luego a partir de esa copia de hoja crea el archivo txt que se guarda en forma automática, pero a veces cambia la ubicación donde se guarda sin poder controlar eso, y además me deja unos espacios al lado del archivo …

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 801 visitas
  24. Started by Lince1950,

    Hola buenas tardes, hace un tiempo me echasteis una mano por aqui y hasta ahora todo ha ido bien, pero e aqui que he actualizado mi Windows 7 al Windows 10 y lo primero que he echo ha sido probar mi programa que hice de la comunidad y cual es mi sorpresa que me da error en las macros justo de momento en esta linea Private Sub Worksheet_SelectionChange(ByVal Target As Range) La macro entera es asi. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("B30:B45,B49:B56,B58")) Is Nothing Then UserForm1.Show End If End Sub Podeis ayudarme donde esta el fallo o es que Windows 10 NO admite el vb Repito que en Windows 7 …

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 801 visitas
  25. Started by osin,

    hola tengo el pequeño dilema estoy trabajando en una planilla de encuesta y me faltan algunos comando que no se como realizarlos espero me ayudes se los enumero tengo un botón resetear y enviar pero no resetea los campos de texto de control de formulario al copiar copia en la misma celda y no va bajando según se copia solo me falta esos puntos para poder terminar mi trabajo ¿me pueden ayudar por favor? encuestas.rar

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 801 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.