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?
8690 temas en este foro
-
Hola a todos Tengo tres libros protegidos y cifrados. Los tres libros tienen la misma contraseña. Mi pregunta se refiere, a que cuando se carga el imputbox de petición de contraseña al abrir el primer libro, sería posible, copiar esa contraseña introducida de alguna menera haciendo que se abra el segundo libro y se pegue en el imputbox correspondiente, haciendo lo mismo con el tercer libro. He mirado y en vba no queda constancia de ese imputbox de apertura que usa el excel 365 al proteger con contraseña y cifrar el fichero. Un saludo y muchas gracias
-
0
Reacciones de usuarios
- 6 respuestas
- 1.2k visitas
-
-
Buenas por favor necesito de su ayuda. Tengo una hoaj en la cual estan mis datos, quiero crear con macros nuevas hojas que contengan las quince primeras filas en una hoja nueva, y las siguientes quince en otra hoja, y asi sucesivamente hasta terminar con el listado, aun asi la ultima hoja creada no tenga los las quince filas. Se podria hacer tambien para una cantidad variable de filas es decir 20 o 30 Gracias por su apoyo Medicos.xlsm
-
0
Reacciones de usuarios
- 5 respuestas
- 944 visitas
-
-
Que tal buenas tardes a todos!!! Para consultar y pedir apoyo si alguien me puede ayudar en este documento tengo una macro que se ejecuta con convinacion de teclas Ctrl+T dicha macro quiero eliminar la después de un cierto tiempo para que ya no se pueda ejecutar espero alguien me pueda ayudar y darme una propuesta Existencias_productos.xls.xlsm
-
0
Reacciones de usuarios
- 5 respuestas
- 1.7k visitas
- 1 seguidor
-
-
He revisado los temas con el buscador y aunque he encontrado algunos que pudieran valerme no he sido capaz de adaptarlos a mi necesidad obteniendo por ello toda clases de errores. Mi petición es la siguiente: Llevo el control de uso de una serie de edificios y salas donde se realizan diferentes presentaciones y actos y necesito destacar el final o inicio de cada Orden coloreando la fila correspondiente con un color suave (gris, violeta, ..). Agradeceré las ayudas que me podáis prestar.Control de actividades.xlsx Un saludo
-
0
Reacciones de usuarios
- 2 respuestas
- 926 visitas
-
-
Buenos dias a tos, Espero y deseo que todos esteis bien en los tiempos que corremos. Una vez más recurro a vuestra ayuda, gracias por anticipado Haber si soy capaz de explicarme Necesitaria cubrir las celdas de la hoja BBDD O98:Q122, con las celdas K9:N9 de la hoja Datos, aplicando todas las opciones posibles de las celdas B2:E2 que son lista despegables dependientes Es decir, necesito rellenar las celdas de la hoja BBDD O98:Q122, con las celdas K9:N9 de la hoja Datos, el como lo dejo a la imagibacion vuestra Esta vez creo que esta duda es algo mas compleja y no se si tiene solucion Gracias de todos los modos EJEMPLO.xlsx
-
0
Reacciones de usuarios
- 2 respuestas
- 812 visitas
-
-
como puedo agregarle al codigo para que realice la busqueda de derecha a izquierda y igualmente en diagonal hacia la izquierda sopa de letras.xlsm
-
0
Reacciones de usuarios
- 3 respuestas
- 1.1k visitas
-
-
Buenas tardes a todos, Con el permiso de @JSDJSD subo la hoja que creó él para ayudarme en otro tema ya resuelto y añado mis nuevas preguntas sobre el mismo archivo. Al abrir el archivo veréis que he intentado numerar y explicar mis consultas en el mismo excel. Resumen.... Aplicar condición de Mínimo y Máximo de caracteres en TextBox de formulario. Copiar y pegar en otra hoja el resultado obtenido con el buscador del formulario y ordenar columna sin "romper" las formulas de la columna B. Subo archivo para que lo podáis entender mejor. Un saludo y mil gracias como siempre y por adelantado. GenCv4.xlsm
-
0
Reacciones de usuarios
- 2 respuestas
- 895 visitas
- 1 seguidor
-
-
Expertos, disculpe tengo un archivo que cuando valido me debe copiar ese dato a otra hoja, e intentado grabando macros y solo me funciona para uno me debe hacer con todo. Tengo un video que e preparado para que me puedan entender mejor, por favor me ayuden como lo puedo hacer muchas gracias. https://drive.google.com/file/d/1VN18MGHOUM3nZwgJH6TxnMgi7kgt74cC/view?usp=sharing Adjunto el archivo. Rodillos.xlsm
-
0
Reacciones de usuarios
- 1 respuesta
- 801 visitas
-
-
BUENAS TARDESA TODOSY OJALA ME PUEDAN AYUDAR, TENGO ESTA MACRO QUE ME LA FACILITARON OJO NO ES DE MI AUTORIA MUCHO NIVEL PARA PODER HACERLO YO: Sub Copia_recetas() Dim Rng$, x# Dim rept As Range Dim celda With Sheets("BD_Recetas") Rng = .Range("D1") Range("C9:C48").ClearContents x = 9 For Each celda In Sheets("Proy.-Comer").Range(Rng) If celda <> "" Then Set rept = .Range("C9:C48").Find(celda, , , xlWhole) If rept Is Nothing Then _ .Cells(x, "C") = celda: x = x + 1 End If Next End With Sheet…
-
0
Reacciones de usuarios
- 1 respuesta
- 795 visitas
-
-
Hola!! Desarrollé un libro de excel con algunas formulas de uso común para mi y lo grabe en mi computadora como "COMPLEMENTO DE EXCEL" dejé que excel lo colocara en la carpeta por default que utiliza. Para trabajar ocupo el equipo de mi oficina, un equipo de escritorio en casa y una laptop, los tres con Excel 2016 MSO. Actualmente estoy desarrollando una solución utilizando VBA y dentro del código hago referencia a un par de formulas de las que contiene mi complemento utilizando la función Application.Run llamando al archivo mediante la ruta completa hasta la carpeta donde Excel guardó el complemento, en la computadora. El archivo de trabajo que estoy des…
-
0
Reacciones de usuarios
- 5 respuestas
- 4.3k visitas
-
-
Hola a todos y gracias por vuestra ayuda de antemano. Me he encontrado con un problema que no sé muy bien como resolver, espero que alguien me pueda hechar una mano, porque ya le he dado mil vueltas y estoy atascado, la verdad. Gracias. Sub buscar() 'Caso 1, compara fila por fila en el rango C1:C100 'Si en una fila encuentra el valor 1 y además el CheckBox1 está marcado escribe ok en F1 'Pero esta condición solo se ejecuta si el CheckBox1 está activado 'Si quiero recorrer todo el rango y escribir ok en cada acierto: 'Worksheets("Hoja1").Range("f" & i).Value = "ok" Dim i As Integer For i = 1 To 100 If Worksheets("Hoja1").Range("c…
-
0
Reacciones de usuarios
- 10 respuestas
- 2k visitas
-
-
Bueno basicamente necesito una macro que me ordene la columna A por los colores que tengan las celdas. Seguramente se habrá abierto este tema anteriormente pero aunque he buscado en los foros no lo encuentro. Tengo un archivo con varias columnas y quiero que se ordene la columna A junto con los datos que contienen las demas columnas. ordenar por color.xls
-
0
Reacciones de usuarios
- 2 respuestas
- 1.3k visitas
-
-
BUEN DIA MI ESTIMADO @AlexanderS molestandote de nuevo, queria saber si me puedes ayudar con este archivo: tengo un archivo "01 PCP.xlsx - v02 - copia" el cual entre otras hojas contiene tres principalmente, y son: "Proy.-Comer" - "BD_Recetas" - "Mat_Stock" En la hoja "Proy.-Comer" tenemos en color naranja las semanas del año, y en color amarillo los productos, y en plomo las cantidades (que se digitan manualmente). ***Lo que necesito es que en la hoja "BD_Recetas" , a partir de la celda "M65" Sume la cantidad correspondiente a la semana según el producto de la columna en color amarillo "L10:L193" Y sus cantidades (celdas de color…
-
0
Reacciones de usuarios
- 0 respuestas
- 794 visitas
-
-
Hola! Necesito hacer una columna donde cada celda sea un combobox, y que aparezca la opción de autocompletar. Encontré algo similar en este post: Sin embargo, la macro que comentan no me está funcionando. Me aparece el error 1004: "No se puede activar la aplicación de origen de este objeto." Alguien podría ayudarme? Gracias!
-
0
Reacciones de usuarios
- 0 respuestas
- 1k visitas
-
-
Buenos días, Soy principiante y tengo mil dudas. Agradezco en primer lugar toda la ayuda. He creado un conbobox y lo he rellenado con una lista utilizando las propiedades indicando el nombre de la lista en listfillrange y funciona. Pero si quisiera realizarlo con código teniendo en cuenta que la lista va aumentando y no quiero que incluya espacios vacíos de la columna F que es donde tengo la lista, ¿me podríais decir como puedo hacerlo? Gracias
-
0
Reacciones de usuarios
- 13 respuestas
- 3.1k visitas
-
-
Programé una macro para crear un libro por cada proveedor que funciona muy bien en con mi computador que tiene instalado Excel 2019, sin embargo, al ejecutar la macro en el computador del cliente, que tiene Excel 2013, aparece el error cuando trata de ejecutar la instrucción Workbooks(myNamebook).Activate. Fuera de Rango.xlsm
-
0
Reacciones de usuarios
- 2 respuestas
- 1.2k visitas
-
-
Expertos, muy buenos días necesito una ayuda con un pequeño archivo que contiene dos hojas llamados tiempos y reportpiloto en la cual en la hoja tiempo alimento datos y en la hoja reporte consulto cuando ingreso en la celda A1 un numero me debe filtrar solo ese numero pero la macro que lo e ingresado me muestra todo los números coincidentes, quiero que por favor una ayuda, por ejemplo si en la celda referida A1 ingreso 1 que me filtre en la tabla dinámica el 1 y si ingreso 2 así me filtre solo la 2 así hasta llegar a 100. Adjunto el archivo por favor. Control.xlsm
-
0
Reacciones de usuarios
- 2 respuestas
- 953 visitas
-
-
Saludos Estoy realizado un proyecto excel, con una Base de Datos, quiero modificar(actualizar) la BD, pero al ejecutar el código no hace la actualización y realiza otro registro en la primera fila Adjunto al archivo por se me pueden ayudar Modificar 2020.xlsm
-
0
Reacciones de usuarios
- 3 respuestas
- 1.9k visitas
-
-
Buenos días. Quisiera vuestra ayuda, he creado una macro excel para remitir correo desde una tabla excel, esta macro lee las celdas de excel y según condición envía un correo con el outlook, he conseguido ponerle confirmación de lectura, confirmación de entrega e importancia alta mediante esta macro, pero no encuentro nada y lo he buscado, de como ponerle seguimiento al correo enviado de un día. Les agradecería que me orientarais. Muchas gracias
-
0
Reacciones de usuarios
- 3 respuestas
- 1k visitas
-
-
Hola Buenas tardes. De antemano muchas gracias por su ayuda. Tengo el siguiente problema en un proyecto de VBA y agradezco la ayuda que me puedan dar. Tengo un formulario Userform1, dentro cual tengo los siguientes campos. Fecha Empleado Categoria* Servicio Precio Cantidad Total De entre estos campos el campo Categoria es un combobox, el cual ayudado de la propiedad del objeto rowsource alimento de la tabla 1 en en Excel Categoria Opcion 1 Opcion 2 Opcion 3 Tengo un formulario Userform2 para poder crear categorias, es decir alimentar la tabla 1. Aqui …
-
0
Reacciones de usuarios
- 6 respuestas
- 2.4k visitas
-
-
Retomo el tema de un compañero, alguien sabe donde se puede encontrar o que tenga un listado en excel o txt con los PAISES, ESTADOS(O PROVINCIAS O DEPARTAMENTOS) Y MUNICIPIOS(O DEPARTAMENTOS) a nivel mundial. O una base de datos, y que este relacionado es decir filtro país Estados Unidos me salgan solo los estados, ejemplo Florida y todas la ciudades, Miami, etc. Ejemplo CITYNAME STATE STATE_TYPE COUNTRY COUNTRY_CODE ARROYOFRIO TERUEL Province SPAIN ES AZAILA TERUEL Province SPAIN ES …
-
0
Reacciones de usuarios
- 1 respuesta
- 3.5k visitas
-
-
Muy buenas a todos y gracias de antemano por su tiempo. Tengo un cometido semanal que, creo, que me ocupa más tiempo del que debería pero no sé cómo automatizarlo. Tengo una serie de filas cuya primera celda puede estar coloreada o no. Aquellas que estén coloreadas tengo que arrastrar toda la fila 7 veces cambiando, únicamente, la fecha de la columna D al día siguiente al establecido (si pone 01/01/20 tendría que poner 02/01/2020, 03/01/2020 y así siete veces. Para ello me gustaría crear un botón que contenga una macro que lo haga de forma automática SÓLO para aquellas que estén en color naranja. Reitero mi agradecimiento y adjunto un fichero de ejempl…
-
0
Reacciones de usuarios
- 17 respuestas
- 3.1k visitas
-
-
si tengo esta macro Sub ejemplo() valor = 5 NameO = "BaseX" Set Rng = Sheets(NameO).Range("A:A").Find(valor, LookAt:=xlWhole) Sheets(NameO).Rng.Select '<= asi no funciona y coloco separado Sheet(nameO).select y en otra fila Rng.select si lo hace. End Sub pero necesito tomar los vlaores de las filas sin necesidad de selecionar la hoja, como hago eso. Como me posiciono en la celda del valor encontrado y copio toda la fila a otra hoja
-
0
Reacciones de usuarios
- 8 respuestas
- 2.6k visitas
- 1 seguidor
-
-
Hola, Estoy intentando aprender macros sencillas, pero me enganche en el Vlookup, no consigo hacer uno sencillo que me añada el nombre de un codigo que esta en otra pestaña. Que me falta o me sobra!?!? Basicamente quiero que me añada en la columna H el nombre del Codigo. Sub Vlookup() Dim Destination Dim Name Dim Cont Cont = 2 Do While Range("A" & Cont) <> "" Range("K" & Cont).Select Application.WorksheetFunction.Vlookup Range("H" & Cont), Worksheets("Sheet2").Columns("A:B"), 2, 0 Cont = Cont + 1 Loop End Sub Vlookup.xlsm
-
0
Reacciones de usuarios
- 10 respuestas
- 1.6k visitas
- 1 seguidor
-
-
hola expertos me pueden por favor colaborar con los siguientes dos codigostengo un rango de datos numericos que van desde "a1:sx42" pero hay varias celdas vacias y necesito agrupar todos esos datos en una columna en mi caso "ut"y el segundo codigo seria que elimine las celdas vacias de la columna utle agradezco que los codigos sean lo mas rapido posible al ejecutarse
-
0
Reacciones de usuarios
- 5 respuestas
- 1.6k visitas
- 1 seguidor
-
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.