Jump to content

Jose BN

Members
  • Content Count

    111
  • Joined

  • Last visited

Everything posted by Jose BN

  1. 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
  2. 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.
  3. 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
  4. 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
  5. 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.
  6. 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:
  7. 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
  8. 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
  9. 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
  10. 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
  11. 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
  12. Por cierto me parece se adapta a lo que buscas en tu otro post.
  13. Karen no hay error en el formato! es solo el directorio donde se busca la imagen. El archivo esta estupendo!!! tierra pampa. Saludos, JB
  14. Héctor podría abusarme si me indicarás como podría convertir la hoja de excel a pdf para adjuntarle en el envio del correo, ya que observo que este método, no me funcionará: Set h2 = Sheets("Hoja1") wpath = ThisWorkbook.Path & "\" nombre = h2.Name h2.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=wpath & nombre & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False Set dam = CreateObject("outlook.application").createitem(0) J
  15. Héctor ha valido la perseverancia y la buena vocación para orientar de tu parte. Mi error, radicaba en smtp.server.com como lo expresas: un error del tipo "-2147xxx..." significa que se intenta utilizar (o llamar a) un objeto que no esta presente (o no inicializado). Lo cual he corregido y comprobado que los métodos funcionan como lo garantizaste. Muchas gracias! J "Tema concluido"
  16. Héctor he estado intentando utilizar esta macro: Pero esta me muestra el error adjunto, se le puede llegar a la solución? Set myMail=CreateObject("CDO.Message") myMail.Subject="Sending email with CDO" myMail.From="mymail@mydomain.com" myMail.To="someone@somedomain.com" myMail.TextBody="This is a message." myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="smtp.server.com" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing
  17. Héctor me descargué los ejemplos que amablemente me ha adjuntado, pero me salta error en la linea:" .Send" tendrás una idea como solucionarlo? Saludos
  18. Héctor muchas gracias por la pronta respuesta, te comento que la opción 1 la he intentado, pero no me funcionó. la PC cuenta con office 365-2016. Intentando seguir los pasos de la opción 2 me salta el siguiente error (ver fichero). Te agradezco la ayuda, si me puedes orientar a resolver mi problema. Saludos J Nuevo Archivo WinRAR.rar
  19. Hola! Amigos, Actualmente tengo un excel con un macro que encontré en internet para el envio de correo de una hoja de excel, pero el Outlook, versIón 2016 me muestra una moesto mensaje: "Un programa está intentando enviar correo en su nombre" revisando en la web he intentado lo siguiente sin éxito: Puede cambiar la configuración seleccionando Herramientas | Opciones | Otros | Opciones avanzadas y marcando la casilla Permitir script en carpetas compartidas. Verá que también hay una opción para Permitir script en carpetas públicas. En Outlook 2007, estas configuraciones están en Herramientas | Cuadro de diálogo Centro de confianza, bajo Seguridad de correo electrónico El autor de la macreo es Dante en todoexpertos: Application.DisplayAlerts = False ' 'Se estable cuál hoja se va a guardar en PDF Set h2 = Sheets("Extras") ' 'Ruta donde se va a guardar el archivo PDF, 'en la misma carpeta donde tienes el archivo con la macro wpath = ThisWorkbook.Path & "\" ' 'el nombre del archivo será el mismo que tiene hoja nombre = h2.Name ' 'Se genera el archivo PDF h2.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=wpath & nombre & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False ' 'Se envía el archivo por outlook Set dam = CreateObject("outlook.application").createitem(0) dam.to = Hoja11.Range("B5").Value 'Destinatario dam.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." dam.Subject = "Notificación Automática " & " " & Range("j4") '"Asunto" dam.Attachments.Add wpath & nombre & ".pdf" dam.Send Agradezco me puedan ayudar para quitar este molesto mensaje: Mis disculpas si el tema no va en la categoría.
  20. Gersón tienes toda la razón a mayor detalle mejor certeza en la respuesta! mis disculpas por omitirlo... Si no resulta abusado y conoces la rutina vba esto a efectos de "conocer/aprender" quedaría agradecido de mi parte, de lo contrario igualmente es satisfactoria la solución brindada. Saludos Jose
  21. Gersón empecemos por el agradecimiento en tomarte el tiempo para mi consulta!, pasando al tema he conseguido una solución en el foro hermano Foro Excel con lo siguiente: 1º Darle a la columna formato General, por ejemplo. Pero, no texto. 2º Menú: Archivo, Opciones, Avanzadas, Mostrar opciones para esta hoja ..., a la segunda opción "Mostrar fórmulas en celdas en lugar de los resultados calculados", quitarle el pincho. Es importante mencionar que estos datos son generados de un sistema(SAP) y bajan tal cual lo compartí, si bien es cierto la propuesta en mención logra resolver mi dilema, no deseo quedarme solamente con la solución por lo que me he planteado las siguientes consultas: 1. a qué se debe esto? 2. porqué solo afecta este libro y no otros? 3. esta modificación afectara en algo aquellos libros que no contenían este problema? 4. Existe algún método con macros que elimine esto?
  22. Buenas tardes! Amigos del foro antes de plantear esta consulta he buscado por la web intentando lograr una solución pero no tuve éxito, paso a detallar mi problema me han enviado un libro que contiene 3 hojas (ALR, IW39 y IW3M) pero por alguna razón si intento insertar una columna y aplicar en una celda cualquiera en la hoja IW39 cualquier tipo de formula (ejemplo: =2+5) no devuelve su resultado, ver columna P. Según algunos sitios recomienda revisar el modo calculo modo automático, Presionar F9, Alt + °, etc. pero estos métodos no funcionaron para esta hoja por lo cual agradecería algunos conoce las causas que generan esto y su posible solución. Agradezco de antemano la ayuda que me puedan brindar. Saludos Jose Link del fichero: https://drive.google.com/open?id=1AHOUtFRHDIpPZBFjbbRZysyRKjAR2zoS
  23. Estimados amigos quisiera solicitarles el apoyo para resolver el siguiente problema que se ha presentado con las funciones INDICR/COINCIDIR detallo el objetivo: Cuento con un libro en el cual cuento con una hoja que contiene un presupuesto (nombre: Recolección-aprobado), otra donde se lleva el registro del gasto real (nombre: Recolección Gasto real 18-19) y una hoja resumen (nombre:Resumen Gerencial) en esta ultima hoja mi necesidad es cuando se selecciona el mes de la lista (objeto control de formulario) me actualice para cada fila los valores de las columnas del plan y Real de la hoja Resumen Gerencial (resaltado en amarillo), en mis escasos conocimientos lo estaba intentando resolver con las funciones INDICE/COINCIDIR pero algo no me resulta bien. fichero: https://drive.google.com/open?id=1-fDHrqooJ2Y3nwBgfI_FoMbACD0QHkw2 Por lo que agradezco la ayuda que me puedan brindar. Saludos JB
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5