Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3893 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【59627】ソートしたデータの出力 初心者えっじ 08/12/26(金) 14:50 質問[未読]
【59628】Re:ソートしたデータの出力 Jaka 08/12/26(金) 16:07 発言[未読]
【59630】Re:ソートしたデータの出力 初心者えっじ 08/12/26(金) 17:02 質問[未読]
【59629】Re:ソートしたデータの出力 Yuki 08/12/26(金) 16:09 発言[未読]
【59627】ソートしたデータの出力
質問  初心者えっじ  - 08/12/26(金) 14:50 -
引用なし
パスワード
   初めて投稿するので不備等ありましたらご指摘ください。
早速ですがご質問致します。

【環境】
WindowsXP Pro
Excel 2000

【内容】sheet1
1.A4〜F4まで一意な担当者の名前が入っています。
2.H2は入力規則のリストでA4〜F4の担当者の名前が選択できるようにしてあります
3.1.(担当者名)の下のセルには○を記入します。
4.H4〜S4まで項目があります。
※項目内容は、会社名、フリガナ、担当者名、フリガナ2、住所、等になります。

【結果】
例えば、A4のAさんの担当している会社が全件中１００件だとします。
　　　　B4のBさんの担当している会社が全件中２００件だとします。
　　　　・
　　　　・
　　　　・
　　　　F4のFさんの担当している会社が全件中６００件だとします。
H2のリストからAさんを選び、Aさんの○が記入してある会社だけをオートフィルターより表示させます。

If Range("H2").Value = "Aさん" Then
'==================ソート========================
　　Selection.AutoFilter Field:=5, Criteria1:="○"
　　Selection.AutoFilter Field:=1, Criteria1:="="
　　Selection.AutoFilter Field:=2, Criteria1:="="
　　Selection.AutoFilter Field:=3, Criteria1:="="
　　Selection.AutoFilter Field:=4, Criteria1:="="
　　Selection.AutoFilter Field:=6, Criteria1:="="
Else
End If

表示された項目を含む内容を別シートに転機したいのです→H4:S*
※A4:F*までの部分は除外。
その際にシート名をH2で選択した担当者名にしたいのです。
この場合Aさんになります。

Aさんの担当している会社等は変動するので、毎度１００件と言う訳ではなく
上下します。

ご教示の程宜しくお願いします。
【59628】Re:ソートしたデータの出力
発言  Jaka  - 08/12/26(金) 16:07 -
引用なし
パスワード
   オートフィルタしたデータ部のコピペですね。

With ActiveSheet.AutoFilter.Range
　　.Resize(.Rows.Count - 1).Offset(1).Copy
End With
Sheets("Sheet3").Range("B3").PasteSpecial

とか...。

シート名の変更は、マクロ記録でとれます。
【59629】Re:ソートしたデータの出力
発言  Yuki  - 08/12/26(金) 16:09 -
引用なし
パスワード
   ▼初心者えっじ さん：
>
>If Range("H2").Value = "Aさん" Then
> '==================ソート========================
>　　Selection.AutoFilter Field:=5, Criteria1:="○"
>　　Selection.AutoFilter Field:=1, Criteria1:="="
>　　Selection.AutoFilter Field:=2, Criteria1:="="
>　　Selection.AutoFilter Field:=3, Criteria1:="="
>　　Selection.AutoFilter Field:=4, Criteria1:="="
>　　Selection.AutoFilter Field:=6, Criteria1:="="
　 Worksheets("Sheet1").AutoFilter.Range.Offset(, 7).Resize(, 12).Copy _
　　 Worksheets("Sheet3").Range("A1")
>Else
>End If
>

この１行を付け加えるだけで良いと思います。
【59630】Re:ソートしたデータの出力
質問  初心者えっじ  - 08/12/26(金) 17:02 -
引用なし
パスワード
   ▼Jaka様
ご回答ありがとうございます。

>オートフィルタしたデータ部のコピペですね。
余計な所までｺﾋﾟﾍﾟされてしまいます。

>表示された項目を含む内容を別シートに転機したいのです→H4:S*の範囲
>※A4:F*までの部分は除外。

担当者名(A4〜F4)〜下の○を記入する分部は除外です。

オートフィルタしたH4〜S*までのデータ部がほしいのです。
※Gは空けております。

宜しくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3893 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free