Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need some help with excel
Public Sub Worksheet_Change(ByVal Target As excel.Range)
Dim dato As Date, DatoAug As Date dato = Format(Now, "mm-dd-yy") DatoAug = Format("08-30-2006") With Target If .Column < 1 Then Exit Sub If dato < DatoAug Then Exit Sub Application.EnableEvents = False Range("F5").value = Application.Sum([Target:A5]) Application.EnableEvents = True End With End Sub This formular obviously doesn't work...but since i'am noob I don't know why. The targeted cell(If .Column < 1 Then Exit Sub) has to be collum A otherwise it will exit sub(this part works. So the problem is that I cannot SUM the targeted(this value is A5 to infinitive) with cell A5. Many thx for any help |