指定行の削除の方法

質問

全くの初心者です
ご教授願います

ユーザーフォーム６のテキストボックスに入力された
文字と同じもののある行を削除するようにしたいです
（コードは、インターネットから借りてきて、必要と思われるところを修正しました）

実行すると、「オブジェクトは、このプロパティに対応していません」
と表示されてしまいます。

何の事を言っているのか、わかりません
教えていただきたいです。
よろしくお願いします

Sub CommandButton1_Click()

Dim 削除氏名 As Range

Set 削除氏名 = Cells.Find(What:=userform6.TextBox1, LookIn:=xlValues, LookAt:=xlWhole)

If Not 削除氏名 Is Nothing Then

削除氏名.EntireColumn.Delete = True

End If

End Sub

回答No.2

watabe007 · ベストアンサー

こんにちは
>文字と同じもののある行を削除するようにしたいです
行なら
削除氏名.EntireRow.Delete

お礼

回答ありがとうございます！！

無事に動きました！！

が・・・

今度は、データの抽出の所で詰まっています・・・
また、ご教授いただくことはできますか？

回答No.1

m-take0220

ExcelのVBAでの話ですね。
Visual Basicは単体の開発言語としても存在しますし、VBAもいくつかのOffice製品で採用されているので、環境についてはちゃんと提示しましょう。

コードを見る限り、

＞ 削除氏名.EntireColumn.Delete = True

の部分でエラーになると思いますが、よろしいですか?
エラーが発生する場合は、どこで発生するかも書いておいたほうがいいですよ。

＞ 削除氏名.EntireColumn.Delete

だけでいいのではないかと思います。
代入式だと、Deleteというプロパティへの操作ととられて、提示されたエラーが発生するのではないかと思います。

お礼

回答ありがとうございます

無事に動きました！！

ありがとうございます！！