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! Supongamos que tengo la tabla que les adjunto, como hago para crear una macro que me permita crear una cita en el Outlook 3 días antes a la fecha que me figura en E2. ¿Cómo hago también para que se me creen otras citas cada vez que yo ingresando más datos? Gracias!
-
0
Reacciones de usuarios
- 4 respuestas
- 3.2k visitas
-
-
Buen dia Recuerro a ustedes papar poder validar el correcto cierre del ciclo de esta macro. El ciclo afectado es el FOR que tiene la variable n debe trabajar hasta el 23, pero cuando llega a 24, sigue con el ciclo de numero1 y de suma y continua trabajando con errores. como puedo hacer para que la n al llegar a 24 finalice la macro y no realice las demas actividades ? ya movi los Next pero no lo he logrado, espero me puedan dar una guia Gracias esta es la macro Sub Union() ' Dim fila, RR As Long Dim n&, cCriterio$, H&, g&, y& fila = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row …
-
0
Reacciones de usuarios
- 13 respuestas
- 3.2k visitas
- 2 seguidores
-
-
hola amigos tengo una pregunta que no se porque me causa confusion y espero ustedes me ayuden ¿como puedo hacer para que si una celda esta llena el checkbox esté checkeado y si esta vacia no lo este? gracias y saludos
-
0
Reacciones de usuarios
- 8 respuestas
- 3.2k visitas
-
-
Hola a todos!!! Necesito mostrar una tabla en un listview, en la cual cada item (cada fila) tenga un color de fondo diferente. Para el color de la fuente he usado algo como Listview1.ListItems(1).ListSubItems(1).ForeColor = vbRed y funciona perfecto, pero ahora necesito cambiar el backcolor. Alguna idea? Desde ya les agradezco mucho su tiempo.
-
0
Reacciones de usuarios
- 0 respuestas
- 3.2k visitas
-
-
Buenas tardes a todos Esta macro que os pongo a continuación envía un mensaje de texto y foto a una lista de teléfonos que le pongas en el Excel. Funciona perfectamente, el único inconveniente es que todos los teléfonos tienen que estar en la agenda, si algún teléfono no esta en la agenda se cuelga y deja de enviar. ¿Hay alguna manera de hacer que si un numero no está en la agenda no haga nada y pase al siguiente numero? Gracias por prestarme atención La macro: Sub EnvíoMensajesW2() Dim Teléfono As String Dim Imagen As String Dim Texto As String For Each Celda In Envío.Range("Clientes[TELÉFONO]") With Envío Te…
-
0
Reacciones de usuarios
- 6 respuestas
- 3.2k visitas
- 1 seguidor
-
-
Buenos dias. Tengo un programa de gestion de almacen en VBa y Excel. El programa lee el archivo excel, mostrando Referencia, cantida y descripcion, y el usuario confirma que los datos son correctos o no. El problema que tengo es que en archivos con muchas referencias(mas de 75), al llegar a numero 75, se me cierra excel dandome el error de "MIcrosoft Excel ha detectado un problema y debe cerrarse" Como ya os he comentado, me pasa a partir de la linea 75. Si cierro el programa y vuelvo a abrirlo no da error, por lo que creo que es algo de memoria. Me podriais ayudar?? Muchas gracias.... p.d. He intentado adjuntar el programa pero no puedo, asi que si alguien piensa…
-
0
Reacciones de usuarios
- 14 respuestas
- 3.2k visitas
-
-
Hola amigos, buenos dia: Tengo un userform donde doy de alta a los artículos, pero quisiera ver si se puede colocar un control de Imagen donde con un CommandButton se pudiera insertar la imagen en el control Imagen y al dar guardar a la alta la imagen se guarde en la carpeta imagen. Dejo la macro que tengo hasta ahorita para su análisis y apoyo. Private Sub Imagen1_Click() If TextBox1 <> 0 And TextBoxId <> "" Then VerImagen.RenglonImagen = TextBox1 Set VerImagen.ImageAltas.Picture = FormaCodigos.ImagenPrincipal.Picture VerImagen.Top = FormaCodigos.Top VerImagen.Left = FormaCodigos.Left VerImagen.Show End…
-
0
Reacciones de usuarios
- 1 respuesta
- 3.2k visitas
-
-
como le puedo agregar a este código que las celdas que escoge aleatoriamente en mi hoja estadística me las rellene de color amarillo Sub Aleatorios() For x = 1 To 22 f = Int((42 * Rnd) + 1) c = Int((256 * Rnd) + 1) Sheets("analisis").Range("C" & x) = _ Sheets("estadisticas").Cells(f, c) Next End Sub
-
0
Reacciones de usuarios
- 11 respuestas
- 3.2k visitas
-
-
Hola, Para seleccionar la hoja de un libro (libro activo) usando VBA uso la siguiente instrucción Workbook("Cierres").Sheets("IngresoProductos").Select 'Seleccionar Libro/hoja La hoja tiene un nombre interno "Hoja_IngresoProductos" El nombre de la etiqueta es "IngresoProductos" La pregunta es ¿Como se puede hacer para que la selección de la hoja se haga con el nombre interno? Algunas veces cambiamos el nombre de la pestaña y hay que revisar el codigo para las correcciones, es menos probale cambiar el nombre interno, y hacer la seleccion usando el nombre interno evitaria tener que revisar el codigo cuando se cambie el nombr…
-
0
Reacciones de usuarios
- 2 respuestas
- 3.2k visitas
- 1 seguidor
-
-
Gente, Buenas noches, Primera vez que escribo, hace un tiempito que estoy registrado. Les comento a ver si pueden brindarme una ayuda, en mi trabajo somos 3personas que trabajamos con el mismo tipo de planilla de excel, mismascolumnas, etc, son tres libros excel. Vamos cargando los datos de cadaexportación que realizamos, cada persona en su planilla. La idea sería hacer una macro que busque cada fila del libro(por número de orden, factura, el que fuese mejor) y la compare con un libro general,si existen diferencias entre ellas que actualice y sino existe que agreguela fila al último. Lo que queremos lograr es que al terminar el día ejecutaresta macro y estos datos …
-
0
Reacciones de usuarios
- 1 respuesta
- 3.2k visitas
-
-
Hola, Lo siento por las molestias pero me paso algo muy extraño. Resulta que tengo una plantilla guardada en un PENDRIVE y voy trabajando sobre ella en casa y en el trabajo cuando puedo. Ayer lo tenia bien y trabaje en casa sobre pequeños detalles y hoy al abrir el documento, la macro "ENVIAR mail" me indica este error: Se ha producido el error’-2147024772(8007007b)’ en tiempo de ejecución: No se guardo el documento La macro que me habéis ayudado en conseguirla es la siguiente: Sub PdfMail() Dim Archivo As String, Destinatario As String Dim Asunto As String, Cuerpo As String Dim OutlApp As Object, H1 As Worksheet '-- Applica…
-
0
Reacciones de usuarios
- 8 respuestas
- 3.2k visitas
- 1 seguidor
-
-
Mi pregunta no se si tiene respuesta. He creado un libro excel con varias hojas y dentro de cada hoja hay varias paginas (ajustadas a la impresora) Yo querria una macro para que me imprimiera solamente las paginas de cada hoja que cumplan esa condicion es decir, en cada pagina de cada hoja hay una fecha y quiero imprimir solo las que cumplan esa condicion dada. Muchas gracias
-
0
Reacciones de usuarios
- 0 respuestas
- 3.2k visitas
-
-
BUenas noches, por favor su apoyo con esta consulta, quiero redondear decimales de una formula al momento de hacer una macro en excel por ejemplo n*3*0.7, supondiendo que n es igual a 5, el total me sale 10.5, ahora le pongo delante Int(n*3*0.7) y me 10, pero quiero que se redonde a 11, como puedo hacer para que cuando el decimal es mayor o igual a 5 se redonden al mayor, esto lo estoy poniendo como parte de un programa en vb. Gracias
-
0
Reacciones de usuarios
- 1 respuesta
- 3.2k visitas
-
-
Hola, si alguien me puede informar, donde podría encontrar algún sitio para estudiar o saber para que sirve cada una de las lineas de Propiedades de Userform ? he buscado por internet y no encuentro nada que vaya directo al asunto. Gracias de antemano
-
Estimados soy nuevo en esto de las macros que he leído y avanzado mucho en lo que deseo realizar el problema es que no puedo hacer que el formulario para ingresar datos si le falta alguno no deje copiar los datos a la planilla y envié un mensaje " que falta un dato antes de copiar" o algo así intente así pero solo me entrega el mensaje falta llenar folio If Range("D12").Select = "" Then Else: ActiveWorkbook.Save MsgBox "Falta llenar el Folio", vbCritical, "DATO VACIO" Cancel = True End If Gracias por su ayuda validador de dato ayuda excel.rar
-
0
Reacciones de usuarios
- 11 respuestas
- 3.1k visitas
-
-
Hola buena tarde, Nuevamente haciendo una consulta, con un poco de dificultad logré hacer una macro que ejecuta un filtro avanzado. Su función es usar como criterio el valor ingresado en la celda “F2” del libro “Destino” , luego filtra desde éste libro la información que se encuentra en la columna “I” llamada “COTIZACION/IVA” del segundo libro llamado “Origen”, una vez filtrada la información la copia al libro “Destino”. Dos cosas me faltan y no consigo hacerlas. La primera es que al momento de pegar en el libro “Destino” los datos filtrados lo haga después de la última ceda con valor que se encuentra en la columna “F”. Tengo la idea de que se hace con este código: …
-
0
Reacciones de usuarios
- 0 respuestas
- 3.1k visitas
-
-
hola teneis ideas como hacer una macro que desde una camar web efectue fotos en tiempo real espero busestras ideas gracias a todos
-
0
Reacciones de usuarios
- 2 respuestas
- 3.1k visitas
-
-
Hola Chicos, tengo un detalle con una automatización... El evento .click no me funciona y no sé porque, e buscado en internet y no encuentro la solución... Perdon por no poder compartirles el usuario y contraseña para que hagan pruebas, sin embargo, si tienen ideas o links para que pueda leer al respecto, les agradecería... La página se llama SAP es un aplicativo en línea para el control de la contabilidad, entre otras cosas... No funciona: Private Sub CommandButton1_Click() Cargando objIE.document.getElementById("__button0").Focus objIE.document.getElementById("__button0").Click objIE.document.getElementById("__button0").C…
-
0
Reacciones de usuarios
- 9 respuestas
- 3.1k visitas
-
-
Soy nuevo en esto de las macros, me he puesto con el grabador y aquí estoy haciendo lo que puedo. La cuestión es que he hecho unas macros, que más o menos me funcionan, pero siempre viene una parte que desconoces. Quisiera escribir en la siguiente linea vacia, ¿como se lo tengo que decir a la macro? Tengo en una hoja el problema que siempre que voy allí me manda al principio de la hoja. Que se puede hacer para corregir éste problema, para que me envié donde está el último dato. Como no puedo subir el archivo porque es muy grande, os pongo la macro para que me digais. Gracias y un saludo a todos. Pablo Sub MacroIberdrola() ' ' MacroIberdrola Macro ' ' Sheets…
-
0
Reacciones de usuarios
- 6 respuestas
- 3.1k visitas
-
-
BUENAS ESTIMADOS SOY FLORENCIO MENCIAS DE HONDURAS CENTROAMERICA. SOY SUPER NUEVO EN ESTE GRUPO. TRABAJO CON MACROS Y BISUAL BASIC PERO HACE UNOS DIEZ DIAS AL MOMENTO DE QUERER TRABAJAR MIS ARCHIVOS BASADOS EN MACROS Y BISUAL BASIC ME APARECE UN ERROR Y NO HE PODIDO DECIFRARLO O ARREGLARLO EL ERRO ES EL SIGUIENTE: PARTE QUITADA: PARTE/XL/VBAPROJECT.BIN (VISUAL BASIC PARA APLICACIONES (VBA)). ALQUIEN PODRIA DARME UN CONSEJO DE AYUDA YA QUE ESTOY SUPER ATRAZADO CON VARIOS TRABAJOS. GRACIAS
-
0
Reacciones de usuarios
- 3 respuestas
- 3.1k visitas
- 1 seguidor
-
-
Buenas noches. He estado buscando en el foro consultas similares a la mia, y no se adecuan a lo que necesito, si bien me han permitido aprender sobre este mundo de Excel. Intento hacer –bien, cada año lo hago manualmente y es muuuy pesado- un cuadrante de turnos con una hoja por mes, dos turnos rotativos y tres fijos. El rotativo que trabaja de tarde un mes el siguiente es de mañana. Los otros turnos (grupos XYZ) son fijos y no rotan. El grupo X, los suertudos, tienen fiesta todos los fines de semana y festivos del año. Los de los grupos Y i Z tienen fiesta todos los festivos y, los fines de semana tienen fiesta sabado y domingo y el siguiente viernes y sabado, …
-
0
Reacciones de usuarios
- 0 respuestas
- 3.1k visitas
-
-
Tengo un gráfico de dispersión con dos series, cuando quiero cambiar el color de una de ellas lo he realizado de la siguiente manera, pero la cuestión es que no me lo cambia, ¿Alguien sabe cuál es el motivo? ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(2).Name = "=""Datos ajustados""" ActiveChart.SeriesCollection(2).XValues = "='Principal'!$A$1:$A$30" ActiveChart.SeriesCollection(2).Values = "='Principal'!$F$1:$F$30" ActiveChart.SeriesCollection(2).Select Saludos y muchísimas gracias.
-
0
Reacciones de usuarios
- 0 respuestas
- 3.1k visitas
-
-
perdonen la molestia espero me puedan ayudar, debo calcular en un formulario lo siguiente: tengo una fecha inicial, una fecha final, una hora inicial, una hora final, tambien tengo una tarifa, un elemento adicional, tengo una cortesia los calculos que quiero que haga el formulario a travez del boton calcular es: lo que hay en el textbox fechafinal restarlo del textbox fechainicial, lo que hay en el textbox de horafinal restarlo del textbox hora inicial,...la cantidad de tiempo establecerla en el textbox de tiempotranscurrido en horas, al tiempo transcurrido multiplicarlo por la tarifa para que me de el monto en $ y a esto sumarle lo que haya en elementoadic…
-
0
Reacciones de usuarios
- 10 respuestas
- 3.1k visitas
-
-
Estimados, vuelvo a buscar su orientación y ayuda con dos consultas que no logro solucionar, revisé el foro pero no encontré nada similar. Tengo una hoja llamada "SOLICITUD DE PEDIDO" la cual tiene una orden de compra y en ella tengo un "botón" que es un formulario con una lista y la opción de buscar por nombre. Esta lista toma los datos de la tabla "tabla_productos" que se encuentra en la hoja "ARTICULOS". 1). ¿Mi primera consulta es como puedo darle formato a una columna del listbox?, ya que en la tabla hay datos que están redondeados y quiero que se ven igual en el listbox. 2). La segunda consulta es más "logica" por asi decirlo, ya …
-
0
Reacciones de usuarios
- 2 respuestas
- 3.1k visitas
-
-
Buenos dias, estoy necesitando ayuda con la solucion de este problema. Tengo una subrutina que hace varias cosas, y ala final quiero que me imprima el formulario para que quede un registro en PDF, alguien seria amable de ayudarme con ese problema? Desde ya muchas gracias
-
0
Reacciones de usuarios
- 5 respuestas
- 3.1k 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.