Attribute VB_Name = "Foglio20"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Worksheet_Change(ByVal Target As Range)

'------------------------------------------------------
'Temperatures and pressures Enter
'------------------------------------------------------
If Target.Address = Cells(7, 19).Address Then Cells(7, 20).Select
If Target.Address = Cells(7, 20).Address Then Cells(7, 21).Select 'temp
If Target.Address = Cells(7, 21).Address Then Cells(11, 17).Select
'end of air temp


'Start Pressure
If Target.Address = Cells(11, 17).Address Then Cells(11, 19).Select
If Target.Address = Cells(11, 19).Address Then Cells(12, 17).Select
If Target.Address = Cells(12, 17).Address Then Cells(12, 19).Select
If Target.Address = Cells(12, 19).Address Then Cells(15, 17).Select
'Grid Pressure
If Target.Address = Cells(13, 17).Address Then Cells(13, 19).Select
If Target.Address = Cells(13, 19).Address Then Cells(14, 17).Select
If Target.Address = Cells(14, 17).Address Then Cells(14, 19).Select
If Target.Address = Cells(14, 19).Address Then Cells(15, 16).Select
'end of cold pressures
' temp

If Target.Address = Cells(15, 16).Address Then Cells(15, 17).Select
If Target.Address = Cells(15, 17).Address Then Cells(15, 18).Select
If Target.Address = Cells(15, 18).Address Then Cells(15, 19).Select
If Target.Address = Cells(15, 19).Address Then Cells(15, 20).Select
If Target.Address = Cells(15, 20).Address Then Cells(15, 21).Select
If Target.Address = Cells(15, 21).Address Then Cells(16, 16).Select
If Target.Address = Cells(16, 16).Address Then Cells(16, 17).Select
If Target.Address = Cells(16, 17).Address Then Cells(16, 18).Select
If Target.Address = Cells(16, 18).Address Then Cells(16, 19).Select
If Target.Address = Cells(16, 19).Address Then Cells(16, 20).Select
If Target.Address = Cells(16, 20).Address Then Cells(16, 21).Select
If Target.Address = Cells(16, 21).Address Then Cells(17, 17).Select
'end of hot temps
' Bleed
If Target.Address = Cells(17, 17).Address Then Cells(17, 19).Select
If Target.Address = Cells(17, 19).Address Then Cells(18, 17).Select
If Target.Address = Cells(18, 17).Address Then Cells(18, 19).Select
If Target.Address = Cells(18, 19).Address Then Cells(19, 17).Select
'Hot
If Target.Address = Cells(19, 17).Address Then Cells(19, 19).Select
If Target.Address = Cells(19, 19).Address Then Cells(20, 17).Select
If Target.Address = Cells(20, 17).Address Then Cells(20, 19).Select
If Target.Address = Cells(20, 19).Address Then Cells(11, 3).Select
'end of pre race pressure
'pit stop pressure
' cold
If Target.Address = Cells(41, 17).Address Then Cells(41, 19).Select
If Target.Address = Cells(41, 19).Address Then Cells(42, 17).Select
If Target.Address = Cells(42, 17).Address Then Cells(42, 19).Select
If Target.Address = Cells(42, 19).Address Then Cells(43, 16).Select
' temp

If Target.Address = Cells(43, 16).Address Then Cells(43, 17).Select
If Target.Address = Cells(43, 17).Address Then Cells(43, 18).Select
If Target.Address = Cells(43, 18).Address Then Cells(43, 19).Select
If Target.Address = Cells(43, 19).Address Then Cells(43, 20).Select
If Target.Address = Cells(43, 20).Address Then Cells(43, 21).Select
If Target.Address = Cells(43, 21).Address Then Cells(44, 16).Select
If Target.Address = Cells(44, 16).Address Then Cells(44, 17).Select
If Target.Address = Cells(44, 17).Address Then Cells(44, 18).Select
If Target.Address = Cells(44, 18).Address Then Cells(44, 19).Select
If Target.Address = Cells(44, 19).Address Then Cells(44, 20).Select
If Target.Address = Cells(44, 20).Address Then Cells(44, 21).Select
If Target.Address = Cells(44, 21).Address Then Cells(45, 17).Select


'end of PITSTOP cold pressures
'hot pressure

If Target.Address = Cells(45, 17).Address Then Cells(45, 19).Select
If Target.Address = Cells(45, 19).Address Then Cells(46, 17).Select
If Target.Address = Cells(46, 17).Address Then Cells(46, 19).Select
If Target.Address = Cells(46, 19).Address Then Cells(11, 3).Select
'end of PITSTOP hot pressures








'------------------------------------------------------
'Sectors Enter
'------------------------------------------------------
If Columns("F").Hidden = False Then

For i = 1 To 300
    For j = 3 To 5
    If Target.Address = Cells(i, j).Address Then Cells(i, j + 1).Select
    Next j
Next i
For i = 1 To 300
    If Target.Address = Cells(i, 6).Address Then Cells(i + 1, 3).Select
Next i
End If


If Columns("F").Hidden = True Then
For i = 1 To 300
    For j = 3 To 4
    If Target.Address = Cells(i, j).Address Then Cells(i, j + 1).Select
    Next j
Next i
For i = 1 To 300
    If Target.Address = Cells(i, 5).Address Then Cells(i + 1, 3).Select
Next i
End If



End Sub