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?
8682 temas en este foro
-
Hola y buenos días a todos; He empezado a crear una macro que me permite crear un archivo .txt pero no sé como continuar. Quiero conseguir que los datos almacenados o filtrados inclusive los que vaya seleccionando con el ratón en el listbox del frm_Cobros los pueda capturar y poder exportarlos al archivo .txt generado. Adjunto macro y video: https://youtu.be/bVO7f-JZuSg Saludos. ExportarTxt.zip
-
0
Reacciones de usuarios
- 6 respuestas
- 2.2k visitas
- 1 seguidor
-
-
Buenos días, ¿podrías ayudarme con el código que se debe aplicar para desagrupar todas las columnas de una hoja excel? También necesitaría vuestro apoyo para descubrir como eliminar las columnas que contengan la palabra "Production plan" y "dispatched volume" de la fila 5. Hasa ahora tenía la siguiente formula, pero me da error: Sub Control_Producción() ' ' Control_Producción Macro ' Controlar el material producido vs la producción planificada ' ' Acceso directo: CTRL+p Cells.ClearComments ' eliminar comentario de la hoja' Worksheets(1).Select Set MR = Range("5:5") ' Eliminar columnas que contengan la p…
-
0
Reacciones de usuarios
- 6 respuestas
- 2.2k visitas
-
-
Hola a todos. De nuevo por aquí pidiendo ayuda. Nos han cambiado las licencias de Office a Office 365. He revisado las macros y las que me fallan tienen que ver con las que envío correos automatizados. He podido arreglar todas, cambiando el código porque de Office 2013 a Office 365 cambia el código, se usa el objeto CDO.Message. Pero se me resiste esta macro, que envía un correo e incluye como parte del cuerpo del correo un rango de celdas donde hay un gráfico. Os pego el código para ver si me podéis ayudar. Después de la instrucción "ActiveWorkbook.EnvelopeVisible = True" el programa ya no ejecuta nada más. He probado con F8 paso a paso y ahí se detiene. Necesi…
-
0
Reacciones de usuarios
- 2 respuestas
- 2.2k visitas
- 1 seguidor
-
-
Hola saludo cordial a todos en especial a una de las personas que me han apoyado bastante en mi dudas al Gran Macro Antonio, y a Bigpetroman bueno mi duda es la siguiente es con relacion a un formulario que me hizo favor de apoyar el Gran Macro Antonio, funciona muy bien reliza todo la funcion para la que fue creado pero aqui biene una de mis dudas, en un dia de trabajo con el archivo en comento empezo a marcar error revise y pues nada fuera de lo normal solo que el error marcaba que no podia mostar el userform. se cerro el programa y volvio a trabajar normalmente y despues de cierto tiempo de nuevo volvio a marcar el error el mismo error, entonces me di cuenta verifica…
-
0
Reacciones de usuarios
- 2 respuestas
- 2.2k visitas
-
-
Buenos días, Lo primero que esteis bien junto con vuestras familias. La siguiente macro funcionaba en excel 2016 y ha dejado de funcionar en excel 365. Lo curioso es que si lo ejecuto paso a paso (PF8) funciona pero si se jecuta la macro de corrido no exporta las imagenes y necesito exportar mas 500. Heprobado a poner un delay hasta de 10 sg ¿Podríais ayudadme por favor? Muchísimas gracias y un cordial saludo. ---------------------------------------- Sub CopiaCeldasGrabaImagen(ruta) Dim RangoC As Range Dim Archivo As String Dim Imagen As Chart Dim Result As Boolean Archivo = ruta & ".gif" Set Rango…
-
0
Reacciones de usuarios
- 1 respuesta
- 2.2k visitas
-
-
error mac.pdf Buenas Tardes desde Colombia Adjunto imagen del error que me sale al ejecutar un archivo en mac, lo raro es que yo lo tenia en mi excel de windows y funcionaba perfectamente y ya hoy al abrirlo me esta sacando el mismo error, agradezco su ayuda
-
0
Reacciones de usuarios
- 7 respuestas
- 2.2k visitas
-
-
Buenos días, tengo una planilla en la cual estoy trabajando con la siguiente MACRO Sub Genera() Dim numConsec As Long Dim strConsec As String Range("M1").Select Selection.NumberFormat = "@" If IsEmpty(ActiveCell) Then Range("M1").Value = "00001" Else numConsec = Val(Range("M1").Value) + 1 strConsec = Right("00000" & Trim(Str(numConsec)), 5) Range("M1").Value = strConsec End If End Sub Mi consulta es como puedo hacer para que esta MACRO funcione en todas las hojas del LIBRO(5 hojas, con posibilidad de incrementar), es decir si en la hoja 1 se uso el numero 00001, en la hoja 2 si se ejecuta la MACRO se use el 00002, si vuelvo a la hoja …
-
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.2k visitas
-
-
Hola, tengo una hoja de excel en la que voy registrando mis actividades en bici. Suelo ir añadiendo filas a la misma y muchas veces algunas están duplicadas. Estoy intentando hacer una macro que las elimine automáticamente pero no soy capaz de conseguirlo. Adjunto una hoja de ejemplo en la que me gustaría eliminar las filas 5 a 9 (las he señalado en amarillo) porque ya están incluidas en las filas 10 a 14. He conseguido hacer una macro pero me elimina las más antiguas, la adjunto también. La columna que utilizo para detectar los duplicados es la columna de fecha que incluye la hora y que por tanto nunca podría repetirse... ¿Puede alguien ayudarme? …
-
0
Reacciones de usuarios
- 6 respuestas
- 2.2k visitas
- 1 seguidor
-
-
Buenos días, He creado una ficha en la que resumo los datos anuales de la actividad que tiene un cliente. Éstos datos los importo de la primera hoja del libro. Pero ésta primera hoja siempre tiene un numero diferente de filas, (los datos de ésta hoja 1 los pego desde otro libro en excel que recibo de otra fuente distinta). Necesito una macro o una formula que me permita crear una fila en mi ficha (hoja 2) después de la última fila activa de la hoja 1 y luego en ésta ultima fila creada pondré tres formulas distintas. Una para que me cuente el número de filas que tiene el archivo y otras dos para que me calculen el promedio de los datos que hay en dos determinadas columna…
-
0
Reacciones de usuarios
- 2 respuestas
- 2.2k visitas
-
-
Estimados Soy nuevo en el foro y en el uso de VBA Excel y quisiera ver como puedo pasar el formato condicional que tengo en la hoja de exel y mostarla en un userform. o si se puede por ultimo dar formato de color a cada celda del listbox. dejare adjunto el excel. Espero que me puedan ayudar. Muchas gracias. Libro1.xlsm
-
0
Reacciones de usuarios
- 1 respuesta
- 2.2k visitas
-
-
Hola buenas y gracias por anticipado, vamos a ver si me explico y me podeis entender, trabajo con una hoja en la cual cuenta con 16 columnas, y toda cuando esta completa se llenaran asi como 45000 lineas, lo que yo necesito es buscar duplicidades entre toda la hoja y copiar las lineas completas en otra hoja, para detectar el siguiente criterio de duplicidad: 1.- que detecte las columnas C,D,E (nombre apellido1 apellido2 ) que coincida con todas las filas y las copie en otra hoja, llamada duplicidades, pero con la linea completa desde columnas A hasta P de las mismas lineas 2.- que detecte las columnas F,G,H (dni,nie,pasaporte) que esten duplicadas y copie todas en l…
-
0
Reacciones de usuarios
- 12 respuestas
- 2.2k visitas
-
-
Buena tardes. Tengo una duda, se podrá separar los datos de una hoja en varias hojas siguiendo un criterio. Por ejemplo, tengo una base de datos de miles de trabajadores (filas), con muchísimos datos (columnas) y que son de diferentes empresas, lo que quiero saber es si se puede separar todos esos trabajadores dependiendo de la empresa a la que pertenecen de manera automatizada sin tener que estar filtrando y copiando los datos que necesito. Aquí subo un ejemplo de lo que necesito, gracias de antemano por su respuesta. Modelo 1.xlsx
-
0
Reacciones de usuarios
- 6 respuestas
- 2.2k visitas
- 1 seguidor
-
-
Buen día compañeros, espero que estén bien. Quiero molestarlos, ya que no logro encontrar solución a lo que necesito. Lo que no logro encontrar es cómo crear una lista validada en Excel, pero que tenga datos consecutivos, es decir, colocar en la lista los números del 1 al 1000 (por ejemplo), pero sin necesidad de estar escribiendo los números dentro de la lista. Sé que muchos dirán que con hacer una lista en una hoja vacía del 1 al 1000 se logra el cometido, pero no es lo que necesito, ya que no quiero llenar el archivo de hojas inútiles y que en algún futuro pueda ser manipulado. Entendería que no es necesario un archivo, puesto que no solicito macro o sim…
-
0
Reacciones de usuarios
- 4 respuestas
- 2.2k visitas
-
-
Control Calendario en excel 2010 64 bits Amigos, nuevamente recurro a ustedes. Tengo un archivo que he reducido para poder subirlo. En el hay un calendario asociado a un label. En excel 2010 32 bits funcionaba perfecto, sin embargo en excel 2010 64 bits no anda. Aparece "No se encontró el método o el dato miembro". Intente agregar el MSCal.ocx, pero igual no anda. Alguna solución?? Desde ya quedo agradecido por sus innumerables asistencias. Saludos desde Chile. Ejemplo Calendario.rar
-
0
Reacciones de usuarios
- 6 respuestas
- 2.2k visitas
-
-
Hola, espero alguien me pueda ayudar con esto que ya no se que hacer, Necesito lograr lo siguiente: deseo que se hagan permutaciones de diferentes ingredientes de un producto, pero que tengan reglas para evitar combinaciones que no se usaran nunca, ejemplo: columnas A B C Naranja Limón Cereal Este es el archivo que utilizo, chequenlo porfavor: https://www.dropbox.com/sh/8jnoujhurswcfn3/97VoOEtoxw/Combinaciones productos.xlsm Deseo tener un macro que me permita poner excepciones en sus combinaciones y que no se repitan los ingredientes, ejemplo: Sandia, Jicama, Jicama, Limón, Sal, Jicama, Jicama, Sandia, Limón, Sal, Gracias, muchas graci…
-
0
Reacciones de usuarios
- 11 respuestas
- 2.2k visitas
-
-
Buenas, tengo un problema con estos codigos. El siguiente, me falla en la parte del codigo donde graba el archivo temporal (negrita). y Me aparece el siguiente mensaje de eror al depurar: Se ha producido el error '1004' en tiempo de ejecucion: No se puede tener acceso al archivo. Intente lo siguiente: Compruebe que la carpeta especificada existe Compruebe que la carpeta que contiene el archivo no es de solo lectura Compruebe que el archivo no contiene ninguno de los siguientes caracteres: < > ? [ ] : o *[/HTML] Lo extraño es que anteriormente funcionaba facilmente y lo unico que hice antes de que dejara de funcionar es cambiarle el nombre de la hoja a enviar.…
-
0
Reacciones de usuarios
- 5 respuestas
- 2.2k visitas
-
-
Hoja amigos, les traigo a ustedes este error que me marca una macro, cabe decir que algunas macros las encontré en este foro y las adapte a mis necesidades. Les platico. la siguiente macro la tengo en un botón, el cual al dar clic llama a un userform Private Sub CommandButton6_Click() EliminarFilas2.Show End Sub en ese userform hay que poner una contraseña para poder eliminar Private Sub CommandButton1_Click() Dim resp As Integer resp = 3313 If TextBox1 = 3313 Then Unload Me 'Tu procedimiento aquí Call Busqueda_Resguardo.eliminarProducto Else MsgBox ("La clave ingresada es incorrecta"), vbInformation, "AVISO" TextBox1 =…
-
0
Reacciones de usuarios
- 9 respuestas
- 2.2k visitas
- 2 seguidores
-
-
Hola a todos. Tengo un bucle donde el nombre del la variable de la cual necesito obtener el valor va cambiando de Cant1....a....Cant10 (he simplificado el ejemplo que sigue). Los valores de estas variables Cant1.. fueron definidos antes para todo el módulo. Dim i As Byte Dim a As String For i = 1 To 10 a = "Cant" & i Cells(Fila, 1).Value = a Next i El bucle como tal funciona pero tengo el problema que en lugar de ponerme el valor de Cant1, Cant2 (definidos antes) me escribe el texto "cant1", "cant2". Como obtengo el valor de Cant1 a Cant10? Gracias
-
0
Reacciones de usuarios
- 6 respuestas
- 2.2k visitas
-
-
Buenas tardes a tod@s, He rebuscado y rebuscado, y probado una y más cosas, pero no soy capaz de solucionar este problema. Creado formulario con unas dimensiones de 960x702 en un monitor de 1280x1024 me encuentro con el problema que cuando lo ejecuto en otra máquina (p.e.: portatil con pantalla de 1024x768) el formulario no se muestra completo. He encontrado algunos códigos que deberían tomar la resolución del monitor dónde se ejecuta y redimensionar el formulario (cosa que algunos si hacen) y los controles de este (cosa que no he conseguido casi con ninguno de ellos, aunque con resultados extraños). He tratado de implementar una solución del usuario A…
-
0
Reacciones de usuarios
- 2 respuestas
- 2.2k visitas
- 1 seguidor
-
-
Hola estoy intentando conectar Excel a SQLITE pero no hay manera. Mi sistema: Excel 365 y Windows 10- 64 bits Lo que tengo es lo siguiente: With cnn .Provider = "msoledbsql" .ConnectionString = "DRIVER=" & Driver & ";DataBase=" & Ruta & Fichero '& ";": c_error = True .Open End With Está instalado el driver "SQLite3 ODBC Driver" y la referencia Microsoft ActiveX Data Objects 6.0 Library. Pero me da el error "invalid connection string attribute" ¿Alguien me puede echar una mano con esto? Muchas gracias por anticipado.
-
0
Reacciones de usuarios
- 3 respuestas
- 2.2k visitas
- 1 seguidor
-
-
Buenas Tardes Amigos del Foro, estoy tratando de personalizar una plantilla del calendario en excel en la cual lo que se busca es que a través de una macro me coloque el comentario colocado en la hoja parámetros para cada fecha festiva. Ejemplo: En la hoja parametros Celda F36 "Frenta a la fecha 2016-01-01" coloco año nuevo; lo que debería hacer la macro es colocar Año Nuevo como comentario a la celda G13 de la hoja Calendario. Adjunto archivo con lo que llevo del código en el evento Worksheet_Change Espero haber sido claro en la ayuda que requiero y todos sus aportes serán bienvenidos. Gracias Calendario Formulado.xlsm
-
0
Reacciones de usuarios
- 2 respuestas
- 2.2k visitas
-
-
estimados se podra realizar la Division de un valor que tenga un Textbox3 por el valor que indique el Combobox1? con resultado en 4Combobox desde ya agradecido atte Milton fecha de pago.xlsm
-
0
Reacciones de usuarios
- 2 respuestas
- 2.2k visitas
-
-
como agrego un scrollbar al listbox? saludos
-
0
Reacciones de usuarios
- 1 respuesta
- 2.2k visitas
-
-
Hola compañeros, Mi problema es el siguiente: "Tengo una macro que ejecuta un código cualquiera sobre varias hojas, y entre ello está inmovilizar los paneles de una hoja. El problema es que yo no quiero que se inmovilicen los paneles de la ventana activa, sino de la ventana de la hoja que yo le indique. Esto se debe a que introduzco la sentencia 'ActiveWindow.FreezePanes = true' Entonces, mi pregunta es: ¿No existe otra sentencia para inmovilizar paneles que no sea la anterior? Es decir, algo así como 'ThisWorkbook.Worksheets("Hoja1").FreezePanes = true'. Ya probé con la sentencia anterior, pero obviamente no me deja dado que FreezePanes es u…
-
0
Reacciones de usuarios
- 6 respuestas
- 2.2k 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.