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 Benito Bartolomé,

    Hola a todos; Imagino que lo que voy a preguntar no se puede hacer pero quiero salir de dudas si sois tan amables. ¿Es posible cargar en un textBox el contenido de mas de un rango de celdas? Creo que únicamente concatenando, no? Adjunto la macro y saludos a todos. MRango.xlsm

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 1.4k visitas
  2. Started by ANANDA,

    Hola Seguro que es algo básico pero me estoy volviendo loca, mi nivel en macros es nulo. Tengo una hoja con datos en diversas columnas, incluídas celdas en blanco. Quiero que se copien todos los datos de las 4 columnas en una sóla, como valores (en el excel original son fórmulas; aquí son valores), eliminando las celdas en blanco. Y si hago una modificación en la hoja de datos, al volver a ejecutar la macro que elimine los datos del listado y genere los datos de nuevo. Dejo un ejemplo (o al menos eso creo). Espero que sea lo suficiente claro. Cualquier duda.... Muchas gracias Prueba.xls

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 960 visitas
  3. Started by EDUARD1580,

    buen dia amigos del foro como estan, amigos por favor me ayudan con este problema que tengo,con el buscador de ecel me falta los sigiente: envio el ejemplo: en la hoja 1 (datos )tenemos la informacion y en la hoja 2 (busqueda) tenemos lo la busqueda de la hoja 1(datos) peroooo lo que no e podido hacer que al digitar en el conteo de la hoja 2 (busqueda) me saldo al codigo correspondiente, si busco el codigo 1212 al digitar 30 me salgo automatico en la hoja 1(datos) y si busco otro codigo que al digitar se coloque en la casilla y fila correspondiente espero que me ayuden plisssssss¡¡

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 848 visitas
  4. Buen día Gente, Primero que nada agradecer a todos por la ayuda que me han prestado en este foro, ya que he encontrado mucha información valiosa para mi, MUCHAS GRACIAS GENTE POR SU TIEMPO Y COLABORACIÓN!!!! Bueno, necesito una ayuda con un tema, tengo un botón con el cual abro un archivo mediante un hipervinculo a este que se carga a un label, el tema es que no se como colocar que si el label esta sin informacion me salga un mensaje como "La imagen no esta cargada" y no me genere el error. Este el codigo del boton Dim url As String 'para abrir una pagina url = Label28 ActiveWorkbook.FollowHyperlink url [/CODE]

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 714 visitas
  5. Started by c_maurtayu,

    Hola amigos Tengo una data de cientos de id y decenas de grupos; la idea es que se presente un resumen con id unicos pero asociados con los distintos grupos de forma resumida al lado de la id. El archivo con la explicacion mas clara lo adjunto. Por favor alguien su mano caritativa. Gracias de antemano por su tiempo. :nevreness: ayuda grupos.zip

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 1.5k visitas
  6. Hola a toda la comunidad tengo la siguiente pregunta: Tengo un archivo Excel con macros vba y quisiera compartirlo a varios usuarios, pero cuando ingresan los usuarios a la misma vez al archivo sale que uno de ellos solo puede leer el archivo mas no ingresar ni modificar, existe alguna solución para mi problema planteado.. Gracias de antemano archivo: Dropbox - SILEG_NUEVO-2013.xlsm

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 3.2k visitas
  7. Buena noche a todos: Tengo una macro que me compartió un amigo desde hace varios meses, pero no tuve la oportunidad de probar, sin embargo, ahora que lo necesité, traté de utilizarlo pero me arroja un error de #¡VALOR! Esta macro en teoría calcula el área de un polígono usando angulos azimutales y distancias. Para ello selecciono de primero el rango de las distancias, luego el rango que contiene los ángulos azimutales, pero como resultado obtengo el mensaje anterior. Adjunto el archivo de ejemplo, para ver si alguien pueda apoyarme. Saludos. Ejemplo.xlsm

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 800 visitas
    • 1 seguidor
  8. Buenas tardes a todos; Una pequeña ayudita si es posible.. Quería borrar los datos de unas determinadas celdas al abrir el libro Excel. En la macro que he creado y adjuntado hace eso mismo pero debo estar situado en esa hoja para que se cumpla. Lo que me gustaría conseguir es que los borre esos datos sin que sea obligatorio estar en esa determinada hoja. Gracias y feliz año a todos. BORRAR.xlsm

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 1.3k visitas
    • 1 seguidor
  9. 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
  10. Buenos días, Necesito una macro que me busque en toda la columna K el valor 0, y si las celdas de abajo estan vacias lo rellene con el mismo valor, o sea 0. Tengo esta macro que no funciona bien, porque me copia en todas las celdas el valor 0, sobreescribiendo en celdas que tienen otro valor distinto a cero y admás da un error. Sub prueba() Dim Celda As Range Dim Primeradir As String Set Celda = Range("K:K").Find(what:=Range(0).Value, _ After:=Range("K1"), _ Lookat:=xlWhole) If Not Celda Is Nothing Then Primer…

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 900 visitas
    • 1 seguidor
  11. Started by juancyuky,

    tengo un proyecto amigos de filtrado Sub filtro_prueba() Range("A9").CurrentRegion.AutoFilter Field:=12, Criteria1:=Sheets("anexo").Range("b10").Value 'estatus es un texto Range("A9").CurrentRegion.AutoFilter Field:=9, Criteria1:=Sheets("anexo").Range("b12").Value 'es una fecha end sub desde la fila 9 inician mis datos los cuales tienen un encabezado , lo que pretendo hacer es filtrar dos condiciones una de estatus y la otra es de fecha solo que no me funciona ojala me puedan ayudar

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 618 visitas
  12. Buenas tardes! A ver si alguien sabe ayudarme... ? Si tenemos una columna, cuyas celdas siempre contienen "C" o "D", ¿cómo puedo localizar la última "C" de la columna? Si: - La última "C" no tiene por qué coincidir con la última fila. - No podemos saber cuántas filas, ni cuántas "C" o "D" habrá. Es decir, que hay que evaluar todas las celdas de una columna, cuyo número de filas es desconocido y seleccionar la celda cuyo valor sea C y no haya más celdas después con C, aunque sí puede haber anteriores celdas con ese mismo valor. Gracias!

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 1k visitas
    • 1 seguidor
  13. Started by NAB_20,

    Buenas noches, estoy haciendo el código de una macro y pese a que estoy consiguiendo que "funcione" no estoy contento con el código. En la macro "SumaSiFrutaVendedor" la columna de la fruta es dinámica y nos podemos encontrar que en ocasiones haya 3 productos como 10 diferentes. Me gustaría conseguir que cuando inserto la línea del "sumIfs" sea dinámica y se adapte al rango de la cantidad de frutas diferentes, lo estoy pensando, pero no veo como ahorrar líneas de la macro... Estoy empezando con el vba y ando perdido cualquier ayuda será bienvenida para seguir aprendiendo. Saludos PruebaVendedor.xlsm

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 2.7k visitas
  14. Started by meduvilla,

    Hola estimados: tengo una solicitud ... por favor alguien me ayudaria con esto al insertar en textbox1 el valor neto , que el textbox2 cargue el monto del Iva 19 % automaticamente y textbox3 sume le valor del neto mas el iva (TXT2 + TXT1) desde ya agradecido form iva.xlsm

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 2.5k visitas
  15. En este formulario hay una sumatoria de los totales de los productos y ya esta perfecto pero cuando el vendedor necesitara ingresar: -iva (se le suma al total generado de la suma de los precios de los productos) -descuento (se le resta al total generado de la suma de los precios de los productos) -retencion (se le resta al total generado de la suma de los precios de los productos) el textbox de "VALOR TOTAL A PAGAR" seria: txtsumaart+txtiva-txtdescuento-txtretencion lo que pasa es que: hay veces que no se ingresa descuento ni retencion hay veces que no se ingresa descuento ni retencion ni iva puede ser variable dependiendo la situacion de todas manera…

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 1.8k visitas
  16. Started by dc8,

    Buenos días Foro, Necesito vuestra ayuda y conocimiento para un error con VBA. Hace un mes que lleva dándome problema una línea de código (no había pasado en más de un año) y tras mirar en mil páginas no encuentro solución, por si pudierais echarme una mano. Os adjunto la línea de código: El error se encuentra en el "end if" del final. No sabéis lo importante que me es solucionarlo y no encuentro la solución... Mil gracias Sub ImportarModelos() Dim strSource As String Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim consulta As String Dim archivoAbrir As Excel.Workbook Dim RUTAExcel As String Dim strRespu…

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 813 visitas
    • 1 seguidor
  17. Hola, tengo una carpeta que se llama TRABAJO, ahí tengo muchos archivos que debo ejecutar la macros que ya me ayudaron, una que elimina a los reperidos de una fila dejando solo uno y manteniendo el resto. pero como son muchos archivos me demoro mucho en hacerlo uno por por uno, entonces mi pregunta es cómo puedo hacer para que esa macros se ejecute en todos los archivos de esa carpeta sin yo abrirlos y que se guarde automáticamente. gracias Muestra - AYUDA EXCEL.xlsm

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 1.4k visitas
    • 2 seguidores
  18. Buenas tardes tengo una base de datos y deseo que se visualize el ultimo codigo al momento de guardar la info, sabiendo que el tipo de dato en la base de datos es nvarchar como hago para que sea asi: Fact-0001,Fact -0002,Fact -0003,etc etc Set rst = New ADODB.Recordset rst.ActiveConnection = con rst.Source = "Select Max(Codigo_nota) As Maximo From Tabla" rst.Open If rst.Fields(0) > 0 Then For i = 1 To rst.Fields("Maximo") + 1 Next endif con.Close If Not rst Is Nothing Then Set rst = Nothing If Not con Is Nothing Then Set con = Nothing

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 6.8k visitas
  19. Started by bijin,

    Buenos días Les escribo por qué tengo un problema en la macro, a continuación se lo detallo: La macro lo que debe hacer es actualizar el saldo actual de la pestaña (Préstamos) de acuerdo con el dato resultante en D17, pero debe ser solo al mismo préstamo, igual debe pasar con la fecha del último pago, debe cambiarla con la de D18 para que se actualice. La otra parte de la macro ya la tengo clara y es relacionada con ingresar el movimiento en la pestaña de movimientos. Adjunto el archivo por aquello de las dudas Y gracias de antemano. P.D. Un saludo desde Costa Rica. Ejemplo.xls

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 1.2k visitas
  20. Started by josyta-geo,

    Estimados: Estoy tratando de programar un boton dentro de un formulario que me lleve al hipervinculo rescatado desde una busqueda, cuya direccion se guarda en la planilla. Adjunto el ejemplo. EJEMPLO1.xls

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 4.4k visitas
  21. Started by rzamoras,

    Buenos días, Solicito su ayuda para pasar el contenido de 12000 archivos en formato .rtf dentro de una carpeta con historia clínicas, requiero pasar estos datos a una base de Excel para usarlos posteriormente en Access. En una columna debe estar el nombre del archivo ya que esta vinculado a la ID del paciente, y en otra columna el contenido del archivo. Ya busque en el foro, encontré una macro para pasar txt pero no me funciono, se bloquea el archivo de Excel y no responde. Gracias Rene Zamora

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 2k visitas
    • 1 seguidor
  22. Started by Alfonso5597,

    Hola amigos foreros, y saludos a los maestros. Estoy de nuevo con todos ustedes para solicitar su inestimable ayuda con un problema que no puedo resolver y les agradeceria, le explico; tengo un buscador que necesito me encuentre ( eso lo tengo resuelto ) por varias opciones, el problema es que solo me devuelve un total de 8 columnas de datos y tengo 13, he provado varias cosas pero no doy con el asunto, les dejo la hoja para que lo vean, muchas gracias por anticipado Saludos cordiales Prueba.rar

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 1k visitas
  23. Started by elkely,

    Buenas. En el ejemplo adjunto tengo una tabla (C14:D14) donde al selecionar un nombre, este aparece por codigo puesto en página en la celda C1. A partir de ahí se genera unos resultados que aparecen desde C2:D12. Lo que queria conseguir es que en si en esos resultados aparecen 1 o mas duplicados, apareciara un msgbox con el titulo "Atención" que alertara de que "Tienes una o varias coincidencia, ¿quieres continuar?", y diera la opción "sí o no". Gracias por vuestra ayuda. AVISOS1.xlsm

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 3.2k visitas
  24. Hola a todos; En la macro que adjunto importo los nombres de un directorio a mi Excel con el siguiente formato: Fecha+un espacio+terminación: Ejemplo: 010223 f.pdf Con la función extrae puedo dejarlo en 010223 pero sigue sin tener el formato fecha. Me puede servir con Macro o también si se puede con Power Query. Saludos a todos y buen día. P.D.: Decir que en la macro ya he importado los nombres de los archivos. MDir.xlsm

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 733 visitas
  25. Started by Joseito,

    Buenos días estoy teniendo problemas con que se ejecuten correctamente mis alertas de vencimiento de fechas en mi proyecto cuando agrego o modifico en mi tabla de registro echa en VBA, si alguien me puede Ayudar por favor se lo voy agradecer mucho. Gracias de antemano. Base De Datos Streaming_v4.xlsm

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 2.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 sergio@ayudaexcel.com

Información adicional: Encontrarás más información en la política de privacidad.