Jump to content

juanmanuel85

Members
  • Content Count

    120
  • Joined

  • Last visited

About juanmanuel85

  • Rank
    Advanced Member
  • Birthday 10/31/1985

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. @Gerson Pineda ya esta gracias =CONTAR.SI.CONJUNTO(E6:E13;"azul";D6:D13;"11")
  2. @Gerson Pineda Disculpa no me hago mucha idea intente sumarlos con un si (y( pero mi base de datos es mas grandeque el ejemplo y no me alcanzan los caracteres, como podria resolver el ejemplo del archivo adjunto? gracias contardoscriterios.xlsx
  3. buen dia, quisiera contar la cantidad de miembros que cumplen con dos criterios a la vez y estuve buscando y necesitaria usar una formula contar .sis pero no me lo reconoce excel solo contar.si o contar si conjunto, quisiera saber como lo podria resolver
  4. @Antoni la estoy probando pero no me llega ningun correo, no sale ya el error, pero no me llega el correo como en el primer ejemplo :S a vos te llegaron ?
  5. La macro esta en la hoja "correo", ahi B es la columna de mails @Antoni
  6. @Antoni gracias por tu respuesta; Si hay celdas vacias, la de los clientes que no estan vencidos, pero se suponia que les llegaria igual a las direcciones que si figuran vencidas con el agregado de SpecialCells al rango en la macro no? Como puedo arreglar este problema?
  7. Que tal, les cuento mi problema: Tengo una macro que envia correos a una columna determinada, gracias a la ayuda de los chicos del foro al agregarle la funcion "specialcells(2) inclusive puedo enviar correo aunque no esten todas las celdas completas... ( ejemplo en el archivo"FUNCIONA BIEN SIN CONDICIONAL") Agrege una hoja al archivo ("datos ")para hacer una condicion en la que si el estado del usuario es VENCIDO, figure un email en esa columna,sino " "... y ahora me sale un mensaje de error 1004 "NO SE ENCONTRARON CELDAS" al apretar el boton en la pestaña CORREO. adjunto los dos archivos el que anda bienj sin condicional y el que estoy teniendo problemas, yo necesitaria que figuren solo los datos de la gente que aparece como VENCIDO en la hoja DATOS, y que la macro me lo pueda enviar aunque haya celdas en blanco en esa columna , por que pasa esto? claramente el problema surgio al agregarle la condicion pero no se porq. Gracias y saludos CON CONDICIONAL.xlsm FUNCIONA BIEN SIN CONDICONAL.xlsm
  8. que tal les cuento el problema que tengo estoy haciendo un condicional en donde si se cumplen dos condiciones me traiga el dato a una celda, sino ; " " ( nada) elproblema es q cuando no se cumple me aparece "FALSO", como puedo evitar eso? les adjunto un ejemplo donde tomo datos de una pestaña y en la otra se imprime FALSO en lugar de " " . desde ya muchas gracias consulta falso.xlsx
  9. Sub EnviarEmail() ' ' Declaramos variables ' Dim OutlookApp As Outlook.Application Dim MItem As Outlook.MailItem Dim cell As Range Dim Asunto As String Dim Correo As String Dim Destinatario As String Dim Saldo As String Dim Msg As String ' Set OutlookApp = New Outlook.Application ' 'Recorremos la columna EMAIL '.SpecialCells For Each cell In Range("B11:B23").SpecialCells(2) 'Next 'Asignamos valor a las variables ' Asunto = "Saldo vencido" Destinatario = cell.Offset(0, -1).Value Correo = cell.Value Saldo = Format(cell.Offset(0, 1).Value, "$#,##0") FechaVencimiento = Format(cell.Offset(0, 2).Value, "dd/mmm/yyyy") ' 'Cuerpo del mensaje ' Msg = "Apreciable " & Destinatario & vbNewLine & vbNewLine Msg = Msg & "Queremos informarle que su fecha de pago venció el día " Msg = Msg & FechaVencimiento & "." & vbNewLine & vbNewLine Msg = Msg & "El saldo que debe liquidar es " Msg = Msg & Saldo & vbNewLine & vbNewLine Msg = Msg & "Atentamente:" & vbNewLine Msg = Msg & "Tarjetas de crédito." ' Set MItem = OutlookApp.CreateItem(olMailItem) With MItem .To = Correo .Subject = Asunto .Body = Msg .Send ' End With ' Next ' End Sub @Gerson Pineda, disculpa no manejo muy bien visual lo coloque bien?
  10. @Gerson Pineda el problema es el siguiente. yo puedo poner un rango determinado en el destinatario,el problema es que si no estan llenas todas las celdas con direcciones de correo se envia hasta el ultimo ingresado antes de haber un bache. . te envio un ejemplo que encontre en internet que se comporta igual. intenta poner tres vEnviar emails desde Excel - EXCELeINFO.xlsmeces tu correo , y despues con una celda vacia de por medio y vas a ver q no llega la misma cantidad de veces, mira deje un nombre libre, trata de reemplazar las direcciones del ejemplo con tu correo y vas a ver q solo te llega uno correspondiente a b 11
  11. Necesitaria que envie a la columna y no terminar concatenando todos en esa celda sino me daria igual :S
  12. Horacio cambie el codigo a Cell y se comporta igual solo me llega el correo a la direccion que ingrese en D4 y no a todas las que ponga en la columna D. :/
  13. Buenas, estoy teniendo problemas para poder enviar un correo preredactado a toda la columna, en esta caso la "D"solo se envia a la direccion de la celda D4, quisiera saber que estoy haciendo mal. Desde yamuchas gracias. adjunto archivo y codigo de la macro Sub EnviarEmail() ' ' Declaramos variables ' Dim OutlookApp As Outlook.Application Dim MItem As Outlook.MailItem Dim cell As Range Dim Asunto As String Dim Correo As String Dim Destinatario As String Dim Saldo As String Dim Msg As String ' Set OutlookApp = New Outlook.Application ' 'Recorremos la columna EMAIL ' For Each cell In Range("d4:d302") ' 'Asignamos valor a las variables ' Asunto = "Aviso de vencimiento" Destinatario = [A11] Correo = cell.Value Saldo = Format(cell.Offset(0, 1).Value, "$#,##0") FechaVencimiento = Format(cell.Offset(0, 2).Value, "dd/mmm/yyyy") ' 'Cuerpo del mensaje ' Msg = Destinatario ' Set MItem = OutlookApp.CreateItem(olMailItem) With MItem .To = Range("d4:d302") .Subject = Asunto .Body = Join([transpose(b4:b14)], vbCrLf) .Send ' End With ' Next ' Set MItem = Nothing End Sub prob mail.xlsm
×
×
  • Create New...

Important Information

Privacy Policy