|
お初にお目にかかります。VBAの入り口をうろうろしている初心者です。
過去ログ等を参考にして自分で組んでみましたがエラーで動かないので
ご指摘お願い致します。
Sub Macro3()
'
'
’#データ更新
Columns("E:j").Clear
Sheets("計画").Range("K:N").Copy
Sheets("マクロセット").Range("E:H").PasteSpecial Paste:=xlPasteValues
Sheets("Data Base").Range("AP4:AP100").Copy
Sheets("マクロセット").Range("J8").PasteSpecial Paste:=xlPasteValues
'
Range("E3:H3").Select
Selection.AutoFilter
'
Dim i As Integer
If ActiveWorkbook.Worksheets.Count < 8 Then Exit Sub
For i = 8 To ActiveWorkbook.Worksheets.Count
ActiveSheet.Range("$E$3:$H$5000").AutoFilter Field:=4, Criteria1:=Cells(10, i).Value
Range("E3").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Sheets(i).Range("B53").PasteSpecial Paste:=xlPasteValues
Next i
Sheets("マクロセット").Select
End Sub
左から8シート目以降に枚数未定のシートが40~70枚ほどあります。
E:H列のデータを、シート名(J列に順に記載)を用いH列でフィルターを掛け、
その抽出データを各シートに貼り付けを行いたいです。
色々調べてみたのですが、どう修正すればいいのか見つけきれず。。
どうかよろしくお願い致します
|
|