holycome99
New Member
- Joined
- Nov 16, 2020
- Messages
- 15
- Office Version
- 365
- Platform
- Windows
Want i gonna to do is that when the people changed the cells, they will be asked for input
and right in the offset(7,1) of this cell, the cell will show the input values.
However, when i use this code, it just can't run and crash after few mins.
Please help.
and right in the offset(7,1) of this cell, the cell will show the input values.
However, when i use this code, it just can't run and crash after few mins.
Please help.
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim CARLBURN As String
Dim Msg As String
Msg = "What is the CARLORIES BURN for this activity?"
Set rng = Range("B5:B11")
If Not Intersect(Target, rng) Is Nothing Then
InputArea:
CARLBURN = InputBox(Msg, "CARLBURN Input")
If CARLBURN = "" Then
MsgBox "Please enter the CARLBURN for this activity!"
Exit Sub
End If
If IsNumeric(CARLBURN) = False Then
MsgBox "Please enter only numerical number!"
Exit Sub
End If
End If
Sheets("Other Activities").Select
Target.Offset(10, 1).Value = CARLBURN
End Sub