ExcelVBAで任意の行を別シートの最下行移動するセルボタン作成

前提

ExcelVBAで指定した一行を別のシートの一番下の行に移動するボタンをエクセルのセルに設定するマクロを作成したいです。

実現したいこと

・任意の表を作った後に該当するセル(Sheet1のH5~最後の行)にマクロボタンの機能を持たせる。
・マクロボタンの機能は、ダブルクリックしたセルの行の指定範囲のセル(C～G)をコピーする。
・コピーしたセルの内容を別シート(Sheet2)の予め作った表の最終行の下に追加でペーストする。

該当のソースコード

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim PushCell As Long

PushCell = sheet(1). Activecell. Column

If Not (Range(H5).End(lastRowNum)) Then Exit Sub

Else
Range((PushCell)Row(“3:7”)).Copy
Destination := CopyOut

End Sub

‘以上セルのマクロボタン化及び機能

Sub SelectUnderUsedRange2()
Dim iRow
Dim iCol
Dim r As Range
Dim CopyOut As Range

Set r = Sheet(2).UsedRange

iRow = r.Rows.Count + r.Row
iCol = r.Column

CopyOut = Cells(iRow, iCol).Select

End Sub

‘以上貼り付け先シート選択

Sub SelectUnderRow()

Dim lastRowNum As Long

lastRowNum = Cells(Rows.Count, 3).End(xlUp).ROW
'以上最終行番号を取得

End Sub
‘以上ボタン化指定最終範囲選択

試したこと

実験シートを作成して実行してみましたが、何も起きませんでした。

補足情報（FW/ツールのバージョンなど）

Excel 2019を使用しています。

hatena19

2022/11/27 03:55

コードの一部のみコードブロックになってます。コード全体がコードブロックに入るように修正してください。また、コードは実際のものをコピーしてください。現在のコードだとコンパイルエラーで実行すらできません。

行動規範の内容に同意します

回答1件

ベストアンサー

ご希望の処理のサンプルコードです。

vba
1Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
2    'ダブルクリックしたセルがH列以外または、５行目より上なら処理しない
3    If Target.Column <> 8 Or Target.Row < 5 Then Exit Sub
4
5    'Sheet2の表のC列の最終行を取得
6    Dim lastRow As Range
7    Set lastRow = Worksheets("Sheet2").Cells(Rows.Count, 3).End(xlUp)
8   
9    'ダブルクリックした行のC列からG列をSheet2の表の最終行の次行にコピー
10    Range(Cells(Target.Row, "C"), Cells(Target.Row, "G")).Copy Destination:=lastRow.Offset(1)
11    
12    'ダブルクリックの既定の処理を停止
13    Cancel = True
14End Sub