Jose BN

Gran Antoni la voz de la experiencia es sabia...no es necesario complicar más la cosa, en tu recomendación se cumple que cuando no exista valor en H1 no se ejecutará el recordatorio y al contar con el criterio se activa la ejecución, solo creo que era una cuestión de sordera de mi parte a lo que me indicabas. Realmente te lo agradezco... Primo Gersón a ti también las gracias y a tu abuelo son un gran familia, estoy seguro que los continuaré viendo por estos lados.... Pueden cerrar el tema. Saludos cordiales Jose

Gersón primero gracias!!! por incluirme en tan bondosa familia.... Paso aclarar lo siguiente: Mi idea es que al abril el libro si la condición se encuentra el valor "Activar" en la celda mencionada esta dispare una macro que llamado recordar con una seria de mensajes para el usuario lo cual debe ocurrir en una hora establecida en el evento(Application.OnTime), hasta aqui el fin que busco, como le comentaba Antonio para cancelar este "disparo" quería mediante una segunda condición a la que llamé "Null" cuando este valor se cumple cancelar el evento de la macro recordar, que se dispara en la hora ya comentada, evitándole con esto que el usuario deba cancelar el evento desde editor de vb si en algún momento ya no se hace necesario este recordatorio y para que no se vuelva molesto este aviso quería cancelarlo con el evento: Sub CancelTimer2() On Error Resume Next Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _ Schedule:=False End Sub Ahora solo me quedan las corrección optimas que seguro saldrá de sus experiencias y grandes conocimientos.

Estimado Antoni es muy sabia la lógica que planteas, pero pensando en un mañana que no sea quien utilice el archivo y sin tener que la persona este oligada a ingresar al editor vb estaba considerando la opción de " cancelar" el proceso mediante una condición a la he llamAdo NULL invoque al código: Sub CancelTimer2() On Error Resume Next Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _ Schedule:=False End Sub Será que tiene buen camino lo que busco? Saludos JB

Antoni del tiempo que tengo de visitar el foro tú y el resto del equipo son seres extraordinarios de gran voluntad y bondad; solo espero que a veces no se pierda la buena acción de ayudar a una persona verdaderamente desorientado. Mis más cordiales saludos; JB

Abraham retiro lo expuesto, he comprobado donde radica el error: Private Sub Workbook_Open() MsgBox "Es importante recordar enviar el correo de los marchamos retirados al Laboratorio!!" & vbNewLine & "Revisar el retiro de las muestras de leche en almacenes", vbExclamation, "JBalladares ---- Aviso automático" 'Application.OnTime TimeValue("10:23:00"), "Recordar" 'controla si se ingresó un dato en H1 If ActiveCell(False, False) = "H1" Then 'controla si el valor en H1 = ACTIVAR If ActiveCell = ACTIVAR Then Application.OnTime TimeValue("19:02:00"), "Recordar" End If If ActiveCell(False, False) = "H2" Then 'controla si el valor en H2 = NULL If ActiveCell = Null Then Call CancelTimer2 End If End Sub Pero el inconveniente que me surge ahora es que no activa el evento en la hora establecida.

Abraham yendo por partes, la recomendación parece ir por buen camino, pero seguramente de mi parte algo anda mal, me salta el siguiente error, pero ejecutando la macro por si sola corre sin ningún inconveniente:

