エクセルVBA - 自動セルAは、Xは、コピーして、私は現在、以下の持っているセルB

Question

に貼り付けると等しい場合：N = G6場合

：私は基本的に行うには、別のマクロを追加する必要があり

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Range("B2,B11,D11")) Is Nothing Then 
     Application.EnableEvents = False 
     For Each C In Target 
      If Not Intersect(C, Range("B2,B11,D11")) Is Nothing And Not C.HasFormula Then _ 
       C.Value = UCase(C.Value) 
     Next C 
     Application.EnableEvents = True 
    End If 
End Sub 

を/ AをコピーしてH6に貼り付けます。それ以外の場合は何も行いません。

これをどのように追加する必要がありますか？

Answer 1

あなたの質問に基づいて、あなたのコードにこれを含める方法もわからない、あなたのコードはあなたのforループの中にifステートメントを開きますが、それを外に閉じます。 H6にデータをコピーするコード：

If (ActiveSheet.Range("G6").Value = "N/A") Then 
    ActiveSheet.Range("H6").Value = ActiveSheet.Range("G6").Value 
Else 
    'do nothing  
End If