Macros y programación VBA

Hola Amigos de Ayuda Excel, estoy elaborando un macro q me permita recordar una tarea a realizar en una feha determinada, pero este recordatorio se realiza una vez cada mes, yo lo estuve configurando y no se porq no me funciona, anexo dicho codigo para q por favor me ayuden a corregirlo... de antemano muchas Gracias por su Ayuda. Option Explicit Private Sub Workbook_Open() On Error Resume Next With Application .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False Dim m, d, yy, dia As Long Dim fechafin As Date d = Day(Now()) m = Month(Now()) yy = Year(Now()) fechafin = dia / m / yy If Day(Now()) = 1 Then dia = "1" End If Dim Mes Mes = Mont…

Hola a todos! Mi primer tema acá, espero sean comprensivos si se me pasa por alto alguna normativa y desde ya muchas gracias por la ayuda! Paso a comentarles: Estoy trabajando sobre unos indicadores de métricas de la empresa y necesito colorear según el resultado de una fórmula en una celda, una forma (en este caso, un círculo). Ya estuve intentando solucionarlo, usando el evento Worksheet_Change, como estuve viendo en otros post que trataban el tema de una manera similar y en realidad, no era 100% como lo necesito yo, ya que el dato proviene del resultado de una fórmula. El problema que se me presentó, es que cada vez que quiero que se modifiquen los indicadores, te…

Tengo una macro muy grande y cuando se ejecuta tiene un fondo que no permite ver los movimientos y calculos, cuando se ha producido algun error no me doy cuenta ya que esta con Estado = Application.Calculation Application.Calculation = xlCalculationManual Application.EnableEvents = False Application.ScreenUpdating = False Necesito algun sonido en una macro que me indique que se ha producido un error cuando esto sucede. Gracias por la ayuda Milton

Hola, me gustaría saber si es posible vincular una celda al calendario de Outlook para generar una alerta cuando en dicha celda se da la fecha "hoy". Gracias de antemano.

buenos días compañeros del foro, verán tengo un problema deseo que parte de lo que muestra mi función concatenar se vea con negritas la función es la siguiente: =SI(BRIGADA!Y25>0;CONCATENAR("ÁREA : ";BRIGADA!Y25;" HAS, ";"SECTOR : ";BRIGADA!O25;" PARROQUIA : ";BRIGADA!D25;", ";" CATÓN : ";BRIGADA!T4;", ";" PROVINCIA : ";BRIGADA!O4);" ") entonces lo que deseo es que todos los campos que estoy concatenando sean con negritas el texto final debería quedar asi: ÁREA : 2,7463 HAS, SECTOR : EL GRAN CHAPARRAL PARROQUIA : ROBERTO ASTUDILLO, CATÓN : MILAGRO, PROVINCIA : GUAYAS pero por lo pronto se presenta asi ÁREA : 2,7463 HAS, SECTOR : EL GRAN CHAPARRAL PARROQUIA : ROBE…

Necesito que al sumar en A1, =1+A2 e ir cambiando valores a A2 me borre la celda B1, por ejemplo. Dejo un codigo básico solo para aclarar la idea. Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value NOSE QUE PONER AQUÍ Then Range("B1").ClearContents End If End Sub

Hola! que tal! tengo una dudilla que creo que es posible, necesito hacer un filtro con datos que registre con una userform, en la hoja registro varias cosas como fechas, de donde proviene la informacion, que cantidades, y quiero evitar el paso en que tengo que volver a la hoja para enseñarlos a mis empleadores, para evitar el caso de una posible modificacion posterior. asi trabajaria solamente sobre la userform y seria yo quien agregue dato a la base. adjunto el archivo! ojala puedan ayudarme! saludos!! gracias de ante mano! Userform1.rar Explicacion.pdf

