ここから本文です

プルダウンから特定のものを選んだ時に別タブに自動的に移動するマクロを組みたい...

hat********さん

2020/6/419:00:02

プルダウンから特定のものを選んだ時に別タブに自動的に移動するマクロを組みたいのですが、下記の条件でやろうとしたのですが、

Private Sub Worksheet_Changeを使うだろうというところまでしかわかりません。何方か教えていただけないでしょうか。

条件
Test2の行でプルダウン内Bを選んだ時にTest2の行がSheet2のデータ行列の空いている一番下に挿入され、Sheet1のtest3の行が一つ上に繰り上がる。また、Sheet2に移動したTest2の先頭の列に日付が自動的に挿入される。

よろしくお願いします。

補足条件の訂正です
Test2の行でプルダウン内でSheet2を選んだ時にTest2の行がSheet2のデータ行列の空いている一番下に挿入され、Sheet1のtest3の行が一つ上に繰り上がる。また、Sheet2に移動したTest2の先頭の列に日付が自動的に挿入される。

プルダウン,test2,Sheet2,Sheet1,test3

閲覧数:
36
回答数:
1
お礼:
250枚

違反報告

回答

1〜1件/1件中

yum********さん

2020/6/422:53:27

こんばんは。
これで如何でしょ?

Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveCell.Value = "sheet2" Then
endrow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
If Worksheets("Sheet2").Cells(1, 1) = "" Then
endrow = 0
End If
Worksheets("Sheet1").Cells(ActiveCell.Row, 1).Copy Worksheets("Sheet2").Cells(endrow + 1, 2)
Worksheets("Sheet1").Cells(ActiveCell.Row, 2).Copy Worksheets("Sheet2").Cells(endrow + 1, 3)
Worksheets("Sheet2").Cells(endrow + 1, 1) = Date
Worksheets("Sheet1").Rows(ActiveCell.Row).Delete
End If

End Sub

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる