部門ごとにスプレッドシートをフィルタリングし、結果をコピーして適切な部門のワークシートに貼り付けるマクロがあります。その後、9 つの部門ごとに繰り返されます。「パンチプレス」セクションのデータの最後の行をコピーして貼り付けないことを除いて、正常に機能しています。強調表示されたセルが表示されますが、データは転送されません。
どんな助けでも大歓迎です!
ここに私が持っているものがあります:
Sub UpdateTables()
'PunchPress Macro
Sheets("Audit scores").Select
ActiveSheet.Range("$A$1:$AL$118").AutoFilter Field:=2, Criteria1:= _
"Punch Press ESP"
Range("X1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Punch Press").Select
Range("X1").Select
ActiveSheet.Paste
Columns("A:A").ColumnWidth = 17.57
Columns("A:A").ColumnWidth = 20.57
Rows("2:2").RowHeight = 15
Selection.RowHeight = 15
Range("A1").Select
End Sub