Hi all.
Can you please help . I need to move from cell F56 BEFORE NEXT SET OF MEASUREMENTS.
The cell F56 is the last active cell where I am after finishing first set of measurements.
I tried this : If Range("K55").Value > 0 Then Range("F56").Offset(13, 1).Select based of the last entered value K55
but this dont work.
Please help.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
'declare condition to exit sub: single cell + value>0
If .Count > 1 Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
If .Value <= 0 Then Exit Sub
If .Row > 150 Then Exit Sub
' If do not want trigger change from row n (i.e, from row 10).
'If .Count > 1 Or Not IsNumeric(Target) Or .Value <= 0 Or .Row > 10 Then Exit Sub
Select Case .Column
Case 7, 9 'column F or H
.Offset(0, 2).Select
Case 11 'column I
.Offset(1, -4).Select
Case Else
Exit Sub
End Select
End With
Can you please help . I need to move from cell F56 BEFORE NEXT SET OF MEASUREMENTS.
The cell F56 is the last active cell where I am after finishing first set of measurements.
I tried this : If Range("K55").Value > 0 Then Range("F56").Offset(13, 1).Select based of the last entered value K55
but this dont work.
Please help.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
'declare condition to exit sub: single cell + value>0
If .Count > 1 Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
If .Value <= 0 Then Exit Sub
If .Row > 150 Then Exit Sub
' If do not want trigger change from row n (i.e, from row 10).
'If .Count > 1 Or Not IsNumeric(Target) Or .Value <= 0 Or .Row > 10 Then Exit Sub
Select Case .Column
Case 7, 9 'column F or H
.Offset(0, 2).Select
Case 11 'column I
.Offset(1, -4).Select
Case Else
Exit Sub
End Select
End With