Alarma según valor determinado

[juaco]

Saludos, quisiera saber si puedo generar una alarma para una cifra determinada, son datos mensuales y quisiera que cuando totalice a final del periodo, si ese total cumple con la condición me genere una alarma, cuando digo una alarma es si pudiera enviar algún sheet en especifico a una serie de email que tengo registrado. Ejemplo si al final de periodo, Juan tiene 82 und. mas del minimo(77) le mande un adjunto a Juan y me genere algún tipo de alarma a mi esa es mi inquietud. aquí un ejemplo. En la primera sheet esta la cantidad en la segunda los email inventados por mi.

Nota: si hay alguna macro involucrada pido por favor explicación, ya que ese lenguaje no lo manejo bien, si es posible y esta entro de sus posibilidades.

Alarma.rar

[juaco]

Esta macro la extraje de la pagina de Ron de Bruin para enviar mail con el nombre en la primera casilla A1, la direccion en la segunda B2 y el adjunto en la C3, pero cuando ejecuto me sale sub indice fuera de intervalo como se podria corregir esta problema para poderla ejecutar. En si es lo que estoy tratando de crear. Sorry no se poner el código en un cuadro de dialogo.

Sub Send_Files()

[COLOR=#000000]'Working in 2000-2010[/COLOR]   

Dim OutApp As Object    

Dim OutMail As Object    

Dim sh As Worksheet    

Dim cell As Range, FileCell As Range, rng As Range   

 With Application        .EnableEvents = False       

 .ScreenUpdating = False    

End With   

 Set sh = Sheets("Sheet1")    

Set OutApp = CreateObject("Outlook.Application")    

For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants)        [COLOR=#000000]'Enter the file names in the C:Z column in each row[/COLOR]        

Set rng = sh.Cells(cell.Row, 1).Range("C1:Z1")        

If cell.Value Like "?*@?*.?*" And _           Application.WorksheetFunction.CountA(rng) > 0 Then            

Set OutMail = OutApp.CreateItem(0)            

With OutMail                

.To = cell.Value                

.Subject = "Testfile"                

.Body = "Hi " & cell.Offset(0, -1).Value                                

For Each FileCell In rng.SpecialCells(xlCellTypeConstants)                    

If Trim(FileCell) <> "" Then                       

 If Dir(FileCell.Value) <> "" Then                            

.Attachments.Add FileCell.Value                        

End If                    

End If                

Next FileCell                                

.Send  [COLOR=#000000]'Or use Display[/COLOR]            

End With            

Set OutMail = Nothing        

End If    

Next cell    

Set OutApp = Nothing    

With Application        

.EnableEvents = True        

.ScreenUpdating = True    

End With

End Sub[/CODE]

[juaco]

Ok. luego de buscar en temas similares, he encontrado lo que buscaba en teoria pero cuando corro la macro me dice que: No se puede encontrar el proyecto o la biblioteca. El archivo esta heco por Ver perfil: logroastur - Ayuda Excel, y es exactamente lo que necesito, si serian tan amable de ayudarme a completarla, seria de enorme ayuda, adjunto pongo el archivo de logroastur.

Envio Listado Email.rar