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

    hola Amigos, buenos días! Espero me puedan ayudar realizando esta macro Necesito consolidar la información de 9 archivos de excel en un unico archivo de Excel llamado "Inventario" . Se debe copiar la información en cada uno de los 9 archivos para consolidar una unica fuente de información. TOdos los 9 archivos cuenta con la misma estructura de información. Se debe empezar a copiar la información desde la celda "C6" hasta la cantidad de registros que se encuentren tanto a la derecha como hacia abajo. cualquier inquietud me cuenta y muchas gracias! Inventario - copia.zip

    • 0

      Reacciones de usuarios

    • 13 respuestas
    • 1.5k visitas
  2. Hola a todos, estoy dándole vueltas y vueltas y no veo por donde meterle mano. Lo que pretendo es distribuir un texto de forma homogénea dentro de un textbox miltiline, es decir que una vez digitado todo el texto pulsemos Enter y el contenido del mismo quede distribuido tal cual se muestra en el formulario incluido en el archivo adjunto. El Textbox tiene en este caso un límite de 30 caracteres por linea. Alineado Textbox.xlsm

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 2.4k visitas
  3. Started by suprema,

    Hola amigos, estoy buscando la forma de colocar el mismo código que se encuentra en el archivo 1 y pasarlo al archivo 2 ya que necesito que se me oculten las filas al momento de imprimir, creen que me puedan ayudar por favor, no entiendo muy bien ese código, o si saben de una macro que me ayude con eso, quiero es ocultar las filas que no tengan información con un botón al momento de imprimir, y cuando termine otro botón para mostrarla tal cual esta en el archivo 1. Pido perdón por que se que hay otros foros con el mismo tema pero no encuentro ninguno que se adapte a mi problema. 1.xlsm 2.xlsm

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 786 visitas
  4. Started by mp5,

    Hola a todos, He creado un código con select case y falta alguna instrucción para que me funcione correctamente. El problema es que si pongo por ejemplo en la columna A1 el numero 1, A2 el numero 2, A3 el numero 3 y quiero que en la columna B1 me ponga el dato que corresponde con el numero de caso me lo hace bien solo la primera vez, cuando pasa a la columna B2 me pone el dato de la columna B1 y así sucesivamente. Pongo el código que tengo. Gracias por la ayuda. Sub Numeros_por_datos() Dim Num As Integer Dim Datos As String Num = ActiveCell ActiveCell.Offset(rowoffset:=0, columnOffset:=1).Select ENTRADA: 'Comprueba que la celda y columna A tenga da…

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 545 visitas
  5. Started by Janlui,

    Hola a todos. Estoy intentando extraer información de las longitudes de las Lineas y Polilineas: 1. El archivo autocad deberá estar abierto 2. En excel me pondrá por cada fila o renglón la información Columna A: Nombre de la Capa Columna B: Número de lineas (En el caso de las Polilineas) si es una linea recta dirá 1 Columna C La suma o total Longitud de cada linea Gracias por su atención y un saludo desde México.

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 824 visitas
  6. Hola amigos de Ayuda Excel, quiero hacerles una consulta. He estado trabajando en un proyecto el cual he culminado y contado con la gran ayuda de ustedes. El archivo pretendo distribuirlo a nivel mundial (iniciando en países de lengua español). Está en idioma español (archivo/hojas/fórmulas/macros) Fue hecho en Windows 7 y Excel 2013 (español). Lo he probado en otro equipo que tiene Windows 10 y Excel 2019 y funciona bien. La consulta es: - Que consideraciones debo tener para que el archivo funcione en cualquier país. - Debería hacer varias versiones según alguna característica de un país X, cuáles serían los aspectos que cambiar. Gracias!!

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 916 visitas
  7. Ayuda por favor con un problema necesito que a una celda determinada de una hoja se muestre el resultado de otra celda de una hoja diferente y si esa celda este vacia que busque en otra celda que propondremos en la misma hoja como tendría que ser la formula por favor

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 537 visitas
  8. Buenos días, Tengo un fichero Excel, con su macro, desde el que envio correos con adjunto de forma masiva. Pero necesito que los accesos directos de los pdf me los traiga automáticamente. ó bien modificar el botón de la columna G, para poder pegar copiar y pegar todas las rutas correspondientes a los archivos, que he sacado en otro Excel con otra macro. Por favor podeís ayudarme. Gracias envio masivo prueba 2.xlsm

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 931 visitas
  9. Buenas, Tengo una macro, la cual me envía los correos y su adjunto, pero a la hora de adjuntar el archivo, tengo que ir uno por uno. Hay un botón que me lleva a la carpeta y selecciono el pdf, luego en la casilla de alado se escribe la ruta del archivo. Como podría hacer para traerme cada documento a la persona que corresponde con macro? Copio la macro '***Macro Para enviar correos Sub correo() 'Por.Dante Amor col = Range("H1").Column For i = 2 To Range("B" & Rows.Count).End(xlUp).Row Set dam = CreateObject("outlook.application").createitem(0) dam.To = Range("B" & i) 'Destinatarios dam.CC = Range("C" & i) 'Co…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 3.3k visitas
  10. Started by Joaquin Wertmuller,

    Hola, simplemente necesito pasar el contenido de un comentario a un textbox que esta en un formulario. Cuando abro el formulario, selecciono un registro y se me cargan todos los datos en distintos textbox del formulario.Uno de esos text box se tiene que cargar con el contenido del comentario. Gracias

    • 0

      Reacciones de usuarios

    • 6 respuestas
    • 1.5k visitas
    • 1 seguidor
  11. Started by Xogas,

    Necesito una macro que cuando encienda la pc se abra un archivo de excel en la fecha determinada

    • 0

      Reacciones de usuarios

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

    Buenas Tardes: Necesito como puedo hacer Buscar Objetivo en varias celdas. En el ejemplo que les adjunto en la Celda H2, es el importe que sale a pagar después de los descuentos de ley, pero el importe que debe ser para pagar está condicionado de acuerdo al cargo que tienen (Hoja Cargos) y si no se encuentra el cargo, la Celda H2, queda igual. La diferencia que falta para llegar debe ir en la Celda C2. Si en la celda en donde van los datos de los trabajadores (Trabajador), la macro debe parar. A la espera de su apoyo, me despido. Neto a Pagar.xlsx

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 3.4k visitas
  13. Invitado Xabi_21
    Started by Invitado Xabi_21 ,

    Muy buenas Me gustaría saber como podría hacer que aparezca mi userform en la barra de tareas al esconder o hacer invisible el excel. he encontrado una supuesta solución en un tema anterior, pero me aparece que el archivo esta dañado. hay alguien que me puede ayudar? Gracias un saludo

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 1.3k visitas
  14. Hola! Antes que nada quiero agradecerle a muchos de ustedes ya que muchas veces logro solucionar mis problemas gracias a todos los que interactuan en el foro. Mi problema es el siguiente: En la hoja VENTAS, tengo un boton "Modificar", a partir del cual puedo borrar un registro de venta (Ej: VEN-00006). A su vez, simultaneamente, me tiene que borrar en la hoja COMISIONES, todos los registros que terminen con esa numeracion (Siguiendo el ejemplo, todos los registros terminados en 00006, ya que en COMISIONES los registros comienzan con VEN- y COM-), lo cual NO puedo lograrlo. En definitiva, el codigo que necesito seria aquel que extraiga los ultimo…

    • 0

      Reacciones de usuarios

    • 8 respuestas
    • 2.2k visitas
  15. Started by jabrajam,

    Buenos dias a todas, Lo primero agradecer a la plataforma el acceso gratuito en estos momentos. Espero y deseo que todos esteis bien Paso a detallar mi problema, me baje un archivo de la comunidad del gran maestro Antoni,he intentado adaptarlo a mis necesidades y he resuelto algunas cosas y otras no. Detallo los fallos que no soy capaz de sacar: 1º En columna C no me salen los datos bien 2º En la columna D Tengo que poner los nombres con numero porque sino los graba todos en la misma fila 3º En el cronograma si empieza la actividad en el mes siguiente al elegido aparece en el mes selecionado Por ultimo cada vez qu…

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 1.3k visitas
  16. Started by ronalehm,

    Hola, buenos dias tengo un problema en un combobox, el cual lo utilizo para listar categorias y dependiendo de eso listo otra categoria, pero tengo un error cuando el valor de la primera categoria es null o vacio "". aqui el codigo: Private Sub cbo_Categoria_DropButtonClick() Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("BD") Dim i As Integer Dim n As Integer n = Application.WorksheetFunction.Match(Me.cbo_Categoria.Value, sh.Range("1:1"), 0) Me.cbo_Tipo.Clear For i = 2 To Application.WorksheetFunction.CountA(sh.Cells(1, n).EntireColumn) Me.cbo_Tipo.AddItem sh.Cells(i, n).Value Next i Tengo error en la linea n; porque el valor …

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 664 visitas
    • 1 seguidor
  17. Started by howling,

    buenas noches compañeros de la programacion nesecito de su ayuda otra ves, mi problema ahora es que no puedo comvertir en el combobox los datos para que aparescan las hora como listado antes de consultarlos busque por la web pero las soluciones que me dan no se adaptan a la macro que tengo solo me aparecen en numeros y hay otra pregunta que en que me gustaria que me ayudaran y es en la que si es posible dejar la hoja en donde filtro los datos oculta sin que se pueda mostrar ¿sera posible? bueno gracias de ante mano por la ayuda PRUEBA4.1.xlsm

    • 0

      Reacciones de usuarios

    • 6 respuestas
    • 1.3k visitas
  18. Started by Indus3alyzer,

    Buenas Tardes, actualmente me encuentro en proceso de desarrollo de una macro que evalúa ritmo cardíaco por los criterios de evaluación Frimat y Chamoux. En base a esto he hecho varias actualizaciones. Para la última actualización requiero de realzar lo siguiente: Desde una columna de datos determinada, los cuales se van registrando automáticamente mediante un botón desde una celda hacia la misma columna en una misma hoja llamada "Registro", deseo traspasar estos datos a una hoja "Histórico" en una columna determinada de forma que cuando vuelva a registrar los datos en la hoja "Registro", los anteriores permanezcan guardados en la hoja " Histórico" pero los nuevos da…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 734 visitas
  19. hola a todos, Primero que todo espero que se encuentren muy bien, bueno yendo al grano necesito ayuda en este pequeño problema, tengo un Combobox y en este se puede escribir, puede escribirse independiente de los valores que esté tenga en la lista. Ya logre controlar si el Combobox se deja vació, ahora necesito controlar este pequeño error. les pongo el código que use para controlar si se deja vació, así me entienden mejor xD Nota: CbbMes (ComboBox) if CbbMes.Value = "" then Msg "Debe seleccionar un mes", vbCritical, "Error" CbbMes.SetFocus Exit Sub End if

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 2.7k visitas
  20. Started by maraqu,

    Buenos días a todos. He creado un Excel y un formulario de visual basic para guardar datos diarios. Os explico, En la primera columna he puesto los datos que necesito (Temperatura, ph, cloro...) y en el resto de columnas las fechas (01/01/2020, 02/01/2020...) He creado el formulario de visual basic y lo tengo hasta que me lo guarda en la segunda columna (que sería, por ejemplo el 01/01/2020) Lo que necesito ahora y no consigo de ninguna forma, es que cuando vuelva a registrar otros datos me lo guarde en la siguiente fecha o en la fecha que yo quiera. Es decir, si añado un combobox en el formulario con todas las fechas, si selecciono 02/03/2020, por ej…

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 1.6k visitas
  21. Hola a todos, mi nombre es A.Maurizio y tengo una nueva solicitud que me gustaría compartir con ustedes. Mi pregunta es esta: en una hoja de Excel con Microsoft Office 2007 ¡En la Columna (A) ingreso códigos que pueden variar del Número "1 - 100 - 135", etc.! Mientras estoy en la Columna (B), ingreso otros números y estos también pueden variar del Número "1 - 100 - 135 - 2 - 0" Etc ...! Ahora mi pregunta es la siguiente: existiría la posibilidad de extrapolar siempre utilizando el VBA Todos los números superiores a (0) que encuentro en la Columna (B) Y cópielos exactamente como están en la columna (J) Asegurarse de que todos los códigos correspondientes que…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 546 visitas
    • 1 seguidor
  22. Buenas chic@s. En un momento determinado de la macro solicito mediante un cuadro de diálogo la hoja en la que se van a trasladar ciertos datos. Uso esta expresión: hojaDestino = InputBox(prompt:="Introduce el nombre de la hoja", Title:="Hoja de destino de los datos", Default:=hojaActiva) También he probado: hojaDestino = Application.InputBox(prompt:="Introduce el nombre de la hoja", Title:="Hoja de destino de los datos", Default:=hojaActiva, type:=2) La variable hojaDestino la declaro como String y todo funciona perfectamente. La puedo usar para crear una hoja nueva sin problema, o para escribir en una celda concreta de esa hoja…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.1k visitas
  23. Started by sebasmrn,

    Buenas, Estoy haciendo una macro que consiste en lo siguiente: Vaya a una carpeta, abra el primer excel, aplique un RefreshAll, lo guarde y cierre, y pase al siguiente. Estos exceles tienen conexiones de datos externas, que son las que quiero que me actualice, pero no lo hace. Pero si lo hago manualmente (abro excel, le doy en Datos a RefreshAll), sí me funciona. Este es el código que estoy aplicando: Sub AbrirArchivos() 'Paso1: Declarar las variables Dim Archivos As String 'Paso2: especificar una carpeta y el tipo de archivo que buscamos. 'En este caso la carpeta se lla "RFC2" y el tipo de dato es "xslx" Archivos = Dir("C:\Users\Desktop\2. RFC2…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 4.1k visitas
  24. Started by MiguelSaucedo,

    Buen día a todos, espero me puedan ayudar... Quiero IMPORTAR UNA TABLA DE "OPERACIONES ABIERTAS" unicamente y que se este actualizando cada determinado tiempo, Me marca un error pero no consigo corregirlo, Sub ObtenerDatosDeLaWeb() Dim htmlDeRespuesta As Object Dim contadorFilas As Long Dim contadorColumnas As Long Set htmlDeRespuesta = CreateObject("htmlFile") With CreateObject("msxm12.xmlhttp") .Open "GET", "http://www.myfxbook.com/members/MiguelSaucedo/991260/5229397/xXdymdQeIfUEo6S2NORp", False .send htmlDeRespuesta.body.innternal = .responsetext 'MsgBox (htmlDeRespuesta.body.i…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 675 visitas
  25. Started by Mariela Lopez,

    Hola, tengo una planilla para cargar datos sobre ingresos y egresos, estos datos se guardan con una macro y se cargan en otra hoja. Las opciones al completar en la planilla son "Ingresos en efectivo", "ingresos por transferencia" y "egresos", el problema es que no quiero que la macro funcione cuando la opción que se elija sea "ingresos por transferencia" ya que la hoja donde se cargan los datos corresponde a una caja real en efectivo (la opción de "ingresos por transferencia" esta por otro motivo). La macro utilizada es así: If movimiento = "Ingresos en efectivo" Then Sheets("caja H").Cells.Range("d5") = importe Else Sheets("caja H").Cells.Range("e5") = im…

    • 0

      Reacciones de usuarios

    • 10 respuestas
    • 2.1k 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.