If then を使って、空白のセルを作りたい！！

sae_wood 2002-09-12 23:23:12 No: 76119

教えてください。
VBAで、条件に合わせて空白のセルを作るために
If then を使って、やってみたのですが、動きませんでした。
以下私の乏しい知識で組んだ記述です。

Sub blankmake()

    If H6 = "Ｐ設２" Then
       J6 = ""
    End If

End Sub

エクセルのセル H列に、各部署が並んでおり、セルJ列を
上記のように、条件に合わせて、ブランクにしたいのです。
どなたか、教えて下さい。

oku URL 2002-09-13 09:10:11 No: 76120

If Range("H6") = "Ｐ設２" Then
Range("J6") = ""
End If
これで良いでしょうか？

If then を使って、空白のセルを作りたい ！！