Excel VBAの作成方法

初めまして、ＶＢＡ初心者です。
以下のＶＢＡ作成方法をご教示ください。

１シート目にはＡ1、Ｂ1・・・の順で顧客名、購入商品、購入日、購入理由、購入通貨（プルダウン形式でＲＭＢ、ＨＫＤ、・・・）、購入金額が記載されています。
そこで、１シート目で購入通貨がＲＭＢと記載された顧客のみ、しかも
顧客名、購入商品、購入金額を２シート目に表記させたいと考えております。
色々自分で試したのですがうまく動作せず、悩んでおります。本来なら自分で完結すべきなのでしょうがＶＢＡ初心者のため行き詰っております。どうかご教示願います。
※１シート目は１か月単位で表を作成しております。
※表の上から順に日にち通り記入していくため、通貨が入り乱れます。
　（1日はＨＫＤ、２日はＲＭＢ・・・のように）
※1シート目で上手く纏めれば良いと言われるかもしれませんが、１シート目はユーザー情報を細かく記載するためのシートであり、２シート目はＲＭＢでの売上が一目でわかるようにしたい為です。

No.1 ベストアンサー 回答者： turuzou 回答日時： 2009/04/12 21:49

こんな感じでは？Sheet1がアクティブのとき

Sub サンプル()
　Dim x, y
　y = 2
　For x = 2 To Cells(65536, 5).End(xlUp).Row
　　If Cells(x, 5).Value = "ＲＭＢ" Then
　　　With Sheets("Sheet2")
　　　　.Cells(y, 1).Value = Cells(x, 1).Value
　　　　.Cells(y, 2).Value = Cells(x, 2).Value
　　　　.Cells(y, 3).Value = Cells(x, 6).Value
　　　End With
　　　y = y + 1
　　End If
　Next x
End Sub

下記も参考になると思います。
すぐに役立つエクセルVBAマクロ集 - Excel VBA Macro Collection　http://www.asahi-net.or.jp/~zn3y-ngi/

この回答へのお礼

お礼遅くなってすいません！
上記方法で作動しました。
細かい部分は勉強しながら補っていきます。
有り難うございました。

お礼日時：2009/04/26 22:11