Tengo un Formulario, que me permite el ingreso de datos para llevar el control de ventas. Ocurre que me cambiara un poco dada la solicitud de cambio de forma de cuadrar o llevar el control de conteo de fichas. Para ello necesito encontrar el ultimo valor de "Fichas por Pagar" (Columna Q), dado un centro de costo (Columna . Encontrando esta forma de llevarlo al Userform, el resto es ingresar los valores en los Textbox y hacer sumas y restas. Alguien me puede dar algunos tips para encontrar la forma de lograr el ultimo a través del userform? Control de Fichas.zip

Hola comunidad... Soy nuevo en este mundo de las Macros y necesito como dice el titulo sacar el valor de unas celdas de varios archivos excel (*.xslx) dentro de la misma Carpeta (C:\Documents and Settings\Szuniga\Escritorio\Piloto) y la idea es que en cada valor obtenido en las celdas quede hacia la derecha...en total son 10 datos, los cuales están en las celdas (m6,d39,f39,h39,d45,f45,h45,d51,f51h51) y la idea que al ejecutar la macro aparezcan los datos de todos los archivos enlas celdas a1-j1....y del archivo 2...de la a2-j2....y asi sucesivamente...Por fa...que es para la tesis de mi universidad.....alguien que me pueda ayudar o llevarme por el camino correcto que d…

Buenas tardes, el codigo siguiente me inserta un codigo, es decir: En mi celda G1 tengo un codigo, copio ese codigo y lo pego tantas veces me lo diga mi celda F3 en mi columna F, va leyendo las cantidades que me proporciona mi columna F. Mi problema es que al principio si me inserta por ejemplo tengo un 3 y me inserta tal cual, en la siguiente tengo un cuatro y no me lo copia, no hace nada y salta al siguiente y tampoco hace nada. Mi codigo: '-------------------------------------------------------- ' Macro para insertar filas segun cantidad de codigo | '-------------------------------------------------------- Sub InsertarFilasCantidadsitio() 'Variables para fil…

Estimados amigos del foro siguiendo las normas donde paso a paso para resolver ciertos problemas añado una más respecto a la aplicación de preguntas-respuestas. La forma en que inicialmente esta realizado, la pregunta y su respectiva respuesta no seria la apropiada cuando se trata de que las posiciones de fila para la pregunta o de las posiciones de cuatro columnas de opciones de respuestas van a cambiar. Por lo tanto estoy tratando de encontrar una forma sea con match o con coincidir pero en un userform al hacer click en el opcionbuton que se genere el userform de respuesta correcta o incorrecta segun sea el acierto. si se hace click en cualquier ficha de alguna categor…

Hola a todos, Quiero hacer una Consulta tengo una base de datos en access y los datos se muestran en formulario excel. estoy trabajando con ADO Deseo crear un grafico de indicadores en un formulario vba llamando a una consulta desde access es posible hacer esto. alguien que me de una manito. Saludos,

En mi hoja menu tengo un listado, lo que necesito es que al ubicarme en la fila de cualquier dato de la columna C, mediante macro, copiar el dato de la columna B de la celda activa de la columna C (donde estoy ubicado) copie y pegue el valor de dicha celda a la celda F1. Desde ya muchas gracias por su tiempo Jesús

Saludos quisiera que me indicaran como podría ordenar los datos que están en la fila comprendidos de la A178 a la Y178 y así mismo los números comprendidos de la A179 a Y179, se ordenen en forma de columna y de forma descendente de mayor a menor,pero también quisiera que se actualice la fila de la suma a medida que esta vaya variando cada vez que ingreso nuevos datos, en este caso son los números de sorteo de cada semana de un juego de lotería. adjunto el archivos de excel y unas imágenes, gracias de antemano. Pozo 14_calculos.xlsx

Buenas noches... En un libro abierto de excel presiono F5, luego el botón Especial..., selecciono la opción Objetos y presiono Aceptar. Como resultado se obtiene una buena cantidad de formas u objetos que ponen lento el archivo, al punto de que No Responde por bastante tiempo haciendo imposible utilizarlo con normalidad. ¿Es posible suprimir con alguna MACRO esos objetos de tal manera que no relentice el archivo de excel?

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 …

Registra los datos, pero aparece Error: 2147467259(800004005) en tiempo de ejecución Escogí una sola imagen: 2.Localización y Replanteo. Las imágenes las inserta bien, pero al dar Clic en Registrar genera ese Error El Botón Ejecutar está en Hoja 2 Averigüé que se corrige con los siguientes pasos: Paso 1Abre tu proyecto de Visual Basic e introduce la siguiente línea en la parte superior de la función que llama "SetFocus": On Error GoTo FocusErr. Paso 2 Crea una etiqueta en la parte inferior de la función, escribiendo lo siguiente: FocusDone: Exit Function Paso 3 Crea otra etiqueta debajo d…

Hola favor necesito de vuestra ayuda!!! mi problema es que quiero adjuntar un solo archivo (ya creados en pdf) a cada dirección de correo que esta en la columna 14 y filas 1 en adelante; y desde el segundo correo me va adjunto el archivo anterior más el correspondiente de fila 2; en el tercero, los dos anteriores, más el de la tercera fila y así sucesivamente. Favor vuestra ayuda en .AddAttachment Les dejo todo el código: Sub SendMail_Gmail() Dim Email As CDO.Message Set Email = New CDO.Message correo = "xxxxxxxxxxx@gmail.com" passwd = "123456789" mensaje = Range("A1") cuerpo = Range("B1") Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail…

Buen dia, Normalmente uso este codigo en un archivo que utilizo en el trabajo donde marco con una "x " celdas a lo largo de toda la columna B:B, hoy intente agregar otras y creo que no lo estoy haciendo correctamente porque no me aparecen, que necesito hacer para incluirlas correctanebte? adjunto el codigo Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Columns("B:B"), ("D:D"), ("F:F"), ("H:H"), ("J:J"), ("M:M"), ("O:O"), ("Q:Q"), ("S:S"), ("U:U")) Is Nothing Then Exit Sub If Target.Row < 5 Then Exit Sub If ActiveCell = "x" Then ActiveCell = "" Else ActiveCell = "x" End If En…

