Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31173 / 76732

←次へ　｜　前へ→


	【50814】Re:ｵｰﾄﾌｨﾙﾀ後の部分コピー

けいじ - 07/8/17(金) 1:00 -


	引用なし

	パスワード

お返事ありがとうございます
お手を煩わせて申し訳ございません
いろいろやってみたのですが表示されるのですがコピー＆ペーストすることが出来ません

因みに今のマクロが

　　Dim JUK As Variant
　　JUK = Range("B5").Value
　　　　↑今ｱｸﾃｨﾌﾞのｼｰﾄのB5の値を変数JUKに代入

　　Windows("元データ.xls").Activate
　　Rows("2:2").Select
　　Selection.AutoFilter
　　Selection.AutoFilter Field:=2, Criteria1:=JUK
　　　↑そのJUKの内容でフィルタをする
　　
　　Columns("F:F").Select
　　Range("A1:M1928").Sort Key1:=Range("F1"), Order1:=xlDescending, 　　　　　Header:= _
　　　　xlGuess, OrderCustom:=1, MatchCase:=False, 　　　　　　　　　　　　　　　Orientation:=xlTopToBottom, _
　　　　SortMethod:=xlPinYin, DataOption1:=xlSortNormal
　　↑ここでF列の数量の多い順で並び替えしています
　　
　　Range("A1251:A1269,F1251:F1269").Select
　　Range("F1251").Activate
　　↑普通にコピーするとこうなってしまい検索条件が違っても常に
　　　A1251:A1269,F1251:F1269の値がコピーされてしまいます
　　　ここがこまっている所で
　　
　やりたい事は
　　○A列のA2を含まずその下の10項目と
　　○F列のF2を含まずその下の10項目を選択

　 Selection.Copy
　　↑コピーする

　　Windows("結果.xls").Activate
　　Range("C6").Select
　　ActiveSheet.Paste
　　　↑それを結果.XLSのC6へペーストする

End Sub

とこんな感じでコピペしたいのです

どうかご指導ご鞭撻よろしくお願いいたします

0 hits

▼

【50793】ｵｰﾄﾌｨﾙﾀ後の部分コピー けいじ 07/8/16(木) 3:14