Ejecutar macro con validacion por formula, en otra hoja

Ir abajo

Ejecutar macro con validacion por formula, en otra hoja

Mensaje  jarjona661 el Lun Nov 19, 2012 8:47 am

Hola amigos, he trabajado en un archivo recopilando informacion de varias respuestas y de soluciones similares, pero soy novato con los macros y hay cosas que no entiendo, mi problema es el siguiente:
Este archivo cuando si cumple la condicion de texto "solicitar material" en una fila ? de la columna "H" de la hoja "Materiales" (el resultado "solicitar material" es derivado de un resultado aritmetico de dos hojas) se ejecuta copia una hoja determinada, manda email a varios destinatarioa mencionando lo condicionado de la fila ? segun la fila de la hoja, bueno todo lo hace muy bien pero si se captura directamente en la celda "solicitar material", me gustaria que se ejecutara atomaticamente al alimentar desde otra hoja, espero me puedan ayudar ya le busque y al parecer es posible con este evento Private Sub Worksheet_Calculate(), pero no encuentro como integrarlo a la macro, para que funcione:

en la Pestaña de "Materiales"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Usuarios(5) As String
Dim Asunto As String

Asunto = Sheets("Notificación").Range("C8").Value & " " & Target.Offset(, -6) & "-solo restan " & Target.Offset(, -1) & "-" & Target.Offset(, -5) & " " & Format(Date, "dd/mmm/yy")
Usuarios(1) = Sheets("Notificación").Range("C2").Value
Usuarios(2) = Sheets("Notificación").Range("C3").Value
Usuarios(3) = Sheets("Notificación").Range("C4").Value
Usuarios(4) = Sheets("Notificación").Range("C5").Value
Usuarios(5) = Sheets("Notificación").Range("C6").Value

If Not Intersect(Target, Range("H:H")) Is Nothing Then
If Target.Value = "solicitar material" Then
Sheets("Notificación").Copy
With ActiveWorkbook
.Sheets("Notificación").Range("C9") = Target.Offset(, -6) & "-solo restan " & Target.Offset(, -1) & "-" & Target.Offset(, -5)
.SendMail Recipients:=Usuarios, Subject:=Asunto
'.Close SaveChanges:=False 'Cierra el libro después de enviada la notificación
End With
End If
End If
End Sub
Archivos
Almacen_con aviso.zip No tienes los permisos para descargar los archivos.(121 KB) Descargado 7 veces
avatar
jarjona661

Cantidad de envíos : 1
Fecha de inscripción : 19/11/2012

Ver perfil de usuario

Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.