Snasui Excel Forum

Code: Select all

Sub Oval1_Click()
    ActiveCell.Value = "1"
    If ActiveCell.Row = 5 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 6 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 7 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 8 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 9 Then
            ActiveCell.Offset(-4, 1).Select
    End If

End Sub
Sub Oval2_Click()
ActiveCell.Value = "2"
    If ActiveCell.Row = 5 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 6 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 7 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 8 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 9 Then
            ActiveCell.Offset(-4, 1).Select
    End If
End Sub
Sub Oval3_Click()
ActiveCell.Value = "3"
    If ActiveCell.Row = 5 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 6 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 7 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 8 Then
            ActiveCell.Offset(1, 0).Select
    ElseIf ActiveCell.Row = 9 Then
            ActiveCell.Offset(-4, 1).Select
    End If
End Sub
Sub SnipDiagonalCornerRectangle4_Click()
    If ActiveCell.Row < 5 Then Exit Sub
    If ActiveCell.Row = 5 Then
         ActiveCell.ClearContents
         ActiveCell.Offset(4, -1).Select
    ElseIf ActiveCell.Row = 6 Then
         ActiveCell.ClearContents
         ActiveCell.Offset(-1, 0).Select
    ElseIf ActiveCell.Row = 7 Then
         ActiveCell.ClearContents
         ActiveCell.Offset(-1, 0).Select
    ElseIf ActiveCell.Row = 8 Then
         ActiveCell.ClearContents
         ActiveCell.Offset(-1, 0).Select
    ElseIf ActiveCell.Row = 9 Then
         ActiveCell.ClearContents
         ActiveCell.Offset(-1, 0).Select
   
    End If

End Sub
Sub Can5_Click()
        Range("c5:e9").ClearContents
    If ActiveCell.Row <> 5 Then
        Cells(5, 3).Select
    Else
        ActiveCell.Offset(0, 1).Select
    End If

End Sub

Code: Select all

On Error Resume Next
Range("h5:j9").SpecialCells(xlCellTypeBlanks).Range("a1").Select

Code: Select all

Sub RightArrow6_Click()
    Dim i As Integer, j As Integer
    For j = 1 To 3
        For i = 1 To 5
            If Range("h5:j9").Cells(i, j) = "" Then
                Range("h5:j9").Cells(i, j).Select
                Exit Sub
            End If
        Next i
    Next j
End Sub