このランタイムエラーの原因13「タイプミスマッチ」？

Question

以下のコードは、どのセルに「はい」が含まれているかに基づいて変数をインクリメントします。これは、オートフィルを使用してF13：F59のいずれかのセルの値を「はい」に設定するまで機能します。 "Yes"という単語を手動で入力すると、ランタイムエラーは発生しません。オートフィルは、問題を引き起こしているようです。

Select Case (changedcell) 
'Issues Mgmt 
Case Range("F15"), Range("F19"), Range("F23"), Range("F27"), Range("F30"), Range("F39"), Range("F42"), Range("F45"), Range("F50"), Range("F53"), Range("F54") 'Issues 
     If Range("F15").Value = "Yes" Then 
     issues = issues + 1 
     End If 
     If Range("F19").Value = "Yes" Then 
     issues = issues + 1 
     End If 
     If Range("F23").Value = "Yes" Then 
     issues = issues + 1 
     End If 
     If Range("F27").Value = "Yes" Then 
     issues = issues + 1 
     End If 
     If Range("F30").Value = "Yes" Then 
     issues = issues + 1 
     End If 
     If Range("F39").Value = "Yes" Then 
     issues = issues + 1 
     End If 
     If Range("F42").Value = "Yes" Then 
     issues = issues + 1 
     End If 
     If Range("F45").Value = "Yes" Then 
     issues = issues + 1 
     End If 
     If Range("F50").Value = "Yes" Then 
     issues = issues + 1 
     End If 
     If Range("F53").Value = "Yes" Then 
     issues = issues + 1 
     End If 
     If Range("F54").Value = "Yes" Then 
     issues = issues + 1 
     End If 

     If issues > 1 Then 
    Application.EnableEvents = False 
     MsgBox "Issues Management has already been selected under another old solution category.", vbCritical, "Duplicate Use Case Selected" 
     Range(target.Address).Value = "" 
    End If 
End Select 

この最初のコード部分は、エラーの発生場所です。何かご意見は？

Case Range("F15"), Range("F19"), Range("F23"), Range("F27"), Range("F30"), Range("F39"), Range("F42"), Range("F45"), Range("F50"), Range("F53"), Range("F54") 'Issues 

Answer 1

これを試してみてください：

Dim rIssues As Range 
Dim rCll As Range 
    Set rIssues = Range("F15,F19,F23,F27,F30,F39,F42,F45,F50,F53,F54") 
    For Each rCll In rIssues 
     If rCll.Value = "Yes" Then Issues = 1 + Issues 
    Next 

    If Issues > 1 Then 
     Application.EnableEvents = False 
     MsgBox "Issues Management has already been selected under another old solution category.", _ 
      vbCritical, "Duplicate Use Case Selected" 
     Range(Target.Address).Value = "" 
    End If 

は以下のページを読むことを提案する：

For Each...Next Statement、

Select Case Statement