質問編集履歴
1
エラー場所の追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -10,7 +10,17 @@
|
|
|
10
10
|
|
|
11
11
|
Book1（商品管理）にある（一覧）というsheetにAからAGまでデーターが入って有り（空白が所々あるうえ毎日追加していきます）
|
|
12
12
|
|
|
13
|
-
フィルターで抽出したデーターを別ブックBook2（移動伝票）の（移動データー）というsheetの既存データの下に今回抽出したデータを追記していきたいのですが貼り付けがうまくいきません。
|
|
13
|
+
フィルターで抽出したデーターを別ブックBook2（移動伝票）の（移動データー）というsheetの既存データの下に今回抽出したデータを追記していきたいのですが貼り付けがうまくいきません。
|
|
14
|
+
|
|
15
|
+
|
|
16
|
+
|
|
17
|
+
|
|
18
|
+
|
|
19
|
+
Set FromRng = .Range(Range("A8"), Cells(Rows.Count, 33).End(xlUp))の所でエラーが出ていて
|
|
20
|
+
|
|
21
|
+
抽出したデーターをコピーする時のコピー指定がおかしいのでしょうか？
|
|
22
|
+
|
|
23
|
+
|
|
14
24
|
|
|
15
25
|
|
|
16
26
|
|
|
@@ -112,7 +122,7 @@
|
|
|
112
122
|
|
|
113
123
|
With ThisWorkbook.Worksheets("一覧")
|
|
114
124
|
|
|
115
|
-
Set FromRng = .Range(Range("A8"), Cells(Rows.Count, 33).End(xlUp))
|
|
125
|
+
** Set FromRng = .Range(Range("A8"), Cells(Rows.Count, 33).End(xlUp))**
|
|
116
126
|
|
|
117
127
|
End With
|
|
118
128
|
|