buenos días como puedo disminuir el rango de datos para que vayan de 0 a 9 y no de 10 a 24 en este libro y si me puedes mostrar el código que se efectua en este libro gracias estadistica1.xls

Hola Amigos, buenas tardes, es posible utilizar la misma sentencia (variables y cadenas guardadas en variables) en varias consultas que debo hacer , ya que imagino debo usar la misma sentencia en cada procedimiento que realice y ya intenté con declarar variables como Public pero no me deja. Estos código los fuí tomando del blog de @avalencia a quien agradezco por compartir https://abrahamexcel.blogspot.com/2019/04/excel-y-mysql-2.html es posible realizar lo que deseo? usar la misma conexión e ir variando en cada procedimiento prácticamente la consulta SQL así como los datos de la tabla donde voy a consultar. adjunto imagen! Gracias!!

Buenos Días, necesitaría generar un archivo “txt”, con datos de una hoja de Excel. Esto seria posible con una macro.? ¿Me podríais ayudar? Dejo en un archivo lo que necesitaría. Saludos. Gracias Ejemplo.xlsx

Buenas Noches desde Colombia, tengo un Userform y este sobrepasa el tamaño de la pantalla, y las scrollbar no estan funcionando, he probado con el codigo width y height y nada

Buenas a todos de nuevo. Necesito ayuda con esto. Subo un archivo donde necesitaría que al hacer doble click sobre las celdas donde hay un formato condicional que al poner 1 se marca un check, pues que si hay un 1 se ponga 0 y al volver a hacer doble click borre el 1. Así no tengo que estar escribiendo constantemente o borrando. No encuentro como hacerlo. ¿podéis ayudarme? Gracias de antemano. Nuevo Checklist.xlsm

Amigos, quisiera saber como hago para que se ejecute una macro cuando el resultado de una celda sea vsalor falso. Es decir, si la celda es falso se ejecue macro y si es verdadero, no haga nada. He intentado pero la macro se ejecuta sin parar una y otra vez. Alguien me puede ayudar