G
Guest
In my formula I would like:
column M4:M100 to be the +/- of the numbers down I4:I100
Column N4:N100 to be the +/- of the numbers down J4:J100
Column O4:O100 to be the +/- of the numbers down K4:K100
Is this formula or code?
Can u help.
If it is formula ok.. If it is code, where doe s it fit in this?
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "B4:B100, H4:H100"
On Error GoTo ws_exit:
Application.EnableEvents = False
If Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Or _
IsEmpty(Target) Or _
Not IsNumeric(Target) Then
GoTo ws_exit
End If
If MsgBox("Use the new value " & Target & _
" as new Daily Entry?", vbYesNo + vbDefaultButton1 _
+ vbInformation, "Verify Entry") <> vbYes Then
GoTo ws_exit
End If
Target.Resize(1, 3).Copy Target.Offset(0, 1)
Target.Clear
ws_exit:
Application.EnableEvents = True
End Sub
THANKS mark
column M4:M100 to be the +/- of the numbers down I4:I100
Column N4:N100 to be the +/- of the numbers down J4:J100
Column O4:O100 to be the +/- of the numbers down K4:K100
Is this formula or code?
Can u help.
If it is formula ok.. If it is code, where doe s it fit in this?
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "B4:B100, H4:H100"
On Error GoTo ws_exit:
Application.EnableEvents = False
If Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Or _
IsEmpty(Target) Or _
Not IsNumeric(Target) Then
GoTo ws_exit
End If
If MsgBox("Use the new value " & Target & _
" as new Daily Entry?", vbYesNo + vbDefaultButton1 _
+ vbInformation, "Verify Entry") <> vbYes Then
GoTo ws_exit
End If
Target.Resize(1, 3).Copy Target.Offset(0, 1)
Target.Clear
ws_exit:
Application.EnableEvents = True
End Sub
THANKS mark