画像の伝票があります。
一覧表に所定のデータを転記していくコードを組みました。
転記自体は問題なく出来るのですが、転記ボタンを押した後に自動的に値をクリアしたいのです。
コードの中にWithで組み込んだのですが、エラーにはならないもののクリアできません。
どこがおかしいのでしょうか?
Sub データ転記()
Dim i As Long, EndRow As Long, rng As Range
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Worksheets("受付表")
Set sh2 = Worksheets("受付一覧")
sh1.Select
Names.Add Name:="Target", RefersTo:=("=$H$3,$C$8,$C$10,$C$12,$A$17")
With sh2
.Select
EndRow = .Range("B" & Rows.Count).End(xlUp).Offset(1).Row
For Each rng In sh1.Range("Target")
.Cells(EndRow, i + 2) = rng.Value
i = i + 1
Next rng
End With
With sh2
.Range("C8,C10,C12,A17").ClearContents
End With
Sheets("受付表").Select
End Sub
※Targetセルは結合してあります
H3はH3~I3の結合
C8はC8~E8の結合
C10はC10~E10の結合
C12はC12~E10の結合
A17はA17~I36の結合 です。
No.1ベストアンサー
- 回答日時:
ClearContents のステートメント
sh2 じゃなくて、sh1 じゃないでしょうか。
それと、統合したセルで ClearContents をしようとすると、
「結合されたセルの一部を変更することはできません」
と出ますので、
With sh1
.Range("C8,C10,C12,A17").Value = ""
End With
で行ってみましょう。
ありがとうございました。上手くできました。
先ずはsh1とsh2の単純な間違いでしたね。
結合したセルではClearContents使用すると弊害があるのですね。
VBA勉強中でまだまだ解らないことだらけで・・・
お教えくださりありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
エクセルで入力シートから別シートに蓄積方法について
Excel(エクセル)
-
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
-
4
TextBoxに日付を自動的に入れる
Visual Basic(VBA)
-
5
VBA アクティブでないシートのセルを選択したり、クリアしたり
Excel(エクセル)
-
6
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
7
VBAで結合セルを転記する法を教えてください
Excel(エクセル)
-
8
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
9
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
10
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのクイックアクセスツ...
-
エクセルでCtrl+Tでテーブルの...
-
DATE関数で現在の年齢を出した...
-
Excelで表を作ったところに文字...
-
エクセルのクイックアクセスツ...
-
在庫管理表に使うエクセルの関...
-
ユーザー定義関数をアドイン登...
-
職場の人から聞かれており、こ...
-
REGEXREPLACE関数について、
-
エクセルでバーコード作成し使...
-
下記マクロでMsgBox "空白です...
-
Excel関数-文字列で自動作成さ...
-
エクセルで表
-
【マクロ】for next構文について
-
エクセルの関数について教えて...
-
Excelデータをコピペして、ペー...
-
エクセルで特定の範囲内から小...
-
PDFの請求明細をエクセルにしたい
-
Excelで50個のセルに同じ文字を...
-
エクセルで会社の従業員のデー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報