Buenas tardes, Amig@s del foro quisiera solicitarles apoyo estoy intentando conseguir una macro que se ejecute en una hora determinada para esto estoy utilizado el siguiente evento: Private Sub Workbook_Open() MsgBox "Es importante recordar enviar el correo de los marchamos retirados al Laboratorio!!" & vbNewLine & "Revisar el retiro de las muestras de leche en almacenes", vbExclamation, "JBalladares ---- Aviso automático" Application.OnTime TimeValue("17:21:00"), "Recordar" End sub Hasta ahí cuando el libro se abre, se ejecuta una macro que lanza un MsgBox en la hora establecida, pero quisiera condicionarlo a que si el valor de una celda contiene un determinado texto ejecute o cancele el evento a la hora establecida, queriendo simular un ON & OFF. para lo cual lo estoy intentando realizar con el siguiente código, pero me salta el siguiente error Private Sub Workbook_Open() MsgBox "Es importante recordar enviar el correo de los marchamos retirados al Laboratorio!!" & vbNewLine & "Revisar el retiro de las muestras de leche en almacenes", vbExclamation, "JBalladares ---- Aviso automático" 'controla si se ingresó un dato en H1 If Target.Address(False, False) = "H1" Then 'controla si el valor en A1 = ACTIVAR If Target.Value = "ACTIVAR" Then Application.OnTime TimeValue("17:21:00"), "Recordar" End If If Target.Address(False, False) = "H2" Then 'controla si el valor en H2 = NULL If Target.Value = "NULL" Then Call CancelTimer2 End If End Sub

Hola! Gersón a vba solo le hace falta hablar!.... por el momento la forma correcta que mencionas, no la había logrado encontrar en mis lecturas hasta llegar a este genial sitio y toparme con un personal el doble de genial (tú)que me ayudo a resolver el problema, ha quedado claro el error y solucionado. Tema concluido. Saludos cordiales JB

Buenos días! Amigos estoy buscando una solución que me permita enviar un correo en nombre de otra cuenta, en lo que he logrado leer es posible, la siguiente instrucción trabaja bien, pero al momento de intentar agregar .AddAttachment "C:\Users\jballadares\Desktop\Comprobante.pdf", me salta el siguiente error (imagen adjunta), podrían ayudarme como resolverlo de forma que me permita adjuntar un documento : Sub SendEmailOnBehalf() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim olMailItm As Outlook.MailItem Set olMailItm = Outlook.CreateItem(olMailItem) With olMailItm .SentOnBehalfOfName = "Boletarecolectores@dospinos.com" 'indicamos la cuenta desde donde enviar el email (en nombre de...) .To = Hoja11.Range("B5").Value .Subject = "Notificación Automática Comprobante " & " " & Range("j4") '"Asunto"" .Body = "Estimado usuario adjunto encontrará el detalle del registro de horas extras reportadas, este correo es generado en forma automática se le ruega no responder." & vbNewLine & "Saludos cordiales" .Display .Send End With Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

Abusando un poco este un ejemplos obra Héctor compartió hace un tiempo, si notas creo que se adaptan a los criterios que buscas aplicar, solo ajustarlo a lo deseado: Sub Aplicar_FC() Dim Color, Cond, n As Byte Color = Array(3, 6, 50) Cond = Array(">20", ">15", "<=15") Range("f2:f24").Select With Selection With .FormatConditions .Delete For n = 1 To 3 .Add Type:=xlExpression, Formula1:="=$h$1-f2" & Cond(n) With .Parent.FormatConditions(n) .Font.Bold = True .Interior.ColorIndex = Color(n) End With Next End With End With End Sub

Marco revisa creo que esto te podría servir: Sub formato() Dim celda As Object Dim rng As Range 'con INPUTBOX seleccionamos un rango de celdas Set rng = Application.InputBox("en que rango quieres aplicar el formato??", Type:=8) 'recorremos cada celda del rango seleccionado For Each celda In rng valor = celda.Value 'asignamos colores según el valor de la celda If valor = "LIBRA" Then celda.Interior.Color = 65535 ElseIf valor = "PERMISO" Then celda.Interior.Color = 15773696 ElseIf valor = "GUARDIA" Then celda.Interior.Color = 255 ElseIf valor = "CONSULTA" Then celda.Interior.Color = 5296274 End If Next celda End Sub

Genial como siempre! Antoni

Por cierto me parece se adapta a lo que buscas en tu otro post.

Karen no hay error en el formato! es solo el directorio donde se busca la imagen. El archivo esta estupendo!!! tierra pampa. Saludos, JB

Muchas gracias! concluido.