How Can You Recover Samsung Tablet?: Can't figure out how to get my code to run the right way [Anwsered]

Can't figure out how to get my code to run the right way

Basically the start of my code checks the value in cell Y1. From there it runs code, then at the end if the value was 1 in Y1 then it will change to 2 and visa versa. Then the next time the code runs it will run the other ifThen statement. I can't figure
out the way to do this. I know it's just a matter of rearranging some lines.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
Col = 3
If Range("Y1").Value = 1 Then
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range _
("Line1,Line2,Line3,Line4,Line5,Line6,Line7,Line8,Line9,Column1,Column2,Column3,Column4")) Is Nothing Then
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Application.EnableEvents = False

Target.Offset(0, 19).Value = 1

Application.EnableEvents = True
Range("A1").Select
Else
'do nothing
End If
End If
If Range("Y1").Value = 2 Then
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range _
("Line1,Line2,Line3,Line4,Line5,Line6,Line7,Line8,Line9,Column1,Column2,Column3,Column4")) Is Nothing Then
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Application.EnableEvents = False

Target.Offset(0, 19).Value = 2

Application.EnableEvents = True
Range("A1").Select
Else
'do nothing
End If
End If

If Range("Y1").Value = 1 Then
Range("Y1").Value = 2
Else: Range("Y1").Value = 1
End If

End Sub

If there is any way to shorten what I have that would be great.

Keys to the Problem Can't figure out how to get my code to run the right way

Download Error Fixer for Free Now

I think this is close...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim c As Range

    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range _
     ("Line1,Line2,Line3,Line4,Line5,Line6,Line7," & _
      "Line8,Line9,Column1,Column2,Column3,Column4")) Is Nothing Then Exit Sub
    Col = 3 'not sure what this does

    Application.EnableEvents = False

    With Range("Y1")
    If .Value = 1 Then
        Target.Interior.Color = 255
        Target.Offset(0, 19).Value = 1
        Range("A1").Select
        .Value = 2
    ElseIf .Value = 2 Then
        Target.Offset(0, 19).Value = 2
        Range("A1").Select
        .Value = 1
    End If
    End With

    Application.EnableEvents = True
End Sub

Running System Update Readiness Command

On running the System Update readiness Command, it will Detect & Replace Incorrect Registry data with the Correct one. Which may ultimately Solve Can't figure out how to get my code to run the right way in Windows.

Open CMD as Administrator by Simply Right Clicking on Start button > Command Prompt (Admin).
Now Type or Copy paste "DISM.exe /Online /Cleanup-image /Scanhealth" and hit Enter,
Now again Type or Copy paste this "DISM.exe /Online /Cleanup-image /Restorehealth" and hit Enter.
Close the Command Prompt Window because we are done.

Reboot your Windows & see if error Can't figure out how to get my code to run the right way still comes up.

Note: Your administrator's password might be needed.

Recommended Method to Repair the Problem: Can't figure out how to get my code to run the right way:

How to Fix Can't figure out how to get my code to run the right way with SmartPCFixer?

1. You can Download Error Fixer here. Install it on your system. When you open it, it will perform a scan.

2. After the scan is done, you can see the errors and problems which need to be repaired.

3. The Repair part is done, the speed of your computer will be much higher than before and the errors have been removed. You can also use other functions in SmartPCFixer. Like dll downloading, windows updating and print spooler error repair.