ォームに入力された日付のデータのみコピペする続

質問

お世話になります。

前回に質問させていただきました本件ですが、新たに2点質問させていただきます。

集計.xlsというブックがあります。
この中に[集計]、[東京支店]、[名古屋支店]、[大阪支店]というシートがあります。

[東京支店]、[名古屋支店]、[大阪支店]のシート内容を[集計]シートに順番にコピペすることは出来ました。その際にフォームに入力された日付(Texe.box1)に入力された日付でオートフィルターして絞った結果のデータのみコピぺすることも出来るようになりました。
皆様本当にありがとうございました！

作成したフォーム(Form1)に条件に使う日付を"Text.box1"に入力させるようにしてあります。

各支店のシートの内容は以下の通りです。
日付]　[担当者]　[金額]
11/1 田中 100円
11/2 山田 500円

ここからが今回の質問2つです。

下記VBAは皆様からご教授いただきましたVBAで、動作は完璧です。しかしお恥ずかしい話ですが私がロジックを細かく理解していないため、細かい修正が出来ずにおります。

(1)
やりたいことは、現在は[集計]シートにA2から各支店のデータが貼り付けられるのですが、A3から貼り付けるようにしたいのです・・。cells(X,X)の箇所をいろいろいじりましたが、うまくいきませんでした・・。
本当に初歩的で申し訳ございません。。

(2)
日付をオートフィルターで絞っていますが、新たに[担当者]という項目("Textbox2")をフォームに追加して入力された担当者でも絞れるようにしたいのですが、[日付](Textbox1)と[担当者](Textbox2)同時にオートフィルターをかけるロジックが分からないのです。。

何度も申し訳ありませんが、どなたかご教授いただけますでしょうか？

環境
Windows XP SP3
Excel2003

以下、皆様からご教授いただきましたVBAを少し私が加工したものです。
↓
Private Sub CommandButton1_Click()

Dim i As Long
Dim j As Long
Dim k As Long
Dim str As String
Dim myArray As Variant
Dim ws As Worksheet
Set ws = Worksheets("集計")
myArray = Array("東京支店", "名古屋支店", "大阪支店")

i = ws.Cells(Rows.Count, 1).End(xlUp).Row
j = ws.Cells(1, Columns.Count).End(xlToLeft).Column

If i > 1 Then
Range(ws.Cells(2, 1), ws.Cells(i, j)).ClearContents
End If

For k = 0 To UBound(myArray)
str = myArray(k)

'日付でオートフィルター'
With Worksheets(str)
.Range("A1").AutoFilter Field:=1, Criteria1:=TextBox1.Value
End With

i = Worksheets(str).Cells(Rows.Count, 1).End(xlUp).Row

Range(Worksheets(str).Cells(2, 1), Worksheets(str).Cells(i, j)).Copy _
ws.Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next k

回答No.1

tsubuyuki · ベストアンサー

まずは、２番目のフィルタの疑問から。

「マクロの記録」機能はご存知ですよね？
これを使って「フィルタをかける」作業を記録してみましょう。

　　Selection.AutoFilter
　　Selection.AutoFilter Field:=1, Criteria1:="1"
　　Selection.AutoFilter Field:=2, Criteria1:="2"

と言うような記録が残ると思います。

で、現行のコードから似ている部分を探しましょう。

> With Worksheets(str)
> 　　.Range("A1").AutoFilter Field:=1, Criteria1:=TextBox1.Value
> End With

と言うのが見えますよね。
これに準じて、上記の「記録」を書き直してみます。

　　With Worksheets(str)
　　　　.Range("A1").AutoFilter
　　　　.Range("A1").AutoFilter Field:=1, Criteria1:=TextBox1.Value
　　　　.Range("A1").AutoFilter Field:=2, Criteria1:=TextBox2.Value　　
　　　　　　　　　　　　　　　　　　　　　'Field:=　には「範囲の左端から数えて何列目か」を指定
　　End With

こうできますね。
あとは、これを元のコードフィルタ部分に書き換えてあげるだけです。

次に１番、３行目から貼り付けしたい件。

今のコードを改造しちゃうのもてではあるんですが、
ここはちょっと発想を転換してみましょう。

「全て貼り付けたあとに、２行目に空白行を作る＝行挿入する」
と言う発想はいかがでしょう？
これならそんなに難しくなさそうです。

なので、コピー貼り付けの繰り返しが終わった後、と言うタイミングに
「２行目に行挿入する」ように書いてやればＯＫです。
具体的には

　　Next k

　　Application.CutCopyMode = False　　　'念のために「カットコピーモード」を解除
　　Rows(2).Insert CopyOrigin:=xlFormatFromRightOrBelow　'書式を「下の行」から持ってきながら行挿入

としてやると良い感じで出来るような気がします。

何にせよ、「マクロの記録」は作るにも勉強するにも非常に便利です。
どんな処理をしたいのか決まったら、ジャンジャン記録して読み返すと
「何をしたら、こう記録された」から「こう書いたら、何が出来る」を経て、
最終的に「何をしたいから、こう書こう」につながっていきます。

「記録」は大事です（笑）。

お礼

tsubuyakiさん、ご連絡遅くなりまして申し訳ございませんでした。

ご教授いただきました方法で解決いたしました。
本当に何度もありがとうございます！

ご指摘されました通りまずは[記録]することを心にとめ、引き続き勉強していきたいと思います。

この度は誠にありがとうございました！！

補足

tsubuyakiさん、ご連絡ありがとうございます！
またご連絡が遅くなりまして申し訳ございませんでした。
昨日昼より外出しておりましてお返事ができずにおりました。

私のスキルに見合った形で噛み砕いてわかり易く、とてもご丁寧なご説明
本当にありがとうございます。

ただいまより離籍してしまいますため、後程ご教授いただきました方法を試させていただきます。
取り急ぎお礼申しあげます。