[[20190311093226]]　『複数シートから、ある条件を満たす行を別シートに』（mwam）　ページの最後に飛ぶ

『複数シートから、ある条件を満たす行を別シートに抽出』（mwam）

sheet1～sheet11まで全て同じ様式のシートがあります。

sheet1

        A     B           C       D         E       F        G       H     ......    AB
5     番号1    番号2      名前       4月     リスト     5月      リスト   6月  ......    計
6     1.1.1     1                                                                                            
7     1.1.2     2                                                                        
8     1.1.3     3                                                                                    
9     1.1.4     4                                                                                    
.            .                    
.            .                    
.            .                    
※ AB5の"計"が10以上の行を別シートに抽出したい。10を含む 
※ 抽出先のデータ名は"抽出データ" 
※ A5の昇順になるように並べたい。sheet2のA5は2.1.1 sheet3のA5は3.1.1と規則的 
※ 元データが変更になっても反映させたい。毎月入力するので、4月の時点で10になり、5月に1増えても抽出先も11になる、というような... 
※ D5、F5、H5、、、と１つ飛ばしに月が入っており、以下に数字を入力して

   AB5以下が10以上になるもの。10になった時点で"抽出データ"に飛ぶように
※ AB列はsubtotal関数 
※ 抽出先のデータはA1～AB1のみ見出し
※sheet1～は名前の変更あり、又は追加あり
分かりづらく、すみません。 
よろしくお願いします。

＜使用 Excel：unknown、使用 OS：unknown ＞

 "抽出データ"のコードモジュールへ

 Private Sub Worksheet_Activate()
     Dim i As Long
     Application.ScreenUpdating = False
     Me.Cells(1).CurrentRegion.Offset(1).Clear
     For i = 1 To 11
         With Sheets("sheet" & i)
             With .Range("a5", .Cells.SpecialCells(11))
                 .Worksheet.AutoFilterMode = False
                 .AutoFilter .Range("ab1").Column, ">=10"
                 .Offset(1).Copy Me.Range("a" & Rows.Count).End(xlUp)(2)
                 .AutoFilter
             End With
         End With
     Next
     Application.ScreenUpdating = True
 End Sub
（seiya） 2019/03/11(月) 11:57

 ニックネームが違いますが同じ方ですか？
[[20190306143600]] 14:37 『複数シートから抽出至急です。』（akajus）
（bi） 2019/03/11(月) 15:48

コメント返信：

[ 一覧(最新更新順) ]

[[20190311093226]] 『複数シートから、ある条件を満たす行を別シートに』（mwam） ページの最後に飛ぶ

[[20190311093226]]　『複数シートから、ある条件を満たす行を別シートに』（mwam）　ページの最後に飛ぶ