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. Hola a todos, a ver si me podéis dar una ayuda con un tema que no consigo resolver, no domino excel como para resolver estas cosas por mi mismo y por más que leo posible opciones... Estoy intentando armar un editor de roadbook en excel, dicho editor no tiene un número fijo de filas (las añado con una macro según se necesiten), en la hoja "ROADBOOK", en la columna "D" (desde la celda "D41") quisiera añadir una imagen de entre las 360 que dispongo en otra hoja del libro (brújula), como indica el nombre son imágenes de brújulas con rumbo, y son estas las que quisiera pegar en las casillas de la columna "D" según el valor que contenga la celda "T42" (grados de rumbo, ejm, "…

    • 0

      Reacciones de usuarios

    • 8 respuestas
    • 1.6k visitas
  2. 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
  3. He traído una nueva inquietud, reciban saludos. ¿Cómo separar completamente nombres y apellidos a través de una macro? Es decir, poner primer nombre en B2, segundo nombre en C2, primer apellido en D2, segundo apellido en E2, y así respectivamente con cada uno de los ejemplos. ¿Es posible? Libro1.rar

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 3.6k visitas
  4. Estimados amigos del foro, aquí nuevamente haciéndoles una consulta en relación a poder identificar el genero y especie según se cumplen las caracteristicas alli puestas. Solo le he atinado a que me resulte una, el poco conocimiento no me da mas, por eso acudo a ustedes para saber como se podría resolver este tema. Agradezco su gentil apoyo Subo un archivo para que lo vean Clasificar.xlsm

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 771 visitas
  5. Hola a todos y muy buenos días. navegando por internet me he encontrado con un curioso generador de calendarios, y lo he estado modificando y adaptando para poder crear mis organigramas, sin embargo he intentado mil y una maneras de combinar y centrar las celdas en el proceso pero siempre me sale un error de codigo 1004 (Y diferentes explicaciones) pero no me sale ni a la de 3. ¿Se os ocurre alguna manera de conseguirlo? Aquí os dejor los archivos, uno es como funciona ahora y el final es el resultado que busco. PD: He intentado subir el archivo de varias maneras pero no me permite subirlo, aquí os dejo un enlace de mega con las dos documentos en un zip …

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 1.2k visitas
  6. Started by helard,

    Estoy haciendo una macro y al colocar esta formula =COINCIDIR(DERECHA(C8,1),Tabla!$F$2:$F$6,0) me sale error pero no entiendo porqueee alguien porfavor que me responda

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 634 visitas
  7. Estimados amigos del foro, me gustaría lograr hace desde Excel que se pueda copiar y pasar el modelo de texto que esta en la primera pagina de word a la siguiente pagina, si vuelvo a aplicar la macro se continua en la siguiente y así sucesivamente Subo el archivo de wor para que revisen, en este archivo esta una macro que hace lo que quiero pero esta en codigo macro de word, pero quiero hacerlo desde excel Se puede?? Gracias por su apoyo. PruebaPagWord.docm

    • 0

      Reacciones de usuarios

    • 14 respuestas
    • 1.4k visitas
  8. Buenas noches amigos de ayudaexcelforo, tengo un pequeño problema con un procedimiento y no logro encontrar el error, les escribo para ver la posibilidad de que me tiendan la mano. Les explico: Tengo un formulario para escanear códigos y traer de ese código información a textboxs y de ahí ir agregando información a un listbox y posterior a eso a una tabla en excel, todo esto me funciona bien en el primer registro, pero cuando quiero agregar mas registros al listbox ya no me hace el vaciado de información y no encuentro el porque. Es decir cuando agrego el primero registro me vacía la información en el listbox, pero cuando quiero agregar el segundo regist…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 639 visitas
  9. buenas espero que estén bien, necesito de su ayuda ya que estoy aprendiendo a manejar el excel a nivel macro, ya e vistos muchos vídeos y e leído mucho y no consigo la solución que busco tengo este formulario, me funciona muy bien pero quiero colocarle el PasswordChar = "*" y no doy con esa solución Private Sub LOGS_Click() CLAVE_LOGS = InputBox("EXCRIBA SU CLAVE") If CLAVE_LOGS = "w21052014r" Then Sheets("LOGS").Visible = True Sheets("LOGS").Select Else MsgBox ("CLAVE INCORRECTA!!!") Sheets("portada").Select End If End Sub si hay alguien que me ayuda por favor

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 4.3k visitas
  10. Started by alvaro_garcia,

    Buenas tardes, vuelvo a escribir para comentaros un problema. Tengo una petición pro REST API que me trae unos valores, y necesito que calcular el % de cada uno de estos valores, me estoy descargando el total y el valor de cada celda, asi que simplemente seria calcular el procentaje por cada una de las celdas, pero no consigo hacer funcionar el for, si uso formular de excel, me fallan en ocasiones, asi que estoy implementado el uso de una macro.Os pongo lo que estoy intentando y me falla: Sub calcular() Set rng = Sheets("AAA").Range("G11:G40") ' Rango donde se descargan los valores individuales Set percent_total = Sheets("AAA").Range("G10")' celd…

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 3.2k visitas
  11. Started by yordin,

    Buenos días amigos Escribo nuevamente a petición de una consulta o ayuda, manejo una base de datos la cual es usada por varios usuarios novatos en la empresa, a esta base le quiero adaptar una macro que guarde una copia del mismo archivo al momento de aperturar y al momento de cerrarlo, debe tener dos condiciones como indique al momento de su apertura este guarde una copia con su "nombre original, el dia y la escritura de apertura", y lo mismo al momento de cerrar. estos en una ruta especifica, esto por si algun cambio guardado debo reversar saber cual archivo usar. Private Sub Workbook_Open() ThisWorkbook.SaveCopyAs "Z:\Relacion laboral\GUARDERIA\copia-apertu…

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 1.2k visitas
  12. Started by artmandu,

    Hola Saludos a Todos!!!! Tengo un problema trabajando con texto, estoy usando un textbox y lo que necesito es que si el texto ingresado en este es mayor de determinado numero de caracteres sea repartido en diferentes filas en la hoja de excel, por mas que busco la manera de hacerlo no consigo hacerlo, espero me puedan ayudar el numero de caracteres máximo es de 42 por fila muchas gracias de antemano Saludos Cordiales Arturo

    • 0

      Reacciones de usuarios

    • 4 respuestas
    • 691 visitas
  13. Hola Amigos, soy nuevo aquí pero aprendo un montón de sus respuestas. Queria consultarles si pueden ayudarme con el siguiente tema. Deseo traspasar un rango de datos de una columna definida, de varios archivos, que se van nombrando de distinta manera, y traspasarlos a un excel común, uno al lado del otro (de acuerdo a un numero de reporte correlativo) para lograr hacer un estadistico con dichos datos. Adicionalmente a esto, vale comentar que la columna de donde saco la informacion (de cada reporte con distinto nombre), es una columna que tiene una formula y que debo colocar en el estadistico como valor absoluto. Desde ya les agradezco.

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 585 visitas
  14. Buenas noches Bueno la idea es una macro que me grabe el archivo como Archivo_dia_hora cuando lo vuelva a abrir , machaque el archivo anterior y escriba Archivo_nuevo dia_nueva hora cosa que cuando lo vea sabre que es el ultimo y que ademas cree una copia de respaldo de la forma Respaldo_Archivo_nuevo dia_nueva hora no subi archivo pues cualquier archivo excel cumple la funcion creo. gracias

    • 0

      Reacciones de usuarios

    • 32 respuestas
    • 3.5k visitas
  15. Hola muy buenas, nose si este es el lugar, la verdad pero es que tengo un csv que esta en formato libro de excell que me pasa mi proveedor y quisiera que aparecieran tambien las urls de las imagenes y otras cosas de interes para subirlo a unas webs comerciales pero lo que ocurre es que me dan una informacion de como acceder a una API que tienen ellos para hacerlo, el tema es que no entiendo muy bien que es lo que tengo que hacer para "llamar" o algo asi dicen a esa accion, tengo que poner ese tipo de link que me dan en la API en el recuadro de el articulo el cual quiero la imagen y la descripcion? Por ejemplo para las especificaciones me dice esto: …

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 593 visitas
  16. Started by jcpi,

    Buenas, tengo el siguiente problema, una vez genero la fecha d, los valores que extraigo son erróneos y me sale por defecto en año = 1905, mes = 01(enero) y día = 29, cuando obviamente no estamos a esa fecha. No he encontrado la solución por ningún sitio, y estoy un poco verde en esto, si alguien me puede echar una mano lo agradecería! Saludos Private Sub ComboBox4_Change() 'Se utiliza para poder generar un numero de oferta Range("B3").Select Selection.End(xlDown).Select seleccion = ActiveCell.Row d = Date y = Format(Year(d), "yyyy") m = Format(Month(d), "mm") dia…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 823 visitas
  17. Started by pauarc30,

    Hola, En la macro que adjunto al momento de darle doble clic a la casilla de chequeo (check box), excel me pone un check y me lo tacha, al igual que el tema. En qué parte puedo modificar la macro para que no me tache las palabras?? Por favor su ayuda. Check_list_prueba.xlsm

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 680 visitas
  18. Started by leandrogo,

    Hola buenas tardes, Tengo un problema para comparar tres filas en excel, se los agradecería demasiado si me ayudasen. Estas son las tablasTabla 1: Tabla:2 Necesito una formula o una macro en donde me compare: -Entidad de la "Hoja1" es igual a la Entidad de la "Hoja2" -Municipio de la "Hoja1" es igual a la Municipio de la "Hoja2" -Localidad de la "Hoja1" es igual a la Localidad de la "Hoja2" Si se cumplen las 3 condiciones que copie Numero A de la "Hoja2" a una columna de la "Hoja1" Les agradecería mucho su ayuda

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 730 visitas
  19. Buen día foro, adjunto un archivo el cual se compone de dos hojas (Hoja1 tabla de datos) y (Hoja3) formato de consulta/reporte) en el cual entre otras la Columna A tiene un numero el cual se ordena consecutivamente, la columna E un numero de Parte y columna G numero de Certificado, lo que estoy batallando es para que tomando como referencia la columna A me aparezcan solo datos únicos y elimine los duplicados, ya que la referencia de la columna G (numero de certificado) si se agrupa en una celda, el link que se genera automáticamente en la columna J ya no me abre puesto que me toma la referencia del certificado todo agrupado y lo nombra con todas las referencias agrupadas.…

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 943 visitas
  20. Buenos días a todos, Primero que todo estoy en proceso de aprender, por tal motivo recurro a ustedes para que me orienten o me ayuden a resolver el siguiente problema, ya que no he sido capaz a traves de una macro o como ustedes me puedan guiar, es lo siguiente: 1. Tengo un archivo con varias hojas, que vienen hacer los días del mes, en el ejemplo el Archivo se llama "Datos_Prueba" y los días son 16-17 y 20 2. Se generan unos registros día a día de las filas 1 a la 19, de 20 a la 39, de la 40 a la 59 y de la 60 a la 80, esto es porque hay varios módulos por cada representante de ventas y se tienen 20 filas por cada uno de ellos. 3. Hay una Base de Dato…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 696 visitas
  21. Buen día, amigos espero puedan ayudarme, estuve buscando modelos para poder ejecutar mi pequeño proyecto, pero me perdí en el intento de interpretar códigos, necesito ayuda, saben mi problema es el siguiente: tengo un libro llamado rendiciones, consta de tres hojas bd, consulta y rendición, la hoja rendición es la principal, deseo que mediante el comando consultar pueda derivarse a la hoja consulta y al ingresar un dato en la celda pueda filtrarse información de la base de datos, DESDE YA AGRADESCO INFINITAMENTE SU APOYO. RENDICIONES.xlsx

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 895 visitas
  22. Hola, quisiera saber si hay forma de conectarme a sql server pero con otro usuario de red de windows. Esta primera cadena, realiza la conexión pero con usuario local de sql server: cn.ConnectionString = "provider=sqloledb.1;data source=DESKTOP-GRP18I3;user id=prueba;password=prueba;initial catalog=prueba" Esta segunda cadena, realiza la conexión pero con el usuario que en ese momento esta logueado en la PC: cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=lims\ts;initial catalog=Prueba" Ambas funcionan correctamente sin embargo quisiera saber si es posible poder utilizar la segunda conexión, pero…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 2.1k visitas
  23. Started by viejo,

    buen dia, hola tengo una super duda, pues como lo dice el titulo requiero pasar datos de un listbox a otro, lo que sucede es que la verdad me cuesta mucho trabajo el utilizar listbox porque me confundo mucho con respecto a los items y el manejo de las columnas e indices, trate de hacer un ejemplo pero no me queda porque solo logro pasar un item a una sola columna del listbox pero quiero que se pase tal cual sea lo que haya en el listbox1 al listbox2 ya que en un futuro pretendo agregar mas cosas en el listbox2 mas lo que ya venia del listbox1. espero darme a entender, dejo el archivo muestra. Saludos listbox aotro listbox.rar

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 3.4k visitas
  24. Buen dia! Tengo esta inquietud.. Tengo esta formula Sub ordenarfiltro() Sheets("Mantenimiento").Activate Range("a2").Select Range("A2:J2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Sort Key1:=Range("a3"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub Ahora yo quiero que si la celda "A2" esta vacia, la macro no corra. Osea que no pase nada.. eso es para el caso de que aun no se hayan llenado valores en la tabla. Simplemente eso.. Gracias!!

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 20.5k visitas
  25. Started by TREBUR,

    Hola... Tengo una serie de datos estimados y necesito automatizarlos para obtener la Campana de Gauss de una manera más rápida, usando como base el archivo adjunto. Coloqué una imágen que refleja como debería ser el resultado final, hombres del lado izquierdo en color azul y mujeres del lado derecho. La idea es obtener la Campana de Gauss con proyecciones de más años, por ello la intención de automatizar la tarea. ¿Es posible? Apu-1.rar

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 816 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.