| 
    
     |  | こんにちは。かみちゃん です。 
 >ただ、IFから『True Then』までは全く同じ文章なので、2回かくことなく、すっきりさせる表記
 
 動作的には問題なく動いたということなので・・・
 以下のような感じでもできます。
 
 If ActiveCell.Value = True Then
 Worksheets("sheet2").Range("B3").Value = ActiveCell.Range("C4").Value
 Worksheets("sheet2").Range("D6").Value = ActiveCell.Range("E4").Value
 End If
 
 気になるところとしては、
 ActiveCell.Value
 が本当にTrue/Falseの値なのか・・・
 通常は、文字や数値などの値になっていると思います。
 
 また、
 ActiveCell.Range("C4").Value
 という書き方も、
 ActiveCellがA1セルの場合は、C4セルになりますが、
 ActiveCellから見て、右に2列、下に3行のセルになりますので、注意が必要です。
 
 つまり
 Range("B4").Select
 となっていますので、
 ActiveCell.Range("C4")
 は、
 Range("E7")
 と同じことになります。
 
 
 |  |