Sheet1
a1 b1 c1 d1 e1 f1 g1
社員No 日付 商品コード 販売個数 顧客No 請求月 売上
106092 2009/2/2(月) A-1010 89 C202 2009/4/30 3,560
106093 2009/2/2(月) B-1050 527 C384 2009/3/31 68,510
106094 2009/2/2(月) C-1050 819 C384 2009/3/31 114,660
106095 2009/2/2(月) C-1080 662 C202 2009/4/30 66,200
106096 2009/2/2(月) C-1080 160 C499 2009/4/30 16,000
106097 2009/2/2(月) D-1050 815 C202 2009/4/30 97,800
106098 2009/2/2(月) B-1090 373 C165 2009/3/31 41,030
106099 2009/2/2(月) B-1020 62 C165 2009/3/31 6,200
sheet2
a1 a2 a7 c10 c11 c12 d15
社員No 日付 商品コード 販売個数 顧客No 請求月 売上
106092 2009/2/2(月) A-1010 89 C202 2009/4/30 3,560
106093 2009/2/2(月) B-1050 527 C384 2009/3/31 68,510
106094 2009/2/2(月) C-1050 819 C384 2009/3/31 114,660
106095 2009/2/2(月) C-1080 662 C202 2009/4/30 66,200
106096 2009/2/2(月) C-1080 160 C499 2009/4/30 16,000
106097 2009/2/2(月) D-1050 815 C202 2009/4/30 97,800
106098 2009/2/2(月) B-1090 373 C165 2009/3/31 41,030
106099
社員Noを入力すると上記のように指定されたせるにデータを転記することは可能でしょうか
106099 をに入力すると
a1 a2 a7 c10 c11 c12 d15
106099 2009/2/2(月) B-1020 62 C165 2009/3/31 6,200
できる方いますでしょぅ
No.2ベストアンサー
- 回答日時:
シート2のシートモジュールに。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A2", Cells(Rows.Count, 1))) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Dim r1 As Range
Dim r2 As Range
Dim rr As Range
With Worksheets("Sheet1")
Set rr = .Range("A2", .Cells(Rows.Count, 1).End(xlUp))
Set r2 = Target
Set r1 = rr.Find(r2.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not r1 Is Nothing Then
r1.Range("B1").Copy r2.Range("B1")
r1.Range("C1:E1").Copy r2.Range("F1")
r1.Range("F1").Copy r2.Range("K1")
r1.Range("G1").Copy r2.Range("N1")
Else
MsgBox ("検索値【" & r2.Value & "】は見つかりませんでした")
End If
End With
Set rr = Nothing
Set r2 = Nothing
Set r1 = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) EXCEL 行内のデータを2行に分けて、表を作り直したいのです。教えてください。 5 2023/06/25 14:00
- Visual Basic(VBA) ローマ字、ハイフン付きの並び替え ローマ字抽出方法 Excelマクロ 4 2022/04/01 14:10
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) Worksheets メソッドは失敗しました。のエラー処理のやり方 4 2022/05/29 21:29
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Excel(エクセル) 至急です><Excelの関数を教えてください。 2 2022/03/22 17:56
- Visual Basic(VBA) リストビューに条件による表示 1 2022/06/01 20:19
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Excel(エクセル) ExcelのIF関数について 4 2023/05/24 12:54
- Excel(エクセル) エクセル関数について 2 2022/05/30 14:36
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAのチェックボックスとボタン...
-
楽天RSSからエクセルVBAを使用...
-
VBA 空白行に転記する
-
VBA別シートの最終行の次行へ転...
-
RemoveDuplicatesメソッドにつ...
-
日々の注文集計表のシートを比...
-
マクロの「SaveAs」でエラーが...
-
テキストボックスから、複数の...
-
Excelで横書き50行の漢字テス...
-
【VBA】特定の条件でセルをコピー
-
VBAでEXCELから固定長...
-
Count Ifのセルの範囲指定に変...
-
エクセルVBAで他のbookのセ...
-
マクロでシートからシートへの...
-
まとめシートから集計シートへA...
-
必要なデータを取り出す
-
あああ..ああい..ああう とい...
-
B列の最終行までA列をオート...
-
電話番号の入力方式が違うデー...
-
VBAでのリスト不一致抽出について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
VBA 空白行に転記する
-
EXCELのSheet番号って変更でき...
-
マクロ実行後に別シートの残像...
-
VBA別シートの最終行の次行へ転...
-
Count Ifのセルの範囲指定に変...
-
Changeイベントで複数セルへの...
-
VBAで変数の数/変数名を動的に...
-
VBA 別ブックからの転記の高速...
-
【VBA】特定の条件でセルをコピー
-
VBA 実行時エラー1004 rangeメ...
-
楽天RSSからエクセルVBAを使用...
-
Unionでの他のシートの参照につ...
-
ExcelのVBマクロを、バックグラ...
-
複数シートの複数列に入力され...
-
100万件越えCSVから条件を満た...
-
VBA Userformで一部別シートに...
-
Excel VBA オートフィルターで...
-
Excel2013で切り取り禁止
-
VBAでEXCELから固定長...
おすすめ情報
いつも有難うございます。
大変申し訳ございません
間違ってしまいました。
Sheet 1
A列 B列 C列 D列 E列 F列 G列
社員No 日付 商品コード 販売個数 顧客No 請求月 売上
106099 2009/2/2(月) B-1020 62 C165 2009/3/31 6,200
Sheet 2
A列 B列 F列 G列 H列 K列 N列
社員No 日付 商品コード 販売個数 顧客No 請求月 売上
106099 2009/2/2(月) B-1020 62 C165 2009/3/31 6,200