Prev: Morefunc dying
Next: Create a workbook with macros from inside another macro
From: irealtymods on 12 Jan 2010 08:09
I need to create macro with this scenario:
F - quantity
H - 1 serial
I - 2 serial
For example some cells:

H644 =SUM(I643+1)
I644 =SUM(I643+F644)
So when I put some number in cell F644, sums correctly calculated,
then one by one cell as i enter some in F

Thank you.

From: irealtymods on 13 Jan 2010 01:31
is this macro correct for this operation?


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("F:F")) Is Nothing Then
With Target
If .Value <> "" Then
..Offset(0, 2).Value = Cells(Target.Row - 1, 9) + 1
..Offset(0, 3).Value = Cells(Target.Row - 1, 9) + Cells(Target.Row, 6)
..Offset(0, 6).Value = Format(Now, "yymmdd")
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub
 | 
Pages: 1
Prev: Morefunc dying
Next: Create a workbook with macros from inside another macro